reformat TOC (table of content) and write it to text file
I'd like to read the TOC starting from below "Part II test cases"
until the
end of TOC. After that, I need reformat the TOC hierarchy in the
format like
example below and finally write the result to a text
file.
Example:
TOC in Ms Word
Part II Test Cases
7
1 Schedule Document 7
1.1 Cleanup instance after
scheduling. 7
1.2 WebI Specific Scheduling. 8
1.3 Document
Format 9
2 Schedule to printer 9
2.1 Collate option for
Crystal Report 9
3 Default Destination. 11
3.1 Alter the
object destination to default destination. 11
3.2 Schedule to Default
Destination. 12
Text file format: (wanted)
1=/Schedule Document
2=/Schedule Document/Cleanup instance
after scheduling
3=/Schedule Document/WebI Specific
Scheduling
4=/Schedule Document/Document Format
5=/Schedule to
printer
6=/Schedule to printer/Collate option for Crystal
Report
7=/Default Destination
8=/Default Destination/Alter the
object destination to default destination
9=/Default Destination/Schedule
to Default Destination
Code so far (only reading TOC with so many bugs)
Dim pField As Word.Field
Dim pFilenum as long
Dim pIndex as
long
Dim pText as string
Const pFIND = "part II Test
Cases"
'Iterate the fields in the document
For Each pField In
ActiveDocument.Fields
'Find the TOC
If pField .Type =
wdFieldTOC Then
'Get the TOC
pText =
pField.Result
'Find "part II Test Cases"
pIndex = instr(pText, pFIND)
if pIndex = 0
then
... 'error: not found
else
pText = Mid$(pText, pIndex +
len(pFIND)
'Write the TOC to the output
file
pFileNum = Freefile
open
"C:\.....\myfile.txt" for output as pFileNum
Print pFileNum,
pText
Close #pFileNum
end
if
Exit For
End If
Next
Please help me!
Thank you
so much. Any helps will be greatly
appreciated.
