Find and replace graphics.

[Dragoncity]

Hi,
I'm very new to macros and VBA, and need help.

I need to replace all the graphics in a Word document using Paste Special so
they are converted from HTML linked images to embedded images.

I have recorded the macro to do this, but I want the whole action to repeat
(find graphic, cut, paste, move to next graphic)

I have tried to look at the samples available, but I'm WAAAAY above my head
on this. Any help would be just peachy

My current macro is:

Sub ChangeImage()
'
' ChangeImage Macro
' Macro recorded 27/10/06 by Nicola Harlow
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Cut
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject,
Placement _
:=wdInLine, DisplayAsIcon:=False
End Sub

I've tried Repeat, but that just re-does the paste. Not useful.

Thanks,

Nicola

 

[Graham Mayor]

Am I missing something here - will CTRL+A - then - CTRL+SHIFT+F9 not do what
you want?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Dragoncity]

Sorry, what does CTRL+SHIFT+F9 do?

If it does what I want then that's great!

 

[Dragoncity]

My bad, should have tried it first.

That's a great shortcut, thanks! I converts them easily

Thank you so much, that's saved me a lot of hassle!

Nicola

 

[Dragoncity]

Sorry, after investigation I discovered that it removed all of the hyperlinks
as well. Although having hyperlinks in Word is not ideal, it's better than
nothing!

So I still need to find a way of repeating the code down the document.
Suggestions? Ta.

 

[Dave Lett]

Hi,

Does the following meet your needs?

Dim iFld As Integer

For iFld = ActiveDocument.Fields.Count To 1 Step -1
With ActiveDocument.Fields(iFld)
If .Type = wdFieldIncludePicture Then
.Unlink
End If
End With
Next iFld

HTH,

Dave

 

[Dragoncity]

Perfect, thanks!

Nicola

Hi,

Does the following meet your needs?

Dim iFld As Integer

For iFld = ActiveDocument.Fields.Count To 1 Step -1
With ActiveDocument.Fields(iFld)
If .Type = wdFieldIncludePicture Then
.Unlink
End If
End With
Next iFld

HTH,

Dave