VBA to Copy Text Between Heading Styles to New File

[stusic]

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:

FirstTitleInHeading3Style

FirstTopicTextInNormalStyle 



SecondTitleInHeading3Style

SecondTopicTextInNormalStyle

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

FirstTitleInHeading3Style

FirstTopicTextInNormalStyle

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

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]

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

[stusic]

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]

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:

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

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

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

[Italophile]

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:

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

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

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

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

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

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

[stusic]

Originally Posted by Italophile

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

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.