adding text before and after an image

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

rani - 21 Sep 2006 23:36 GMT

i have to add a text <image> before all the images and </image> after all the
images in a MS word doc using VBA coding.

can anyone help me with its code?

Reply to this Message

Jezebel - 21 Sep 2006 23:55 GMT

Dim pShape as Word.Shape
For each pShape in ActiveDocument.InlineShapes
with pShape.Range
.InsertBefore "<image>"
.InsertAfter "</image">
end with
Next

This assumes that your images are inline (rather than floating). If they're
floating, you'll need to provide more info about the intended result.

>i have to add a text <image> before all the images and </image> after all
>the
> images in a MS word doc using VBA coding.
>
> can anyone help me with its code?

Reply to this Message

rani - 22 Sep 2006 00:30 GMT

Dear Jezebel
thanks for your help. i tried your code but it is not working. it shows some
error in the third line of your code. it selects ".range" and gives a message
that data member not found.

> Dim pShape as Word.Shape
> For each pShape in ActiveDocument.InlineShapes
[quoted text clipped - 12 lines]
> >
> > can anyone help me with its code?

Reply to this Message

Helmut Weber - 22 Sep 2006 01:03 GMT

Hi Rani,

>> Dim pShape as Word.Shape

Dim pShape as Word.InlineShape

>> .InsertAfter "</image">

.InsertAfter "</image>"

It's cheap, of course,
to correct a minor mistake and a typo.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Rate this thread: