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

发布于 2025-02-01 14:38:41 字数 683 浏览 4 评论 0原文

下面的代码找到文本“ //”，并用绿色格式化整个线。

我正在尝试对其进行修改，以便它仅从文本“ //”到线的末尾进行格式。 ”

包括

（

“

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

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

原文

The code below finds the text "//" and formats the entire line with green color.

I'm trying to modify it so that it's only formatted from the text "//" to the end of the line. (including "//")

So instead of this result:

example text //color changed

I aim to achieve this:

example text //color changed

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

I'm recording macros to see if I can find a solution in the auto-generated code. But I thank in advance to anyone who can help me.

分享到QQ

分享到微博