Sub 自動插入底稿頁首()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).range
.Text = “我愛Lure Has It” & Chr(10) & “Lure Has It愛我”
.font.Size = 14
.font.Name = “標楷體”
.font.Name = “times new romans”
.font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter

End With

End Sub