Replace table and figure caption style to another style Word VBA

Guessed · #1 08-26-2021, 07:41 PM

Here is your code tidied up a bit. Note that the toggling of field codes makes an assumption that codes were not showing before the macro ran. That is risky so I changed those to explicitly set the value instead of toggling true/false.

Code:

Sub ReplaceCaptionStyle()
' Developed by Andrew Lockton (Guessed)
' Edited by laith93
' www.msofficeforums.com

' Showing all field codes (or by pressing Alt-F9):
  ActiveWindow.View.ShowFieldCodes = True
  
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    ' Replace "CapTbl" with your own alternative caption style for tables
    .Replacement.Style = ActiveDocument.Styles("CapTbl")
    .Text = "seq table"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
    
    ' Replace "CapFig" with your own alternative caption style for figures
    .Replacement.ClearFormatting
    .Replacement.Style = ActiveDocument.Styles("CapFig")
    .Text = "seq figure"
    .Execute Replace:=wdReplaceAll
  End With
    
  ' Hiding all field codes (or by pressing Alt-F9):
  ActiveWindow.View.ShowFieldCodes = False
End Sub

laith93 · #2 08-26-2021, 07:53 PM

Quote:

Originally Posted by Guessed

Here is your code tidied up a bit. Note that the toggling of field codes makes an assumption that codes were not showing before the macro ran. That is risky so I changed those to explicitly set the value instead of toggling true/false.

It's an amazing idea and new info for me in VBA
Thanks for your warning and note
We keep learning
Thanks again Mr. Andrew

laith93 · #3 08-27-2021, 01:29 PM

Quote:

Originally Posted by Guessed

Here is your code tidied up a bit. Note that the toggling of field codes makes an assumption that codes were not showing before the macro ran. That is risky so I changed those to explicitly set the value instead of toggling true/false.

Excuse me, Mr. Andrew, I think we have a mistake in our code,
when applying this code directly, only styles of the table caption changed to "CapTbl" style, while styles of the figure caption remain unchanged.

I tried to make a separate macro for each one, but only for tables work fine, while for figure ones do not work at all, so you need to use the F&R box for figures, hence is there any mistake for the figure part in our code?

However, using F&R box works fine for both tables and figures.
Also, you can download "Test" in the attachment to apply on it and explore the problem.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2007: Unable to change character style, when using a linked Char/Para style format	Last Chance	Word	3	06-09-2021 12:52 PM
Replace style in all tables in a word document.	edgar	Word VBA	5	04-02-2019 04:25 PM
Trying to customize caption text for figure table	canadianjameson	Word	6	04-02-2018 07:44 PM
Use multiple style sets in the same Word document (depending on which section the style is in)	Ricyteach	Word VBA	6	03-09-2015 07:11 PM
Changing style of caption heading	NicholaB	Word	6	12-20-2012 04:28 PM