请问怎样用word.basic插入页眉页角?
以下是录的宏
Variant V = CreateOleObject("Word.Basic");
以后该怎么处理?
Selection.TypeText Text:="jj"
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.TypeText Text:="this si header type"
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
ActiveWindow.ActivePane.LargeScroll Down:=2
Selection.TypeText Text:=" this is footer"
Selection.TypeParagraph
Selection.TypeText Text:="ssss"
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter