Word自動化

Question

我嘗試在書籤位置寫入word文檔。我可以添加文本行，但我想添加多行，多種字體，大小等。 我想我需要添加多個段落，但如何？

這是我的工作代碼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