Как написать макрос для выделения каждого первого слова в каждом абзаце первого раздела Word?

Question

[pipetto]

For Each p In ActiveDocument.Paragraphs
        p.Range.Words(1).Bold = True
    Next p

Есть код для выделения первого слова каждого абзаца. Как сделать так, чтобы это работало только для первого раздела документа

Answer 1

[Sergey В.]

Разделы в Word - это Sections
Sections(1) это первый раздел.
Поэтому Ваш код может выглядеть так:

For Each p In ActiveDocument.Sections(1).Range.Paragraphs
p.Range.Words(1).Bold = True
Next p