Insert Image Reference in Each Deprecated Picture's Place in Multiple Documents

macropod · #6 07-12-2022, 03:27 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Insert Image(logo) into header for multiple Word Docs	Axis	Word VBA	4	02-09-2022 10:34 PM
Changing footer image in Multiple word documents	killabyte	Word VBA	2	09-23-2020 05:49 AM
How to place an image placeholder that scales the image to the full frame size in a template	Cube	Word	5	07-05-2020 08:27 AM
Adding Title Image to Multiple Documents.	Agog	Word VBA	4	05-03-2018 05:30 AM
Replace footer image in multiple Word documents	heyjim	Drawing and Graphics	1	08-07-2015 05:23 PM