Dim iword As Word.ApplicationSet iword = New Word.ApplicationSet myDoc = iword.Documents.Addiword.Visible = TrueDebug.Print iword.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text'获取WORD第一节的页眉的文字内容