Restarting a List

Journeyman · #1 09-11-2023, 08:11 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multilevel list level 6 not restarting after level 5	Venteux	Word	12	04-22-2022 06:43 AM
Figure #s keep restarting at 2	sherrirbgr	Word	2	04-25-2018 08:07 AM
Restarting numbered lists in each Heading section with VBA	CN13579	Word VBA	2	11-02-2016 11:54 AM
RESTARTING page numbering in a sectioned document.	jp91306	Word	3	01-01-2016 12:27 AM
Numbering not restarting at 1 between list styles	cotjoey	Word	11	09-21-2014 07:54 AM