Warning: Trying to access array offset on value of type bool in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/functions.php on line 2494
Change default caption style in Word

Deprecated: rtrim(): Passing null to parameter #1 ($string) of type string is deprecated in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/class-et-builder-element.php on line 12385

Deprecated: rtrim(): Passing null to parameter #1 ($string) of type string is deprecated in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/class-et-builder-element.php on line 12385

Deprecated: rtrim(): Passing null to parameter #1 ($string) of type string is deprecated in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/class-et-builder-element.php on line 12385

Deprecated: rtrim(): Passing null to parameter #1 ($string) of type string is deprecated in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/class-et-builder-element.php on line 12385

Deprecated: rtrim(): Passing null to parameter #1 ($string) of type string is deprecated in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/class-et-builder-element.php on line 12385

Deprecated: rtrim(): Passing null to parameter #1 ($string) of type string is deprecated in /home/xtina102050/public_html/wp-content/themes/Divi/includes/builder/class-et-builder-element.php on line 12385

Share

After you’ve already got at least one style in the document, find the Caption style in the Styles section of the Home tab, and then right-click.

Select Modify to open up the Modify Style dialog box.  You might be able to make all your changes in the Formatting section as indicated below.  If you need to make other changes (like space before or indenting, for example) click on the Format button for more options.

To change the Caption style for all documents, make sure that the New documents based on this template radio button is selected.

 

Sub CaptionBold()
Application.ScreenUpdating = False
With ActiveDocument.Range
With .Find
.ClearFormatting
.Text = “”
.Style = “Caption”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Do While .Find.Found
With .Paragraphs.Last.Range.Duplicate
.End = .Start + Len(Split(.Text, ” “)(0)) + 1
.MoveEndUntil ” “, wdForward
.Style = “Strong”
End With
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
Application.ScreenUpdating = True
End Sub

Share