Word Automation

Question

Я пытаюсь записать документ в виде слова в месте закладки. Я могу добавить строки текста, но я хотел бы добавить несколько строк с несколькими шрифтами, размерами и т. Д. Думаю, мне нужно добавить несколько абзацев, но как?

Вот мой рабочий код sofar.

Set oWord = CreateObject("Word.Application") 
oWord.Visible = True 
Set oDoc = oWord.Documents.Add 
Set oDoc = oWord.Documents.Add("D:\MyDocument.dotx")  'Based on a template 
oDoc.Bookmarks("OFFER").Range.Text = "First Line of text" & vbcrlf & "Second line of text" 

Я хочу, чтобы вторая строка имела другой размер шрифта.

Answer 1

Вот как вы можете это сделать:

Dim oDoc as Document = oWord.Documents.Add("D:\MyDocument.dotx") 

Dim range As Range = oDoc.Bookmarks("OFFER").Range 

//Add paragraph 1 
Dim paragraph1 As Paragraph = range.Paragraphs.Add() 

paragraph1.Range.Text = "First Line of text" 

paragraph1.Range.Font.Size = 30 

//Add paragraph2 after paragraph 1 
Dim paragraph2 As Paragraph = paragraph1.Range.Paragraphs.Add() 

paragraph2.Range.Text = "Second line of text" 

paragraph2.Range.Font.Size = 50