Hi All,
I am inserting an HTML file into a word table
Code:
Set rngTarget = Mod_Tables.WrdTbl3.Cell(1, 1).Range
Set FSO = CreateObject("Scripting.FileSystemObject")
strTempFile = FSO.getspecialfolder(2) & "\" & FSO.GetTempName & ".htm"
Set f = FSO.createtextfile(strTempFile, True)
f.write strHTMLText
f.Close
Set f = Nothing
rngTarget.InsertFile strTempFile
Easy enough. The above inserts the HTML file directly into the place I need it, however, the HTML output contains lists. And when it dumps the file into the document the list continues from its previous list.
So after a bit of hunting I found something like this:
Code:
Dim aList As ListFormat
Set aList = rngTarget.ListFormat
aList.ApplyListTemplate ListTemplate:=aList.ListTemplate, ContinuePreviousList:=False
This is not right. The first problem is that I need to identify the first list item, and make it continuous. not every item.
I can loop every para in the table, but how can I know it's the first list item and how can I reset it to 1?
Thanks in advance.