定位问题,已经把代码简化
Sub 312()
Dim a%, b%, na$
Selection.HomeKey wdStory
Selection.GoTo
a = Selection.GoTo(wdGoToPage, wdGoToPrevious, 1).Start
b = Selection.GoTo.Start
ThisDocument.Range(a, b).Copy
Documents.Add
Selection.Paste
' Selection.TypeBackspace
ActiveDocument.Range(0, 0).Select
Selection.Expand wdLine
na = Selection.Range.Text
MsgBox na
效果是,新建文档,把第一页粘贴过去,并在msgbox显示第一行内容,直接点运行,会显示整个页面的内容,和代码要求不符。如果按F8分步执行,就会按代码显示内容了
Sub 312()
Dim a%, b%, na$
Selection.HomeKey wdStory
Selection.GoTo
a = Selection.GoTo(wdGoToPage, wdGoToPrevious, 1).Start
b = Selection.GoTo.Start
ThisDocument.Range(a, b).Copy
Documents.Add
Selection.Paste
' Selection.TypeBackspace
ActiveDocument.Range(0, 0).Select
Selection.Expand wdLine
na = Selection.Range.Text
MsgBox na
效果是,新建文档,把第一页粘贴过去,并在msgbox显示第一行内容,直接点运行,会显示整个页面的内容,和代码要求不符。如果按F8分步执行,就会按代码显示内容了