格式化从字符或单词到行尾的文本

Question

下面的代码找到文本“//”并将整行格式化为绿色。

我正在尝试对其进行修改，使其仅从文本“//”到行尾进行格式化。（包括“//”）

所以不是这个结果：

示例文本//颜色已更改

我的目标是：

示例文本//颜色已更改

Sub FindWord_and_ChangeColor()

    Dim LastRow, i As Long
    
    Selection.HomeKey Unit:=wdStory
    
    With Selection.Find
        .ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Text = "//"
        .Execute
    End With
    
    Do While Selection.Find.Found
        Selection.Expand Unit:=wdSentence
        Selection.Font.Color = RGB(107, 187, 117)
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.Find.Execute
    Loop
End Sub

我正在录制宏以查看是否可以在自动生成的代码中找到解决方案。但我提前感谢任何可以帮助我的人。

Answer 1

改变

Selection.Expand Unit:=wdSentence

至

Selection.MoveEnd Unit:=wdSentence, Count:=1

格式化从字符或单词到行尾的文本

Format text from a character or word to the end of the line

vba

ms-word