VBA Word делает каждые 3 слова «полужирным» в выборе

Question

Так что я пытаюсь сделать каждые 3 слова в слове documentemnt полужирным шрифтом в определенном выборе или если ничего не выбрано каждые 3 слова во всем документе. Я пробовал разные подходы, но ничего не получилось.

Answer 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