如何遍历word行？

weiyingde

duquancai 发表于 2017-4-25 11:47
我已经把每10行文本存入了数组。至于后面的事你自己去搞。我只回答你本帖的问题。

可是并没有将所有的文本写入数组当中

weiyingde

duquancai 发表于 2017-4-25 11:47
我已经把每10行文本存入了数组。至于后面的事你自己去搞。我只回答你本帖的问题。

问一句表达：1-10行文本，能用range表示么？如果能，请杜老师赐这句代码。
其他的事，我自己试试。

duquancai

weiyingde 发表于 2017-4-25 11:56
可是并没有将所有的文本写入数组当中

那谁知道呢？不知道，只是猜谜语。不玩了。

duquancai

weiyingde 发表于 2017-4-25 11:59
问一句表达：1-10行文本，能用range表示么？如果能，请杜老师赐这句代码。
其他的事，我自己试试。

1-10行   p就是   自己看》》》》》》
Sub shishi()
    Dim p As Range
    ActiveDocument.Bookmarks("\StartOfDoc").Select
    Selection.MoveEnd 5, 10
    Set p = Selection.Range
End Sub

weiyingde

duquancai 发表于 2017-4-25 11:47
我已经把每10行文本存入了数组。至于后面的事你自己去搞。我只回答你本帖的问题。

代码的效果是：
只将每页的倒数1-10行的文本录入了数组，而每页顺数第1行—倒数第11行的所有文本都忽略了。

duquancai

weiyingde 发表于 2017-4-25 12:22
代码的效果是：
只将每页的倒数1-10行的文本录入了数组，而每页顺数第1行—倒数第11行的所有文本都忽略 ...

你不是说只给1-10行的  表达么？其余的你自己不是承认了自己搞定吗？

weiyingde

杜老师，你误会了。
我的意思是:
hs = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value‘这个是取得文档的总行数吧？
那么：
如果能用range(i行，j行)这样的方式来给数组赋值，就好办了。
因为word VBA不熟，不知那个属性能以行数为参数进行赋值。
也不知道那种表达能进行行循环。

weiyingde

多谢杜老师的帮助，解决了先前的难题，杜老师水平太高，一时难以理解。
自己研究了一下，以自己的水平能理解的好懂的代码，作如下的解决方案。
Sub 每10行录入数组()
Dim arr()
Selection.HomeKey Unit:=wdStory
For x = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value Step 10
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=9, Extend:=wdExtend
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) =Selection.Range.Text
Selection.MoveDown Unit:=wdLine, Count:=1
Next
End Sub

weiyingde

如果逐行录入文本的话，还可以用如下代码实现:
Sub 逐行选取文本()
dim arr()
Selection.HomeKey Unit:=wdStory
For x = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
n =n +1
redim preserve arr(1 to n)
arr(n)=selection.range.text
Selection.MoveDown Unit:=wdLine, Count:=1
Next
End Sub

选择一行的VBA语句为
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

删除一行的VBA语句为
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdLine

weiyingde

sub 每10段写入数组()
Dim arr()
Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdParagraph, Count:=3'放弃开始三段
For x = 1 To ActiveDocument.Paragraphs.Count Step 10
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdParagraph, Count:=3, Extend:=wdExtend
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
N = N + 1
ReDim Preserve arr(1 To N)
arr(N) = Selection.Range.Text
Selection.MoveDown Unit:=wdLine, Count:=1
Next
End Sub