Кто силен в VBA? У меня документ в Ворде более 100 страниц. Мне нужно, чтобы первое слово в каждом абзаце было жирным.
Вот это я нашла в сети:
Sub ErstesWortImAbsatzFett()
With Selection.Paragraphs(1).Range
With .Words.First
.Font.Bold = True

End With

End With
End Sub
Но так он делает только слово в первом абзаце жирным. Как сделать, чтобы он во всех абзацах выделил первое слово жирным? Спасибо.

With Selection.Paragraphs(1)
==
эта конструкция относится только первому абзацу. в скобках номер абзаца.
нужно цикл организовать.
или предварительно сосчитать, тем же vba количество абзацев и число в качестве счетчика взять.
или чего то заюзать, что количество абзацев даст, чего еще не знаю. (плохо, когда не знаешь, да еще забудешь)
или заведомом большее число взять в качестве счетчика, но в цикл обработчик ошибок включить.
ps
нашел
....
For i = 1 To ThisDocument.Paragraphs.Count
ThisDocument.Paragraphs(i).Range
...

Чего-то не получается. Вы не могли бы написать как это все вместе должно выглядеть?
П.С. количество абзацев можно и просто в Ворде посчитать. Но куда мне это число потом внести? Типа 1-7000 не получается.

не нужно считать, ThisDocument.Paragraphs.Count дает число абзаев в документе. цикл от 1 до числа которое
даст ThisDocument.Paragraphs.Count
написать не могу, так как проверить не могу в данный момент работоспообность
кода

Компиляция ваших предложений + немного от себя

Супер! Работает! Спасибо большое.