pashulka » 11 фев 2018, 11:50
Можете использовать что-то вроде этого :
Код: Выделить всё
Sub Test3()
Dim objWord As Word.Range, iCount&: iCount = 1
Const chars = "*[.,;:!?(){}" & vbCr & "]*"
For Each objWord In ActiveDocument.Words
If Not objWord.Text Like chars Then
If iCount Mod 3 = 0 Then objWord.Font.Bold = True
iCount = iCount + 1
End If
Next
End Sub
Здесь перечислены не все символы, которые Word воспринимает как слово. Впрочем, можно поступить и проще, считать словом то, что содержит минимум 2 символа. Это позволит обойтись без перечисления ненужных символов, правда такой подход отсечёт и с а у я
Можете использовать что-то вроде этого :
[code]Sub Test3()
Dim objWord As Word.Range, iCount&: iCount = 1
Const chars = "*[.,;:!?(){}" & vbCr & "]*"
For Each objWord In ActiveDocument.Words
If Not objWord.Text Like chars Then
If iCount Mod 3 = 0 Then objWord.Font.Bold = True
iCount = iCount + 1
End If
Next
End Sub[/code]
Здесь перечислены не все символы, которые Word воспринимает как слово. Впрочем, можно поступить и проще, считать словом то, что содержит минимум 2 символа. Это позволит обойтись без перечисления ненужных символов, правда такой подход отсечёт и с а у я