<div>
Ah sorry. Found the answer. There appears to be a Find.Style = Heading 1&quot; <br />
<br />
I'll leave the question open as there may be useful contributions to the topic from others.
</div>


Word Find Style step 2 - specify you want o find a Style

Word_FindStyle_2_Style.jpg

Word Find Style step 1 -- open dialog box and click More

Word_FindStyle_1_More.jpg

Word Find Style step 3 -- choose style name

Word_FindStyle_3_StyleName.jpg

Word_FindStyle_4_dialogBox_FindNext.jpg

<div>
Eric, thanks for commenting. I see your point. &nbsp;The reason I like to use one Heading 1 tag and the rest Heading 2 and below is:<br />
<br />
The TOC picks up levels of Heading tags, as do other built-in features<br />
and<br />
on a web page, for SEO*, if there is more than one H1 (Heading 1) tag, or it is missing, it does not get read for H1<br />
<br />
*Search Engine Optimization. While this is a Word doc, not a web page, whenever possible it is good to keep the same rules -- besides, it might become a web page someday ... or get searched like one. <br />
<br />
I've been using the Heading styles built into Word for a few decades. It works great and is, in my opinion, a good habit.<br />
<br />
If you are writing a book and have lots of chapters, it is good to use Master Document and Subdocuments with each chapter in a separate file -- in which case, each chapter may have one heading 2, and no heading 1 since the master document would have heading 1.<br />
<br />
have an awesome day,<br />
crystal
</div>


<div>
Eric, yes I have to use VBA. It's to <b>automate </b>the authoring of 400+ page specifications with 900+ Headings 1, 2 and 3. The procedures will Hide/Show the required parts selectable from cascading UserForms, which themselves are built 'on &nbsp;the fly' from the parts that exist on the document. So, yes -.not a manual authoring scenario.<br />
<br />
Crystal's code has got me most of the way. See earlier questions.<br />
<br />
BTW I'm using Find, rather than looping over the paragraphs. It's a lot faster.
</div>


<div>
Experts,<br />
I have one further question re. Find.<br />
Find works great, much quicker than looping through all the paragraphs. But I have an issue. This is the code I use to find only Heading 1.<br />
<br />

<pre><code class="code-1 nolinks" id="code-20-42422795-1"><span>    With rngContent.Find</span>
<span>     .ClearFormatting           'why is this here? what does it do?</span>
<span>     .Style = &quot;Heading 1,Section Heading,Head 1,VS1&quot;</span>
<span>     .Execute Forward:=False</span>
<span>    End With</span>
</code></pre>
<br />
But, some of the items will be Hidden. The above Find doesn't find those. So I tried ...<br />

<pre><code class="code-1 nolinks" id="code-20-42422795-2"><span>.Font.Hidden = True</span>
</code></pre>
<br />
But that would only find those that are Hidden.<br />
<br />
I need to Find both Hidden and Not Hidden, in the order in the document so it needs to be a 'top-to-bottom' run (not two runs). And grab the Hidden state while I'm at it, of course. (I stuff the data into an array during the run BTW)<br />
<br />
I'd be grateful for ideas. Thanks.
</div>


<div>
<div class="content wysiwyg-content">
I'm finding that looping through 5,000+ paragraphs in a document, to find approx 40 that have a Heading 1 style, is slow (takes minutes, and not milliseconds).<br />
<br />
Is there a quick way of <b><i>'finding the next Heading 1 style'</i></b>?<br />
<br />
I heard that with the Paragraphs collection we don't need to loop through to work with the paragraphs. I don't know if that helps with my quest.<br />
<br />
Thanks for any help.
</div>
</div>


I'm finding that looping through 5,000+ paragraphs in a document, to find approx 40 that have a Heading 1 style, is slow (takes minutes, and not milliseconds).

Is there a quick way of 'finding the next Heading 1 style'?

I heard that with the Paragraphs collection we don't need to loop through to work with the paragraphs. I don't know if that helps with my quest.

Thanks for any help.

Word VBA - looping and Paragraphs

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.