VBA Word 在选择中使每 3 个单词变为粗体答案

【问题标题】：VBA Word make every 3 words' bold in a selectionVBA Word 在选择中使每 3 个单词变为粗体
【发布时间】：2016-12-13 23:03:18
【问题描述】：

所以我一直试图在特定选择中将单词文档中的每 3 个单词设为粗体，或者如果在整个文档中每 3 个单词没有选择任何内容。我尝试了不同的方法，但没有任何效果。

【问题讨论】：

标签： vba ms-word selection

【解决方案1】：

我应该说“到目前为止你尝试过什么？”和“让我们看看你的代码。”，但我还没有真正用 Word 编写过代码，所以我想试一试......

这似乎可以解决问题，尽管可能有更好的编码方式：

Public Sub BoldText()

    Dim wrd As Range
    Dim x As Long
    Dim doc As Variant

    If Selection.Start = Selection.End Then
        Set doc = ThisDocument
    Else
        Set doc = Selection
    End If

    x = 0
    For Each wrd In doc.Words
        x = x + 1
        If x Mod 3 = 0 Then
            wrd.Bold = True
        End If
    Next wrd

End Sub

【讨论】：

+1 用于尝试使用 Word 进行 VBA。我什至从未考虑过。我会自动阅读这个问题，就好像它是一个 excel 问题一样。
那行得通，我只需要使实际单词不使用逗号和句号，但你帮了我很多。