Question

如何通过VBA 知道word中 某一行的内容

如：我想知道第五行的全部内容是什么，如何写word里的vba

Answer 1

Sub PageLine()
nPage = InputBox(Chr(13) & "输入要查看的页数。", "文本的页数", 13)
nLine = InputBox(Chr(13) & "输入要查看的行数。", "查看的行数", 7)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPage
Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=nLine - 1
Selection.Extend
Selection.EndKey Unit:=wdLine
Selection.EscapeKey
MsgBox Selection.Range
End Sub