主题：纸张横向页脚对齐问题

参考

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
   
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.TypeBackspace
    app.ActiveWindow.Selection.Font.Size = 10
    app.ActiveWindow.Selection.TypeText(Text:="54545" & vbTab & "54545555555555" & vbTab & "34534535345")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageFooter
   
    app.Selection.HeaderFooter.LinkToPrevious = False
    app.Selection.HeaderFooter.Range.ParagraphFormat.Alignment = msword.WdParagraphAlignment.wdAlignParagraphCenter
    Dim s = "54545" & vbTab & "54545555555555" & vbTab & "34534535345"
    app.ActiveWindow.ActivePane.Selection.InsertAfter(s)
   
    app.ActiveWindow.ActivePane.View.SeekView =  MSWord.WdSeekView.wdSeekMainDocument
    app.Visible = True
   
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    app.Quit
End try