Quote:
Originally Posted by zanodor
I cannot believe automating a change of fonts is so difficult in footnotes; Recorded Macro/Selection method did it once and no more.)
|
Unless you've used non-standard fonts in your footnotes, all you need to is modify the Footnote Text Style; you don't need to access even a single footnote.
You could also replace the images with code like:
Code:
Sub ReplacePics()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
For i = .ShapeRange.Count To 1 Step -1
With .ShapeRange(i)
If .Type = msoPicture Then .ConvertToInlineShape
End With
Next
For i = .InlineShapes.Count To 1 Step -1
.InlineShapes(i).Range.Text = "![[image_" & i & "]]"
Next
End With
Application.ScreenUpdating = False
End Sub