Save each chapter in different file

V

Valmir Meneses

Hi MVPs,
I need to save word document in which each chapter goes to a diferent html
page.
The document is Topic (heading 1,2,3) organized and my idea is :
1. Find each chapter
2. Copy the chapter title and the contents of the chapter, until the
beginning of a new chapter
3. Copy its content to a blank document
4. Format the new blank document heading to keep the original document
numbering
5. save the new blank document to html.
6. Loop to next chapter.

I am using office XP (2003).

I have developed the following VBA:

Public Sub CreateChapter()
Dim newdoc As Word.Document
Dim docCounter As Long
docCounter = 1
ActiveWindow.ActivePane.View.Type = wdMasterView
ActiveWindow.View.ShowAllHeadings
nCont = Word.ActiveDocument.Content.ListFormat.CountNumberedItems(Level:=1)
For n = 1 To nCont
If n <= nCont Then
Set aRange =
ActiveDocument.Range(Start:=Documents("TopicText.doc").Lists(1).ListParagraphs(n).Range.Start,
End:=Documents("TopicText.doc").Lists(1).ListParagraphs(n + 1).Range.Start -
1)
Else
Set aRange =
ActiveDocument.Range(Start:=Documents("TopicText.doc").Lists(1).ListParagraphs(n).Range.Start,
End:=Documents("TopicText.doc").Lists(1).ListParagraphs(n).Range.End)
End If
aRange.Copy
Documents.Open FileName:="c:\tst\doc.doc"
Documents("c:\tst\doc.doc").Activate
Selection.Paste
Documents("TopicText.doc").Activate
With Documents("c:\tst\doc.doc")
.SaveAs FileName:="c:\tst\Page" & CStr(docCounter),
FileFormat:=wdFormatHTML
.Close
End With
docCounter = docCounter + 1
Documents(1).Activate
Next n
End Sub



And what I have not acomplished is:
1. Cannot copy the paragraph content
2. Cannot get the level number and format the destination with the same
number.



The TopicText.doc follows in RTF format:
---- begin RTF -----
{\rtf1\ansi\ansicpg1252\uc1
\deff0\deflang1033\deflangfe2070{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose
02020603050405020304}Times New Roman;}{\f1\fswiss\fcharset0\fprq2{\*\panose
020b0604020202020204}Arial;}
{\f2\fmodern\fcharset0\fprq1{\*\panose 02070309020205020404}Courier
New;}{\f3\froman\fcharset2\fprq2{\*\panose
05050102010706020507}Symbol;}{\f14\fnil\fcharset2\fprq2{\*\panose
05000000000000000000}Wingdings;}
{\f15\fswiss\fcharset0\fprq2{\*\panose
020b0604030504040204}Tahoma;}{\f16\fnil\fcharset0\fprq2{\*\panose
02000503000000000004}Barclays{\*\falt Times New
Roman};}{\f51\froman\fcharset238\fprq2 Times New Roman CE;}
{\f52\froman\fcharset204\fprq2 Times New Roman
Cyr;}{\f54\froman\fcharset161\fprq2 Times New Roman
Greek;}{\f55\froman\fcharset162\fprq2 Times New Roman
Tur;}{\f56\froman\fcharset186\fprq2 Times New Roman
Baltic;}{\f57\fswiss\fcharset238\fprq2 Arial CE;}
{\f58\fswiss\fcharset204\fprq2 Arial Cyr;}{\f60\fswiss\fcharset161\fprq2
Arial Greek;}{\f61\fswiss\fcharset162\fprq2 Arial
Tur;}{\f62\fswiss\fcharset186\fprq2 Arial
Baltic;}{\f63\fmodern\fcharset238\fprq1 Courier New CE;}
{\f64\fmodern\fcharset204\fprq1 Courier New
Cyr;}{\f66\fmodern\fcharset161\fprq1 Courier New
Greek;}{\f67\fmodern\fcharset162\fprq1 Courier New
Tur;}{\f68\fmodern\fcharset186\fprq1 Courier New
Baltic;}{\f141\fswiss\fcharset238\fprq2 Tahoma CE;}
{\f142\fswiss\fcharset204\fprq2 Tahoma Cyr;}{\f144\fswiss\fcharset161\fprq2
Tahoma Greek;}{\f145\fswiss\fcharset162\fprq2 Tahoma
Tur;}{\f146\fswiss\fcharset186\fprq2 Tahoma
Baltic;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;
\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;
\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid \snext0
Normal;}{\s1\qj\fi-432\li432\keepn\nowidctlpar\widctlpar\jclisttab\tx432\ls1\adjustright
\b\f16\fs52\lang2070\cgrid \sbasedon0 \snext0 heading
1;}{\s2\qj\fi-576\li576\sb240\sa60\keepn\nowidctlpar\widctlpar\jclisttab\tx576\ls1\ilvl1\adjustright \b\i\f1\lang2070\cgrid \sbasedon0 \snext0 heading 2;}{
\s3\qj\fi-720\li720\sb240\sa60\keepn\nowidctlpar\widctlpar\jclisttab\tx720\ls1\ilvl2\adjustright
\f1\lang2070\cgrid \sbasedon0 \snext0 heading
3;}{\s4\qj\fi-864\li864\sb240\sa60\keepn\nowidctlpar\widctlpar\jclisttab\tx864\ls1\ilvl3\adjustright
\b\f1\lang2070\cgrid \sbasedon0 \snext0 heading
4;}{\s5\qj\fi-1008\li1008\sb240\sa60\nowidctlpar\widctlpar\jclisttab\tx1008\ls1\ilvl4\adjustright \f16\fs22\lang2070\cgrid \sbasedon0 \snext0 heading 5;}{
\s6\qj\fi-1152\li1152\sb240\sa60\nowidctlpar\widctlpar\jclisttab\tx1152\ls1\ilvl5\adjustright
\i\f16\fs22\lang2070\cgrid \sbasedon0 \snext0 heading
6;}{\s7\qj\fi-1296\li1296\sb240\sa60\nowidctlpar\widctlpar\jclisttab\tx1296\ls1\ilvl6\adjustright
\f1\fs22\lang2070\cgrid \sbasedon0 \snext0 heading
7;}{\s8\qj\fi-1440\li1440\sb240\sa60\nowidctlpar\widctlpar\jclisttab\tx1440\ls1\ilvl7\adjustright \i\f1\fs22\lang2070\cgrid \sbasedon0 \snext0 heading 8;}{
\s9\qj\fi-1584\li1584\sb240\sa60\nowidctlpar\widctlpar\jclisttab\tx1584\ls1\ilvl8\adjustright
\b\i\f1\fs18\lang2070\cgrid \sbasedon0 \snext0 heading 9;}{\*\cs10 \additive
Default Paragraph Font;}{\s15\qj\nowidctlpar\widctlpar
\tqc\tx4320\tqr\tx8640\adjustright \f16\fs22\lang2070\cgrid \sbasedon0
\snext15
header;}{\s16\qj\nowidctlpar\widctlpar\tqc\tx4320\tqr\tx8640\adjustright
\f16\fs22\lang2070\cgrid \sbasedon0 \snext16 footer;}{\*\cs17 \additive
\sbasedon10 page number;}{
\s18\qj\nowidctlpar\widctlpar\adjustright \f16\fs22\lang2070\cgrid
\sbasedon0 \snext0 \sautoupd toc
1;}{\s19\qj\li220\nowidctlpar\widctlpar\adjustright \f16\fs22\lang2070\cgrid
\sbasedon0 \snext0 \sautoupd toc 2;}{\*\cs20 \additive \ul\cf2 \sbasedon10
Hyperlink;}{\s21\qj\li440\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid \sbasedon0 \snext0 \sautoupd toc
3;}{\s22\qj\li660\nowidctlpar\widctlpar\adjustright \f16\fs22\lang2070\cgrid
\sbasedon0 \snext0 \sautoupd toc 4;}{
\s23\qj\li880\nowidctlpar\widctlpar\adjustright \f16\fs22\lang2070\cgrid
\sbasedon0 \snext0 \sautoupd toc
5;}{\s24\qj\nowidctlpar\widctlpar\adjustright \cbpat9
\f15\fs20\lang2070\cgrid \sbasedon0 \snext24 Document Map;}{\*\cs25 \additive
\ul\cf12
\sbasedon10
FollowedHyperlink;}}{\*\listtable{\list\listtemplateid-373227614{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720 }
{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li1440\jclisttab\tx1440
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0
{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li2160\jclisttab\tx2160
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880
\jclisttab\tx2880
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li3600\jclisttab\tx3600
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li4320\jclisttab\tx4320
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040
\jclisttab\tx5040
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li5760\jclisttab\tx5760
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li6480\jclisttab\tx6480 }{\listname
;}\listid459692408}{\list\listtemplateid1630301084{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0
{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0
\fi-360\li720\jclisttab\tx720
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li1440\jclisttab\tx1440 }
{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li2160\jclisttab\tx2160
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0
\fi-360\li2880\jclisttab\tx2880
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600
\jclisttab\tx3600
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li4320\jclisttab\tx4320
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1
\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li5760\jclisttab\tx5760
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li6480\jclisttab\tx6480 }{\listname
;}\listid861281479}
{\list\listtemplateid1662282430{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'01\'00;}{\levelnumbers\'01;}\fi-432\li432\jclisttab\tx432
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0
\levelindent0{\leveltext\'03\'00.\'01;}{\levelnumbers\'01\'03;}\fi-576\li576\jclisttab\tx576
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'05\'00.\'01.\'02;}{\levelnumbers\'01\'03\'05;}\fi-720\li720
\jclisttab\tx720
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'07\'00.\'01.\'02.\'03;}{\levelnumbers\'01\'03\'05\'07;}\fi-864\li864\jclisttab\tx864 }{\listlevel\levelnfc0\leveljc0\levelfollow0
\levelstartat1\levelspace0\levelindent0{\leveltext\'09\'00.\'01.\'02.\'03.\'04;}{\levelnumbers\'01\'03\'05\'07\'09;}\fi-1008\li1008\jclisttab\tx1008
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext
\'0b\'00.\'01.\'02.\'03.\'04.\'05;}{\levelnumbers\'01\'03\'05\'07\'09\'0b;}\fi-1152\li1152\jclisttab\tx1152
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext
\'0d\'00.\'01.\'02.\'03.\'04.\'05.\'06;}{\levelnumbers\'01\'03\'05\'07\'09\'0b\'0d;}\fi-1296\li1296\jclisttab\tx1296
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext
\'0f\'00.\'01.\'02.\'03.\'04.\'05.\'06.\'07;}{\levelnumbers\'01\'03\'05\'07\'09\'0b\'0d\'0f;}\fi-1440\li1440\jclisttab\tx1440
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext
\'11\'00.\'01.\'02.\'03.\'04.\'05.\'06.\'07.\'08;}{\levelnumbers\'01\'03\'05\'07\'09\'0b\'0d\'0f\'11;}\fi-1584\li1584\jclisttab\tx1584
}{\listname
;}\listid985281950}{\list\listtemplateid-1212398572{\listlevel\levelnfc23\leveljc0\levelfollow0
\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li1440\jclisttab\tx1440
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li2160\jclisttab\tx2160
}{\listlevel\levelnfc23\leveljc0\levelfollow0
\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}
\f2\fbias0 \fi-360\li3600\jclisttab\tx3600
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li4320\jclisttab\tx4320
}{\listlevel\levelnfc23\leveljc0
\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext
\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li5760\jclisttab\tx5760
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li6480\jclisttab\tx6480 }{\listname
;}\listid1153371292}{\list\listtemplateid1314542618{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720
}{\listlevel\levelnfc23\leveljc0
\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li1440\jclisttab\tx1440
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext
\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0 \fi-360\li2160\jclisttab\tx2160
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880 }
{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li3600\jclisttab\tx3600
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0
{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li4320\jclisttab\tx4320
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040
\jclisttab\tx5040
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li5760\jclisttab\tx5760
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li6480\jclisttab\tx6480 }{\listname
;}\listid1171215024}{\list\listtemplateid1662282430{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext
\'01\'00;}{\levelnumbers\'01;}\s1\fi-432\li432\jclisttab\tx432
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'03\'00.\'01;}{\levelnumbers\'01\'03;}\s2\fi-576\li576\jclisttab\tx576 }{\listlevel\levelnfc0
\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'05\'00.\'01.\'02;}{\levelnumbers\'01\'03\'05;}\s3\fi-720\li720\jclisttab\tx720
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext
\'07\'00.\'01.\'02.\'03;}{\levelnumbers\'01\'03\'05\'07;}\s4\fi-864\li864\jclisttab\tx864
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'09\'00.\'01.\'02.\'03.\'04;}{\levelnumbers\'01\'03\'05\'07\'09;}\s5
\fi-1008\li1008\jclisttab\tx1008
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'0b\'00.\'01.\'02.\'03.\'04.\'05;}{\levelnumbers\'01\'03\'05\'07\'09\'0b;}\s6\fi-1152\li1152\jclisttab\tx1152 }{\listlevel
\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\'0d\'00.\'01.\'02.\'03.\'04.\'05.\'06;}{\levelnumbers\'01\'03\'05\'07\'09\'0b\'0d;}\s7\fi-1296\li1296\jclisttab\tx1296
}{\listlevel\levelnfc0\leveljc0\levelfollow0
\levelstartat1\levelspace0\levelindent0{\leveltext\'0f\'00.\'01.\'02.\'03.\'04.\'05.\'06.\'07;}{\levelnumbers\'01\'03\'05\'07\'09\'0b\'0d\'0f;}\s8\fi-1440\li1440\jclisttab\tx1440
}{\listlevel\levelnfc0\leveljc0\levelfollow0\levelstartat1\levelspace0
\levelindent0{\leveltext\'11\'00.\'01.\'02.\'03.\'04.\'05.\'06.\'07.\'08;}{\levelnumbers\'01\'03\'05\'07\'09\'0b\'0d\'0f\'11;}\s9\fi-1584\li1584\jclisttab\tx1584
}{\listname
;}\listid1187601625}{\list\listtemplateid1412749150{\listlevel\levelnfc23
\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext
\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li1440\jclisttab\tx1440
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li2160\jclisttab\tx2160 }{\listlevel
\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880\jclisttab\tx2880
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0
{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0 \fi-360\li3600\jclisttab\tx3600
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929
?;}{\levelnumbers;}\f14\fbias0 \fi-360\li4320\jclisttab\tx4320 }
{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913
?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040\jclisttab\tx5040
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li5760\jclisttab\tx5760
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0 \fi-360\li6480
\jclisttab\tx6480 }{\listname
;}\listid1403605241}{\list\listtemplateid-1317629856{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li720\jclisttab\tx720 }
{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li1440\jclisttab\tx1440
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0
{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li2160\jclisttab\tx2160
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li2880
\jclisttab\tx2880
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li3600\jclisttab\tx3600
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li4320\jclisttab\tx4320
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01\u-3913 ?;}{\levelnumbers;}\f3\fbias0 \fi-360\li5040
\jclisttab\tx5040
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360\levelindent0{\leveltext\'01o;}{\levelnumbers;}\f2\fbias0
\fi-360\li5760\jclisttab\tx5760
}{\listlevel\levelnfc23\leveljc0\levelfollow0\levelstartat1\levelspace360
\levelindent0{\leveltext\'01\u-3929 ?;}{\levelnumbers;}\f14\fbias0
\fi-360\li6480\jclisttab\tx6480 }{\listname
;}\listid1922985703}}{\*\listoverridetable{\listoverride\listid1187601625\listoverridecount0\ls1}{\listoverride\listid1403605241
\listoverridecount0\ls2}{\listoverride\listid1171215024\listoverridecount0\ls3}{\listoverride\listid861281479\listoverridecount0\ls4}{\listoverride\listid459692408\listoverridecount0\ls5}{\listoverride\listid1922985703\listoverridecount0\ls6}
{\listoverride\listid1153371292\listoverridecount0\ls7}{\listoverride\listid985281950\listoverridecount0\ls8}}{\info{\title
Manual da aplica\'e7\'e3o}{\author Capgemini}{\operator
..}{\creatim\yr2004\mo11\dy15\hr20\min58}
{\revtim\yr2004\mo11\dy15\hr20\min58}{\printim\yr2004\mo11\dy11\hr14\min41}{\version2}{\edmins0}{\nofpages1}{\nofwords214}{\nofchars1158}{\*\company
Barclays
Bank}{\nofcharsws1370}{\vern73}}\paperw11906\paperh16838\margl851\margr851\margt1134\margb1134
\widowctrl\ftnbj\aenddoc\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\viewkind4\viewscale100\pgbrdrhead\pgbrdrfoot
\fet0{\*\ftnsep \pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {\chftnsep
\par }}{\*\ftnsepc \pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {\chftnsepc
\par }}{\*\aftnsep \pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {\chftnsep
\par }}{\*\aftnsepc \pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {\chftnsepc
\par }}\sectd \linex0\endnhere\sectdefaultcl {\footer \pard\plain
\s16\qr\nowidctlpar\widctlpar\tqc\tx4320\tqr\tx8640\adjustright
\f16\fs22\lang2070\cgrid {\field{\*\fldinst {\cgrid0 FILENAME }}{\fldrslt
{\lang1024\cgrid0 cabecalhos1.doc}}}{ - }
{\field{\*\fldinst { DATE \\@ "yy/MM/dd" }}{\fldrslt {\lang1024 04/11/15}}}{
- }{\field{\*\fldinst { TIME \\@ "h:mm AM/PM" }}{\fldrslt {\lang1024 5:40
}}}{ - }{\field{\*\fldinst {\cs17 PAGE }}{\fldrslt {\cs17\lang1024
1}}}{\cs17 / }{\field{\*\fldinst {
\cs17 NUMPAGES }}{\fldrslt {\cs17\lang1024 2}}}{
\par }}{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta
..}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang{\pntxta
..}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang{\pntxta
..}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta )}}
{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta
)}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta
)}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta
)}}{\*\pnseclvl8
\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta
)}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta
)}}{\listtext\pard\plain\s1 \b\f16\fs52\cgrid \hich\af16\dbch\af0\loch\f16
1\tab}\pard\plain
\s1\qj\fi-432\li432\keepn\nowidctlpar\widctlpar\jclisttab\tx432\ls1\outlinelevel0\adjustright \b\f16\fs52\lang2070\cgrid {First Topic
\par }\pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {
\par Aa aa aa aa a a a a a aaaa aa a a a aaaaaa aa a a a
aaaa a a a aaaaaaa aaaaa aaaaa aaaaa aaaa aaaa aaa aa Aa aa aa aa a
a a a a aaaa aa a a a aaaaaa aa a a a aaaa a a a
aaaaaaa aaaaa aaaaa aaaaa
aaaa aaaa aaa aa
\par Aa aa aa aa a a a a a aaaa aa a a a aaaaaa aa a a a
aaaa a a a aaaaaaa aaaaa aaaaa aaaaa aaaa aaaa aaa aa
\par Aa aa aa aa a a a a a aaaa aa a a a aaaaaa aa a a a
aaaa a a a aaaaaaa aaaaa aaaaa aaaaa aaaa aaaa aaa aa
\par Aa aa aa aa a a a a a aaaa aa a a a aaaaaa aa a a a
aaaa a a a aaaaaaa aaaaa aaaaa aaaaa aaaa aaaa aaa aa
\par
\par {\listtext\pard\plain\s1 \b\f16\fs52\cgrid \hich\af16\dbch\af0\loch\f16
2\tab}}\pard\plain
\s1\qj\fi-432\li432\keepn\nowidctlpar\widctlpar\jclisttab\tx432\ls1\outlinelevel0\adjustright \b\f16\fs52\lang2070\cgrid {Second Topic
\par }\pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {
\par Bbb bbbb bbbbbbbbbbbbbbbb bbbbbbbb bbbbbbbbbbbbb bbbbbbbbbbbbbbb
bbbbbbbbbbb bbbbbbbbbb bbbbbbbbbbbbbbbb bbbbbbbbbbbbbb bbbbbbbbbbbbb
bbbbbbbbbbb bbbbbbbbbbbbbbb b bbbbbbbbbbbbbbbb bbbbbbbbbbbbbbb
bbbbbbbb
\par Bbb bbbb bbbbbbbbbbbbbbbb bbbbbbbb bbbbbbbbbbbbb bbbbbbbbbbbbbbb
bbbbbbbbbbb bbbbbbbbbb bbbbbbbbbbbbbbbb bbbbbbbbbbbbbb bbbbbbbbbbbbb
bbbbbbbbbbb bbbbbbbbbbbbbbb b bbbbbbbbbbbbbbbb bbbbbbbbbbbbbbb
bbbbbbbb
\par Bbb bbbb bbbbbbbbbbbbbbbb bbbbbbbb bbbbbbbbbbbbb bbbbbbbbbbbbbbb
bbbbbbbbbbb bbbbbbbbbb bbbbbbbbbbbbbbbb bbbbbbbbbbbbbb bbbbbbbbbbbbb
bbbbbbbbbbb bbbbbbbbbbbbbbb b bbbbbbbbbbbbbbbb bbbbbbbbbbbbbbb
bbbbbbbb
\par
\par {\listtext\pard\plain\s1 \b\f16\fs52\cgrid \hich\af16\dbch\af0\loch\f16
3\tab}}\pard\plain
\s1\qj\fi-432\li432\keepn\nowidctlpar\widctlpar\jclisttab\tx432\ls1\outlinelevel0\adjustright \b\f16\fs52\lang2070\cgrid {Third Topic
\par {\*\bkmkstart Entrar_na_aplica\'e7\'e3o}{\*\bkmkstart
_Toc88279196}{\listtext\pard\plain\s2 \b\i\f1\cgrid
\hich\af1\dbch\af0\loch\f1 3.1\tab}}\pard\plain
\s2\qj\fi-576\li576\sb240\sa60\keepn\nowidctlpar\widctlpar
\jclisttab\tx576\ls1\ilvl1\outlinelevel1\adjustright \b\i\f1\lang2070\cgrid
{First sub-topic level 2{\*\bkmkend _Toc88279196}
\par }\pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {{\*\bkmkend Entrar_na_aplica\'e7\'e3o}
Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub
2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub
2 Sub
2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub 2
S
ub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub
2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2 Sub 2
Sub 2
\par {\*\bkmkstart Entrada_operacional_inicial}{\listtext\pard\plain\s2
\b\i\f1\cgrid \hich\af1\dbch\af0\loch\f1 3.2\tab}}\pard\plain
\s2\qj\fi-576\li576\sb240\sa60\keepn\nowidctlpar\widctlpar\jclisttab\tx576\ls1\ilvl1\outlinelevel1\adjustright
\b\i\f1\lang2070\cgrid {Second sub-topic level 2
\par }\pard\plain \qj\nowidctlpar\widctlpar\adjustright
\f16\fs22\lang2070\cgrid {{\*\bkmkend Entrada_operacional_inicial}Sub 22 Sub
22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub
22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub
22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub
22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub
22 Sub 22 Sub 22 Sub 22
Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22
Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22
Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22 Sub 22
\par {\*\bkmkstart _Toc88279236}{\listtext\pard\plain\s3 \f1\cgrid
\hich\af1\dbch\af0\loch\f1 3.2.1\tab}}\pard\plain
\s3\qj\fi-720\li720\sb240\sa60\keepn\nowidctlpar\widctlpar\jclisttab\tx720\ls1\ilvl2\outlinelevel2\adjustright \f1\lang2070\cgrid {
First sub-sub-topic level 3
\par {\*\bkmkend _Toc88279236}{\listtext\pard\plain\s3 \f1\cgrid
\hich\af1\dbch\af0\loch\f1 3.2.2\tab}Second sub-sub-topic level 3
\par {\listtext\pard\plain\s2 \b\i\f1\cgrid \hich\af1\dbch\af0\loch\f1
3.3\tab}}\pard\plain
\s2\qj\fi-576\li576\sb240\sa60\keepn\nowidctlpar\widctlpar\jclisttab\tx576\ls1\ilvl1\outlinelevel1\adjustright
\b\i\f1\lang2070\cgrid {Third sub-topic level 2
\par }}
----- End RTF -------
 
D

Doug Robbins

You will probably need to use

ActiveDocument.ConvertNumbersToText

to replace all the Heading Style Numbering to text numbers so that they will
not change. Before that, you should use some code to insert a section break
at the beginning of each chapter. Then you could use something like the
following to create a separate document for each Section:

Sub splitter()

' splitter Macro

' Macro created by Doug Robbins to save each letter created by a mailmerge
as a separate file.

Dim i As Long, Source as Document, Target as Document, Letter as Range
Set Source = ActiveDocument
For i = 1 to Source.Sections.Count
Set Letter = Source.Sections(i).Range
Letter.End=Letter.End-1
Set Target = Documents.Add
Target.Range=Letter
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i

End Sub

You will need to have used the .Information function to get the first page
number of each section so that you can use that with

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.StartingNumber=

to set the starting page number in each document.

Hope you can piece it all together from there.
--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Scrambled e-mails 0

Top