words.ActiveDocument.ActiveWindow.ActivePane.View.SeekView = 10
words.Selection.HomeKey 6
words.Selection.HomeKey 5
words.Selection.Find.ClearFormatting
With words.Selection.Find
.Text = "序號"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
words.Selection.Find.Execute
words.Selection.EndKey 5, 1
txt = words.selection.range.text
以上是获取页尾的,求页眉,和word 文本框里的内容怎么获取?急急急急急?
words.Selection.HomeKey 6
words.Selection.HomeKey 5
words.Selection.Find.ClearFormatting
With words.Selection.Find
.Text = "序號"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
words.Selection.Find.Execute
words.Selection.EndKey 5, 1
txt = words.selection.range.text
以上是获取页尾的,求页眉,和word 文本框里的内容怎么获取?急急急急急?
words.Selection.EndKey 5, 1
txt = words.Selection.Range.Text