VBA to Copy Text Between Heading Styles to New File

stusic · #1 01-03-2025, 03:07 PM

Hello All!

I've got a lengthy document and I need to create individual documents for each of the headings I have to a new file.

It's laid out like this:

Code:

FirstTitleInHeading3Style

FirstTopicTextInNormalStyle 



SecondTitleInHeading3Style

SecondTopicTextInNormalStyle

From the following example, one file (FirstTitleInHeading3Style.doc) would be:

Code:

FirstTitleInHeading3Style

FirstTopicTextInNormalStyle

And the next file (SecondTitleInHeading3Style.doc) would be:

Code:

SecondTitleInHeading3Style

SecondTopicTextInNormalStyle

I know there's a way to separate it by isolating the text between the styles (Header 3), but I'm not sure how to go about it.

Any help would be greatly appreciated.

Thanks!

-stu

macropod · #2 01-03-2025, 03:35 PM

See: https://www.msofficeforums.com/word-...save-file.html

stusic · #3 01-06-2025, 07:40 AM

Quote:

Originally Posted by macropod

See: https://www.msofficeforums.com/word-...save-file.html

That's perfect! I don't know how I didn't find that in my search, but thanks again!

stusic · #4 01-06-2025, 08:00 AM

One question I ran into, but didn't want to resurrect a dead thread: What if I don't have any bookmarks in my doc? I get an error when I get to this:

Code:

Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLeve3")

As a guess, I tried this (but didn't work either, surprised /s)

Code:

Set Rng = Rng.GoTo(What:=wdGoHeading, Name:="\HeadingLeve3")

Italophile · #5 01-06-2025, 08:26 AM

Quote:

Originally Posted by stusic

One question I ran into, but didn't want to resurrect a dead thread: What if I don't have any bookmarks in my doc? I get an error when I get to this:

Code:

Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLeve3")

As a guess, I tried this (but didn't work either, surprised /s)

Code:

Set Rng = Rng.GoTo(What:=wdGoHeading, Name:="\HeadingLeve3")

Your code is incorrect. The code linked to by macropod is:

Code:

Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")

You can learn more about predefined bookmarks in Word at Predefined Bookmarks | Microsoft Learn

stusic · #6 01-06-2025, 10:15 AM

Quote:

Originally Posted by Italophile

Your code is incorrect. The code linked to by macropod is:

Code:

Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")

You can learn more about predefined bookmarks in Word at Predefined Bookmarks | Microsoft Learn

Oh wow, a typo. I read it as "HeadingLevel1" and still messed it up, lol. Thanks, I appreciate it.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Stop styles from being copy pasted along with text	Word_fail	Word	4	07-10-2017 05:50 AM
Style for Text Changes from Normal to Heading 1 when Copy-Pasted	Basia	Word	8	08-15-2015 02:32 PM
Heading styles with text formatting	othromas	Word	9	11-13-2013 03:10 PM
Styles: Heading 4 stuck at same heading number	Hallet	Word	1	05-31-2012 02:37 PM
Copy + Paste from Word to Word WITHOUT heading styles	altjx	Word	4	04-18-2012 12:36 AM