Create new .doc files in every heading level

Hi All,

I'm a newbie on VB and I need little help. I have a long .doc document
and my target is create new docs on every heading level.

For example my document looks like this:

1. General
This is general.
1.1 Cars
Here you can find cars.
1.2 Houses
Here you cand find houses.
2. Theory
This is theory.

So if I have a nice script it creates 4 files:
general.doc, cars.doc, houses.doc and theory.doc.

These files contains text between headings e.g. general.doc includes
text "This is general" and houses.doc "Here you can find houses"

I try to build a script but I found too many problems :(. Here is the
body of my code.


Sub create_files_from_headings()

all_Headings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)

For i = 1 To UBound(all_Headings)

MsgBox (myHeadings(i)) 'only for test purpose

ActiveDocument.Content.InsertAfter Text:=myHeadings(i)

Next i

End Sub

Thanks in advance !

JeanGuyMarcil
Tue Feb 26 05:33:01 PST 2008

"Jim" wrote:

> Hi All,
>
> I'm a newbie on VB and I need little help. I have a long .doc document
> and my target is create new docs on every heading level.
>
> For example my document looks like this:
>
> 1. General
> This is general.
> 1.1 Cars
> Here you can find cars.
> 1.2 Houses
> Here you cand find houses.
> 2. Theory
> This is theory.
>
> So if I have a nice script it creates 4 files:
> general.doc, cars.doc, houses.doc and theory.doc.
>
> These files contains text between headings e.g. general.doc includes
> text "This is general" and houses.doc "Here you can find houses"
>
> I try to build a script but I found too many problems :(. Here is the
> body of my code.
>
>
> Sub create_files_from_headings()
>
> all_Headings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
>
> For i = 1 To UBound(all_Headings)
>
> MsgBox (myHeadings(i)) 'only for test purpose
>
> ActiveDocument.Content.InsertAfter Text:=myHeadings(i)
>
> Next i
>
> End Sub

Here is somthing that is a bit twisted, but it works. I am sure someone will
come up with a more elegant solution that does not use so many flags! There
must be a way with the Find dialog, but I do not have time to look into it
right now...


Sub create_files_from_headings()

Dim docTarget As Document
Dim docSource As Document
Dim strPath As String
Dim i As Long
Dim rgeTarget As Range
Dim boolStart As Boolean
Dim boolCreate As Boolean
Dim boolEnd As Boolean

strPath = "C:\My Documents\Test\"
Set docSource = ActiveDocument
boolStart = False
boolCreate = False
boolEnd = False
i = 1

Application.ScreenUpdating = False

With docSource.Range.Paragraphs
For i = 1 To .Count
If i = .Count Then
rgeTarget.End = docSource.Range.End
boolStart = False
boolCreate = True
boolEnd = True
End If
If (.Item(i).Style = docSource.Styles(wdStyleHeading1) Or _
.Item(i).Style = docSource.Styles(wdStyleHeading2)) Or _
boolEnd Then
If Not boolEnd Then
If Not boolStart Then
Set rgeTarget = .Item(i).Range
boolStart = True
Else
rgeTarget.End = .Item(i).Range.Start
boolStart = False
boolCreate = True
i = i - 1
End If
End If
If boolCreate Then
Set docTarget = Application.Documents.Add
With docTarget
.Range.FormattedText = rgeTarget
.SaveAs strPath & .Range.Words(1).Text
.Close
boolCreate = False
End With
End If
End If
Next
End With

Application.ScreenUpdating = True
Application.ScreenRefresh

End Sub


Also, you will need to add something to check that each document created has
a unique name, otherwise the latesr ones will overwrite the previous ones. I
guess that you could add the "i" to the name to ensure a certain uniqueness.
You could change the line
.SaveAs strPath & .Range.Words(1).Text
for
.SaveAs strPath & i & "_" & .Range.Words(1).Text

frank112
Fri Feb 29 04:23:01 PST 2008

Thank you very much for this peace of code even though I wasn't the one
asking the question. In relation to that however. Has the code been worked on
to make the process more efficient? I tried to rund the code i word 2007 on a
document of about 100 pages and it takes like 30 minutes. Therefore if
anybody know a faster or better way of coding this please help out.
Thanks in advance A+
frank112

"Jean-Guy Marcil" wrote:

> "Jim" wrote:
>
> > Hi All,
> >
> > I'm a newbie on VB and I need little help. I have a long .doc document
> > and my target is create new docs on every heading level.
> >
> > For example my document looks like this:
> >
> > 1. General
> > This is general.
> > 1.1 Cars
> > Here you can find cars.
> > 1.2 Houses
> > Here you cand find houses.
> > 2. Theory
> > This is theory.
> >
> > So if I have a nice script it creates 4 files:
> > general.doc, cars.doc, houses.doc and theory.doc.
> >
> > These files contains text between headings e.g. general.doc includes
> > text "This is general" and houses.doc "Here you can find houses"
> >
> > I try to build a script but I found too many problems :(. Here is the
> > body of my code.
> >
> >
> > Sub create_files_from_headings()
> >
> > all_Headings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
> >
> > For i = 1 To UBound(all_Headings)
> >
> > MsgBox (myHeadings(i)) 'only for test purpose
> >
> > ActiveDocument.Content.InsertAfter Text:=myHeadings(i)
> >
> > Next i
> >
> > End Sub
>
> Here is somthing that is a bit twisted, but it works. I am sure someone will
> come up with a more elegant solution that does not use so many flags! There
> must be a way with the Find dialog, but I do not have time to look into it
> right now...
>
>
> Sub create_files_from_headings()
>
> Dim docTarget As Document
> Dim docSource As Document
> Dim strPath As String
> Dim i As Long
> Dim rgeTarget As Range
> Dim boolStart As Boolean
> Dim boolCreate As Boolean
> Dim boolEnd As Boolean
>
> strPath = "C:\My Documents\Test\"
> Set docSource = ActiveDocument
> boolStart = False
> boolCreate = False
> boolEnd = False
> i = 1
>
> Application.ScreenUpdating = False
>
> With docSource.Range.Paragraphs
> For i = 1 To .Count
> If i = .Count Then
> rgeTarget.End = docSource.Range.End
> boolStart = False
> boolCreate = True
> boolEnd = True
> End If
> If (.Item(i).Style = docSource.Styles(wdStyleHeading1) Or _
> .Item(i).Style = docSource.Styles(wdStyleHeading2)) Or _
> boolEnd Then
> If Not boolEnd Then
> If Not boolStart Then
> Set rgeTarget = .Item(i).Range
> boolStart = True
> Else
> rgeTarget.End = .Item(i).Range.Start
> boolStart = False
> boolCreate = True
> i = i - 1
> End If
> End If
> If boolCreate Then
> Set docTarget = Application.Documents.Add
> With docTarget
> .Range.FormattedText = rgeTarget
> .SaveAs strPath & .Range.Words(1).Text
> .Close
> boolCreate = False
> End With
> End If
> End If
> Next
> End With
>
> Application.ScreenUpdating = True
> Application.ScreenRefresh
>
> End Sub
>
>
> Also, you will need to add something to check that each document created has
> a unique name, otherwise the latesr ones will overwrite the previous ones. I
> guess that you could add the "i" to the name to ensure a certain uniqueness.
> You could change the line
> .SaveAs strPath & .Range.Words(1).Text
> for
> .SaveAs strPath & i & "_" & .Range.Words(1).Text

JeanGuyMarcil
Fri Feb 29 05:40:01 PST 2008

"frank112" wrote:

> Thank you very much for this peace of code even though I wasn't the one
> asking the question. In relation to that however. Has the code been worked on
> to make the process more efficient? I tried to rund the code i word 2007 on a
> document of about 100 pages and it takes like 30 minutes. Therefore if
> anybody know a faster or better way of coding this please help out.

Every time you run through the paragraph collection, the code is slow.

You could use Range.Find to speed things up.

I do not have the time right now to rewrite the code and test it, but in a
nutshell: Define a range for the document.
Then find the first Heading 1 paragraph.
Then find the first Heading 2. paragraph.
Set a range ("Found1") starting at whichever range is the first in the
document (You would assume that it shold be HEading 1, but you never know!).
Then repeat the process, but now set a range starting at the end of the
found paragraph to the end of the document (It might be a heading 1 or a
Heading 2).
When you find the next heading, set the first range ("Found1") to finish
where the second found heading starts.
Export that range to a new document.
Rinse and repeat...

fumei
Fri Feb 29 11:23:16 PST 2008

Jean-Guy is right. Use Range. However, the BIG question is:

1. General
This is general.
1.1 Cars
Here you can find cars.
1.2 Houses
Here you cand find houses.
2. Theory
This is theory.

So if I have a nice script it creates 4 files:
general.doc, cars.doc, houses.doc and theory.doc.

OK. But does general.doc INCLUDE Cars.doc and Houses.doc.?

In other words:

Doc_A (General) = 1. General
This is general.
1.1 Cars
Here you can find cars.
1.2 Houses
Here you cand find houses.

Doc_B (Cars) =
1.1 Cars
Here you can find cars.

Doc_C (Houses) =
1.2 Houses
Here you cand find houses.

Doc_D (Theory) =
2. Theory
This is theory.

Or do you really want to separate it, like:

Doc_A (General) = 1. General
This is general.

Doc_B (Cars) =
1.1 Cars
Here you can find cars.

Doc_C (Houses) =
1.2 Houses
Here you cand find houses.

Doc_D (Theory) =
2. Theory
This is theory.

This is a logic specification, and must be settled. Both could be done using
the general suggestions Jean-Guy made...but you have to decide.

Jean-Guy Marcil wrote:
>> Thank you very much for this peace of code even though I wasn't the one
>> asking the question. In relation to that however. Has the code been worked on
>> to make the process more efficient? I tried to rund the code i word 2007 on a
>> document of about 100 pages and it takes like 30 minutes. Therefore if
>> anybody know a faster or better way of coding this please help out.
>
>Every time you run through the paragraph collection, the code is slow.
>
>You could use Range.Find to speed things up.
>
>I do not have the time right now to rewrite the code and test it, but in a
>nutshell: Define a range for the document.
>Then find the first Heading 1 paragraph.
>Then find the first Heading 2. paragraph.
>Set a range ("Found1") starting at whichever range is the first in the
>document (You would assume that it shold be HEading 1, but you never know!).
>Then repeat the process, but now set a range starting at the end of the
>found paragraph to the end of the document (It might be a heading 1 or a
>Heading 2).
>When you find the next heading, set the first range ("Found1") to finish
>where the second found heading starts.
>Export that range to a new document.
>Rinse and repeat...

--
Message posted via http://www.officekb.com

frank112
Sun Mar 02 21:52:00 PST 2008

The ansver to your question is, no it only includes the content until it hits
the next heading with a style number 1 or 2. But that can be defined
dependently on the level you describe in the code.


"fumei via OfficeKB.com" wrote:

> Jean-Guy is right. Use Range. However, the BIG question is:
>
> 1. General
> This is general.
> 1.1 Cars
> Here you can find cars.
> 1.2 Houses
> Here you cand find houses.
> 2. Theory
> This is theory.
>
> So if I have a nice script it creates 4 files:
> general.doc, cars.doc, houses.doc and theory.doc.
>
> OK. But does general.doc INCLUDE Cars.doc and Houses.doc.?
>
> In other words:
>
> Doc_A (General) = 1. General
> This is general.
> 1.1 Cars
> Here you can find cars.
> 1.2 Houses
> Here you cand find houses.
>
> Doc_B (Cars) =
> 1.1 Cars
> Here you can find cars.
>
> Doc_C (Houses) =
> 1.2 Houses
> Here you cand find houses.
>
> Doc_D (Theory) =
> 2. Theory
> This is theory.
>
> Or do you really want to separate it, like:
>
> Doc_A (General) = 1. General
> This is general.
>
> Doc_B (Cars) =
> 1.1 Cars
> Here you can find cars.
>
> Doc_C (Houses) =
> 1.2 Houses
> Here you cand find houses.
>
> Doc_D (Theory) =
> 2. Theory
> This is theory.
>
> This is a logic specification, and must be settled. Both could be done using
> the general suggestions Jean-Guy made...but you have to decide.
>
> Jean-Guy Marcil wrote:
> >> Thank you very much for this peace of code even though I wasn't the one
> >> asking the question. In relation to that however. Has the code been worked on
> >> to make the process more efficient? I tried to rund the code i word 2007 on a
> >> document of about 100 pages and it takes like 30 minutes. Therefore if
> >> anybody know a faster or better way of coding this please help out.
> >
> >Every time you run through the paragraph collection, the code is slow.
> >
> >You could use Range.Find to speed things up.
> >
> >I do not have the time right now to rewrite the code and test it, but in a
> >nutshell: Define a range for the document.
> >Then find the first Heading 1 paragraph.
> >Then find the first Heading 2. paragraph.
> >Set a range ("Found1") starting at whichever range is the first in the
> >document (You would assume that it shold be HEading 1, but you never know!).
> >Then repeat the process, but now set a range starting at the end of the
> >found paragraph to the end of the document (It might be a heading 1 or a
> >Heading 2).
> >When you find the next heading, set the first range ("Found1") to finish
> >where the second found heading starts.
> >Export that range to a new document.
> >Rinse and repeat...
>
> --
> Message posted via http://www.officekb.com
>
>

Jim
Thu Apr 03 23:39:00 PDT 2008

Hi All,

Thanks very much everyone! Your advices solved my problem.