![]() |
|
|||||||
|
|
|
Thread Tools | Display Modes |
|
|
|
#1
|
|||
|
|||
|
Quote:
See, I don't need the pictures, only reference their places within the next (usually in the text I make a comment; 'see attached image'; a cue I could use when I manually go about populating my files with images again), because once I save out as plain text, I say goodbye to all HTML formatting and attached images. But before the save happens, I would need some "I was here" to help me with re-attaching the pics in the new environment. That's the whole idea. If you save out or render the text somewhere else as HTML and the images are gone or the respective paths have changed, at least you'd get an empty box inline to see this is where a picture used to be. Not with txt (which I needed to reformat for markdown). (In the meantime, I am looking at other stuff that gives me a headache; I cannot believe automating a change of fonts is so difficult in footnotes; Recorded Macro/Selection method did it once and no more.) |
|
#2
|
||||
|
||||
|
Quote:
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
#3
|
|||
|
|||
|
On the footnote: it is not the range-wide font style that is the problem. It is the fact that I want the bold chars unbolded and put the text withing double squared brackets, like so: individual bold text > [[^&]].
I can do it one by one using FIND IN but not in bulk method running the main overhaul macro. On the code you've given me, give me a sec on that one as I am trying to somehow salvage not having to strip all the way do to raw txt after all (problem is my HTML had become very unclean using Word and Pages alternately over the last 6-7 years; different colour codes as well). I'll get back to you. |
|
#4
|
|||
|
|||
|
Ultimately I couldn't make it with HTML. There simply too many inconsistencies with the formatting. Sometimes within one longer word, there are three instances of switches off and on bold text. I don't remember formatting words to bold in three separate instances.
Last edited by zanodor; 07-12-2022 at 09:57 PM. |
|
#5
|
|||
|
|||
|
EDIT.
Deleted some lines here as I managed to work out the what I had in mind in a mere couple of minutes. Of course another issue still stands: where did all the GIFs come from during my research? The problem is I cannot convert them (the PNGs are far less, thankfully) to the same number (001, 002, etc.) is it sometimes taken by a JPG that occupied an inline shape further up within the document. Anyway, I'll try to work it out outside of Word. Cheers again Z. Last edited by zanodor; 07-13-2022 at 12:49 AM. |
|
| Thread Tools | |
| Display Modes | |
|
|
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 |