求一句代码：表示word文档第1到第10行的区域

jiminyanyan

weiyingde 发表于 2017-4-25 21:37
也很好，谢谢了。
问一个过分的问题：还有简单一点的代码吗？
没有就算了。

理解了,复制一下,修改一下,都简单.......

duquancai

weiyingde 发表于 2017-4-25 21:37
也很好，谢谢了。
问一个过分的问题：还有简单一点的代码吗？
没有就算了。

Sub shishi()
    Dim arr()
    ActiveDocument.Bookmarks("\StartOfDoc").Select
    With Selection
        Do
            n = n + 1: ReDim Preserve arr(1 To n)
            .Collapse 0: .MoveEnd 5, 10: arr(n) = .Text
        Loop Until .End = ActiveDocument.Content.End
    End With
End Sub

weiyingde

duquancai 发表于 2017-4-25 22:57
Sub shishi()
    Dim arr()
    ActiveDocument.Bookmarks("\StartOfDoc").Select

好简洁的代码！厉害！！大开眼界！！！谢谢你！！！！
留着慢慢啃，需要时间来消化。

weiyingde

duquancai 发表于 2017-4-25 22:57
Sub shishi()
    Dim arr()
    ActiveDocument.Bookmarks("\StartOfDoc").Select

还是要请大侠讲解一下这些代码：
.Collapse 0
.MoveEnd 5, 10

jiminyanyan

weiyingde 发表于 2017-4-26 06:17
还是要请大侠讲解一下这些代码：
.Collapse 0
.MoveEnd 5, 10

Sub jimin()
    Selection.MoveEnd wdLine, 2  
    Selection.Collapse 0
End Sub
写几行文本到WORD,单步调试一下上面代码,看一下效果,看能明白不,

weiyingde

jiminyanyan 发表于 2017-4-26 13:17
Sub jimin()
    Selection.MoveEnd wdLine, 2  
    Selection.Collapse 0

说的极是，我也是通常这样取得第一感知和印象。谢谢提醒。

kqbt

如果是纯文本的话，可以试试：

1. Sub SelFstTenLins()
   
2.     With Selection
   
3.         .HomeKey wdStory
   
4.         .MoveDown wdLine, 10, wdExtend
   
5.     End With
   
6. End Sub

复制代码

小花鹿

duquancai 发表于 2017-4-25 18:53
给定义了一个对象数组arr

Sub shishi()

请老师解释一下这句：doc.Bookmarks("\StartOfDoc").Select
其中的Bookmarks是什么意思？
其中的"\StartOfDoc"是什么意思？类似于参数吧，还有哪些？

weiyingde

小花鹿 发表于 2017-4-28 02:34
请老师解释一下这句：doc.Bookmarks("\StartOfDoc").Select
其中的Bookmarks是什么意思？
其中的"\Star ...

Bookmarks是英文书签的意思

dafanshu1

小花鹿 发表于 2017-4-28 02:34
请老师解释一下这句：doc.Bookmarks("\StartOfDoc").Select
其中的Bookmarks是什么意思？
其中的"\Star ...

可在帮助中查找“预定义书签”。