请问选中光标所在行的文字而不选中段落标记的宏代码是什么？

wdwc

请问选中光标所在行的文字而不选中段落标记的宏代码是什么？谢谢

守柔

论坛有很多，可以搜索一下吗？

Sub Example()
'选中除段落标记外的光标所在段落的文本内容
    Dim myRange As Range
    Set myRange = Selection.Paragraphs(1).Range
    myRange.SetRange myRange.Start, myRange.End - 1
    myRange.Select
End Sub

wdwc

太感谢了，谢谢。

上面的代码是选中一段的文字，而我只要一行，这一行可能是一段，也可能不是一段，所以我又改了一下，

我把我改后的代码给大家看看，希望能对大家有帮助：

Sub Word文件改名()
    Selection.WholeStory
    Selection.HomeKey Unit:=wdLine
    Selection.Expand wdLine
    Dim myRange As Range
    Set myRange = Selection.Range
    myRange.SetRange myRange.Start, myRange.End - 1
    myRange.Select
    ActiveDocument.SaveAs FileName:="C:\" & Selection & ".doc"
    ActiveWindow.Close
End Sub

这个宏用于选中文档的第一行的文字，并以之重命名。

再次表达对版主的敬佩之情！

tangqingfu

谢谢守版的分享!

kqbt

万一行为空（仅有段落标记）会导致怎样的结果呢？
是否需要加入一个排除空段落的判断：
for each para in activedocument.paragraphs
    if len(para) > 1 then
        ……
  end if
next

[ 本帖最后由 kqbt 于 2009-8-19 23:42 编辑 ]