Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Programming / November 2004

Tip: Looking for answers? Try searching our database.

Save each chapter in different file

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Valmir Meneses - 15 Nov 2004 21:55 GMT
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 -------
Doug Robbins - 16 Nov 2004 03:01 GMT
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.
Signature

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

> Hi MVPs,
> I need to save word document in which each chapter goes to a diferent html
[quoted text clipped - 450 lines]
> \par }}
> ----- End RTF -------

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.