主页 / 问题 / 1400242
Accepted
markls
Asked:2022-06-14 22:06:55 +0000 UTC2022-06-14 22:06:55 +0000 UTC

在 WORD 中为整个段落着色

  • 772

大家好。一般来说，你需要макрос在Microsoft Word. 用户将光标放在文本的任意部分，光标所在的段落会被高亮显示并涂成红色。
我知道在帮助下Selection.Font.TextColor = 200您可以将文本涂成红色，所以我决定先找到начало абзаца：

With Selection.Find
 .Forward = False
 .ClearFormatting
 .MatchWholeWord = True
 .MatchCase = False
 .Wrap = wdFindContinue
 .Execute FindText:="^p"
End With

然后通读文本，直到找到段落的结尾。
这就是问题所在——我只是不知道如何通过文本来突出我遇到的每个单词。

vba ms-word

1 个回答

  1. Best Answer

    我在网上找到了一个类似的解决方案，稍微改正它来做我需要的：

    Dim i&, iPos&
    iPos = Selection.Paragraphs(1).Range.Start
    With ActiveDocument
        Do
            i = i + 1
        Loop While .Paragraphs(i).Range.Start - iPos
    End With
    ActiveDocument.Paragraphs(i).Range.Select
Selection.Font.TextColor = wdColorBlue
    • 0

相关问题