Macro to Change In-Text Citation Font Size
With some help from the FAQ-section of BibWord I created a macro to change the font size of the In-text Citation (from Calibri 11 to Calibri 9).
The Macro does run, but doesn't change anything and I don't know why.
Can anybody help me with this problem?
This is the Macro I used:
Dim stylename As String
Dim exists As Boolean
Dim s As Style
Dim fld As Field
stylename = "In-Text Citation"
' Check if the style already exists.
exists = False
For Each s In ActiveDocument.Styles
If s.NameLocal = stylename Then
exists = True
' If the style did not exist yet, create it.
If exists = False Then
Set s = ActiveDocument.Styles.Add(stylename, wdStyleTypeCharacter)
s.BaseStyle = ActiveDocument.Styles(wdStyleDefaultParagraphFont) .BaseStyle
Selection.Font.Size = 9 = True
' Now that the style really exists, select it.
Set s = ActiveDocument.Styles(stylename)
' Apply the style to all in-text citations.
For Each fld In ActiveDocument.Fields
If fld.Type = wdFieldCitation Then
Selection.Style = s