如下代码生成页眉和页脚，当纸张方向为纵向时，页眉和页脚都是分散居中的，但是当纸张方向为横向时，页眉和页脚的位置变得很别扭，这是怎么回事？另外想给字体加粗，怎么写？
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(dlg.FileName)
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.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.TypeBackspace
app.ActiveWindow.Selection.Font.Size = 12
app.ActiveWindow.Selection.TypeText(Text:="54545" & vbTab & "54545555555555" & vbTab & "34534535345")
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = False
app.Documents.Save
Doc.Close
catch ex As exception
msgbox(ex.message)
app.Quit
finally
app.Quit
End try
[此贴子已经被作者于2019/4/2 16:59:50编辑过]
加好友 
发短信
Post By：2019/4/2 16:18:00 [显示全部帖子]
