Move object with text

Having many small screen shots to put into a Word document I prefer to let
the objects dictate where the text goes rather that the other way round. I
therefore have to un-tick 'Move object with text'.

I have tried to record a macro but 'greyed' commands prevent that.



Can you help please?



Francis Hookham

HelmutWeber
Fri Oct 12 02:13:01 PDT 2007

Hi Francis

Sub Test0067()
Dim oInl As InlineShape
For Each oInl In ActiveDocument.InlineShapes
oInl.ConvertToShape
Next
End Sub

In case you are using Word 2007, you might need:

Sub Test0067()
Dim n As Long
With ActiveDocument
For n = .InlineShapes.Count To 1 Step -1
.InlineShapes(n).ConvertToShape
Next
End With
End Sub

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000 (german versions)

Francis
Fri Oct 12 03:55:02 PDT 2007

Wow - that was quick - thank you Helmut, I shall try that after the
weekend - just off for our annual walking weekend with Rotary friends.

Many thanks.

Francis in Cambridge, UK


"Helmut Weber" <HelmutWeber@discussions.microsoft.com> wrote in message
news:063B2948-231D-47C8-A858-D6A341C8FE70@microsoft.com...
> Hi Francis
>
> Sub Test0067()
> Dim oInl As InlineShape
> For Each oInl In ActiveDocument.InlineShapes
> oInl.ConvertToShape
> Next
> End Sub
>
> In case you are using Word 2007, you might need:
>
> Sub Test0067()
> Dim n As Long
> With ActiveDocument
> For n = .InlineShapes.Count To 1 Step -1
> .InlineShapes(n).ConvertToShape
> Next
> End With
> End Sub
>
> --
> Greetings from Bavaria, Germany
> Helmut Weber, MVP WordVBA
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000 (german versions)
>
>
>

Francis
Fri Oct 12 04:34:48 PDT 2007

I should not be doing this I should be packing but...

I could not resist a quick look and it is great. It would be even better if
I could include text wrapping but I do not know how to incorporate that into
the For...Next loop using the variable oInl.

Now I HAVE gone and will look again on Sunday night!

(It would be good to define the space at sides and top/bottom)

Thanks

Francis


"Helmut Weber" <HelmutWeber@discussions.microsoft.com> wrote in message
news:063B2948-231D-47C8-A858-D6A341C8FE70@microsoft.com...
> Hi Francis
>
> Sub Test0067()
> Dim oInl As InlineShape
> For Each oInl In ActiveDocument.InlineShapes
> oInl.ConvertToShape
> Next
> End Sub
>
> In case you are using Word 2007, you might need:
>
> Sub Test0067()
> Dim n As Long
> With ActiveDocument
> For n = .InlineShapes.Count To 1 Step -1
> .InlineShapes(n).ConvertToShape
> Next
> End With
> End Sub
>
> --
> Greetings from Bavaria, Germany
> Helmut Weber, MVP WordVBA
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000 (german versions)
>
>
>