Microsoft Office Forums - View Single Post - [Solved] Putting parentheses around sequence number of caption label

gmayor · 10-21-2021, 08:53 PM

Documents comprise several separate story ranges which make up the whole - much like a stack of transparencies.

The code I posted earlier acts only on the main story range i.e. the body of the document. Where other ranges need to be processed you meed to address those ranges separately.

Code:

Sub Macro1()
Dim oFld As Field
Dim oStory As Range
    For Each oStory In ActiveDocument.StoryRanges
        For Each oFld In oStory.Fields
            If oFld.Type = wdFieldSequence Then
                If InStr(1, oFld.Code, "Appendix") > 0 Then
                    oFld.Result.InsertAfter ")"
                    oFld.Result.InsertBefore "("
                End If
            End If
        Next oFld
        oStory.Fields.Update
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For Each oFld In oStory.Fields
                    If oFld.Type = wdFieldSequence Then
                        If InStr(1, oFld.Code, "Appendix") > 0 Then
                            oFld.Result.InsertAfter ")"
                            oFld.Result.InsertBefore "("
                        End If
                    End If
                Next oFldoStory.Fields.Update
            Wend
        End If
        DoEvents
    Next oStory
lbl_Exit:
    Set oStory = Nothing
    Set oFld = Nothing
    Exit Sub
End Sub

As your Word crashed - reboot the laptop and see https://www.gmayor.com/what_to_do_when_word_crashes.htm regarding orphaned files.