Putting parentheses around sequence number of caption label

gmayor · #1 10-21-2021, 04:05 AM

A simple macro should do the trick

Code:

Sub Macro1()
Dim oFld As Field
    For Each oFld In ActiveDocument.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
    Set oFld = Nothing
End Sub

Installing Macros

laith93 · #2 10-21-2021, 06:31 AM

Quote:

Originally Posted by gmayor

A simple macro should do the trick

Thank you so much my bro
It works fine, but it has a problem
It does its job if the text is present in the main body of the document, but if the text is present in the text box (I always make a group for the figure and its caption), it ignores it.
See below,
Appendix 1 caption is present in the text box, while Appendix 2 is present in the main body of the document.
04.png
Hence my bro fixes it if you can.
Thank you again

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Formula for number sequence	14spar15	Excel Programming	4	03-18-2018 07:00 PM
Assigning a string variable to a userform label caption	Larry_1	Excel Programming	3	12-18-2017 06:59 AM
how to have two formats in the Caption style: Label – number - text?	Jamal NUMAN	Word	39	03-14-2017 06:32 PM
Custom caption list label lost in a new Word session	New Daddy	Word	1	09-22-2013 09:21 AM
Custom caption label annoyance	zac	Word	1	08-29-2010 09:56 AM