vbscript 在文档末尾插入段落

Posted 2021-05-21

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:="Text goes here" & vbCr


End Sub