word 中如何用vba来获得指定行号的内容-word中的vba,word vba 曾贤志

Sub abc()
Dim App, WrdDoc, MyPath, MyFile, BM, Str
Mypath = "文件实际路径zd\*.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
MyFile = Dir(Mypath) ' 获得第一个WORD文档
do while MyFile <> "" ' 遍历Mypath下面的所有回WORD文档
App.Visible = True
Set WrdDoc = App.Documents.Open(MyFile) '打开这个Word文件！
for each BM in WrdDoc.Bookmarks ' 遍历文档中的所有书签
Str = BM.Range ' 读取书签内容
next BM

WrdDoc.Close ' 关闭文件

MyFile = Dir ' 下一答个WORD文档

Loop
Set App = Nothing
End Sub

用下zhidao面这个函数，调用内的时候就是GetContent（行号）就行容了

Function GetContent(LineNo) As String
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=LineNo
    Selection.MoveRight wdSentence, 1, True
    GetContent = Selection.Text
End Function

VBA其实是一个挺不简单的东西，建议你下载一本用户手册，微软的，或者下载VBA开发指南
你的要求貌似都可以做到

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