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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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