WORD中如何用VBA扩展选中指定区域

tan133

我的光标在段中的某位置，见附件中的红色线
如果我要选中这一行的所有文字   Selection.Expand wdLine
如果我要选中这一行开头到光标所在位置的所有文字（效果见附件上半部分），如何做
如果我要选中这一行光标所在位置到这行的结尾的所有文字（效果见附件下半部分），如何做

loquat

movestart方法

loquat

多种方法吧
selection。movestart selection。paragraphs(1).start
activedocument。range(selection。paragraphs(1).start，selection。end)。select
selection。setrange selection。paragraphs(1).start，selection。end
第三个未测，不一定行

loquat

手机没看清，把paragraphs改成lines

tan133

ActiveDocument.Range(Selection.Paragraphs(1).Range.Start, Selection.End).Select '测试有效
Selection.SetRange Selection.Paragraphs(1).Range.Start, Selection.End '测试有效
Selection.MoveStart Selection.Paragraphs(1).Range.Start '报错，参数无效

可是你也知道了，要lines
selection没有lines，应该如何改呢？

tan133

loquat 发表于 2014-10-21 00:28
手机没看清，把paragraphs改成lines

没有lines，怎么办？

loquat

Selection.MoveStart wdLine, -1
Selection.MoveEnd wdLine, 1

tan133

loquat 发表于 2014-10-21 13:05
Selection.MoveStart wdLine, -1
Selection.MoveEnd wdLine, 1

    'Selection.HomeKey unit:=wdLine, Extend:=wdExtend
    Selection.EndKey unit:=wdLine, Extend:=wdExtend
如上方法也可以，经测试，goto也可以，貌似更慢，就不展开说了

不知道有没有不用selection的，
感觉不用select,应该比不停的selecti还是快点，
没有方法可以对比，不知道

kqbt

1.   MsgBox Range(Bookmarks("\line").Start, Selection.Range.Start)
   
2.   MsgBox Range(Selection.Range.End, Bookmarks("\line").End)

复制代码

tan133

1. 
   
2. ActiveDocument.Range(Selection.Bookmarks("\line").Start, Selection.Range.Start).Select
   
3. MsgBox "d"
   
4. ActiveDocument.Range(Selection.Range.End, Selection.Bookmarks("\line").End).Select

复制代码

谢谢版主，已经有这么多方法了，看来我还是知道的太少，要多学习了