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

zanodor · #11 07-12-2022, 06:48 PM

Quote:

Originally Posted by macropod

Since I have no idea what your 'main overhaul macro' is, I can't comment on that. Regardless, what you want is as simple as:

Code:

Sub ReFormatFtNts()
Application.ScreenUpdating = False
Dim FtNt As Footnote
With ActiveDocument.Range
  For Each FtNt In .Footnotes
    With FtNt.Range
      .Font.Reset
      .InsertBefore "[["
      .InsertAfter "]]"
    End With
  Next
End With
Application.ScreenUpdating = False
End Sub

Just my idea of calling transforming my files. No biggie.

As for this code, how would you point the brackets around any bolded text. How would I go about selecting a range of bold?
I tried this before (hours ago), but no go:

Code:

With rg.Find
        .Font = .Bold = True

EDIT.
Anyway, in the meantime I just converted footnotes to endnotes (it retained formatting) and found'n'replaced on the bold texts.
Another one ticked off. I think I can go to bed now.

Thanks for everything, Paul

In Lak'ech

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