Forum Discussion

Copper Contributor

May 16, 2023

VBA - Range to include numbered lists

Hello. If you have a minute, I'm extracting text from a range within MS Word...for example... targetRange.Start=200 targetRange.End=500 This returns all the text (targetRange.Text) but since...

Tom_Griffith

Copper Contributor

Jul 14, 2023

Hello. I fond something was up with this a month or so later. I'm not so sure, but I think when there are no numbered lists, the Undo doesn't see the Worddoc.ConvertNuberstoText as a change and prroceeds to undo the previous target (in this case, adding some line of text to a range). That line of text always disappears. I'm going t try to run more tests to see but is there a boolean thing I could try to check if ConvertNumbersToText applied a change? thank you.

Doug_Robbins_Word_MVP

MVP

Jul 14, 2023

Tom_Griffith With the following code, if there are no numbered lists, the code will be terminated after the .ConvertNumberstoText

Dim blnConvert As Boolean
With ActiveDocument
    .UndoClear
    .Save
    .ConvertNumbersToText
    blnConvert = .Saved
    If blnConvert = True Then
        Exit Sub
    End If
    Selection.Range.Text = Replace(Selection.Range.Text, vbTab, " ")
    'do what you want to
    .Undo (3) 'may need to replace 3 to allow for other changes that you make
End With

TomGriffith3
Brass Contributor
Oct 13, 2023
Doug_Robbins_Word_MVP thanks so much. I had to jump off this for a little while and came back to it the other day. I took your suggestion and kind of do something similar, because if there are no numbered lists, there still is processing to be done.. I parse all the paragraphs in the doc, if gwordDoc.Paragraphs(i).Range.ListFormat.ListType=3 is encountered, set the boolean blnConvert to true. If blnConvert=true, do the gWordDoc.ConvertNumbersToText, do the stuff then call the gWordDoc.Undo.

Otherwise, if gwordDoc.Paragraphs(i).Range.ListFormat.ListType=3 is not encountered parsing the gWordDoc paragraphs, just do the stuff.