在文檔的末尾插入幾行文字（MS WORD MACRO）

Question

我的標題似乎不符合可能有我的答案的問題，並且我確實從其他主題/網站找到了一些片段以幫助我獲得到目前爲止。我正在尋找將整個宏捆綁在一起的幫助。以下是我迄今爲止：

Sub Test() 

Selection.EndKey Unit:=wdStory 
Dim oPara1 As Word.Paragraph 

Set oDoc = oWord.Documents.Add 

Set oPara1 = oDoc.Content.Paragraphs.Add 
With oPara1.Range 
    .ParagraphFormat.Alignment = wdAlignParagraphCenter 
    .InsertParagraphAfter 
    With .Font 
     .Name = "Times New Roman" 
     .Size = "12" 
     .Bold = True 
    End With 
End With 

Selection.TypeText Text:="Fosters, Inc." 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.TypeText Text:="www.genericwebsite.com" 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 

'this needs to be left alignment from here on out 
Selection.TypeText Text:="Block\Paragraph Format:" 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.TypeText Text:="Run Date:" 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.TypeText Text:="Picture:" 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.TypeText Text:="Symbol:" 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.TypeText Text:="Guest Book:" 

End Sub 

我希望它移動到文件和打印結束：

     Fosters, Inc. 
       www.genericwebsite.com 

Block\Paragraph Format: 
Run Date: 
Picture: 
Symbol: 
Guest Book: 

感謝您的幫助 - 我從字面上只花了一個小時所以今天在Word中使用vba。

Answer 1

Option Explicit 

Sub Test() 

Selection.EndKey Unit:=wdStory 
Dim oPara1 As Word.Paragraph 

Dim oDoc As Word.Document 
Set oDoc = ActiveDocument 

Set oPara1 = oDoc.Content.Paragraphs.Add 
With oPara1.Range 
    .ParagraphFormat.Alignment = wdAlignParagraphCenter 
    .InsertParagraphAfter 
    With .Font 
     .Name = "Times New Roman" 
     .Size = "12" 
     .Bold = True 
    End With 
End With 

Selection.TypeText Text:=vbCr 
Selection.TypeText Text:="Fosters, Inc." & vbCr 
Selection.TypeText Text:="www.genericwebsite.com" & vbCr 
oPara1.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft 
Selection.TypeText Text:="Block\Paragraph Format:" & vbCr 
Selection.TypeText Text:="Run Date:" & vbCr 
Selection.TypeText Text:="Picture:" & vbCr 
Selection.TypeText Text:="Symbol:" & vbCr 
Selection.TypeText Text:="Guest Book:" 

End Sub