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

参考

 

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

如何给字体加粗。另外，纸张方向为纵向的时候是好的，但是横向的时候，好像两边不会分散对齐，挤在中间了。

参考：http://www.foxtable.com/webhelp/scr/2121.htm

加粗问题已经解决，但用app.ActiveWindow.Selection.ParagraphFormat.Alignment = MSWord.WdParagraphAlignment.wdAlignParagraphCenter 的时候三组字符统一居中或左对齐右对齐，现想实现第一组左对齐，第二组居中，第三组右对齐，可否指导下，网上一直找不到。

只能统一设置