Applying a custom paragraph style to drawing canvasses (featuring "inline with text")

[andreas]

Below macro applies a custom paragraph style to all graphics that have
been put "inline with text". It is running fine.

Sub ApplyCustomParagraphStyleToInlineGraphics()
Dim ilsh As InlineShape
For Each ilsh In ActiveDocument.InlineShapes
ilsh.Range.Style = "CustomParagraphStyle"
Next ilsh
End Sub

I now would like to apply a custom paragraph style to all drawing
canvasses of a document that have also been preformatted to be "inline
with text". I have got no idea how to do this using VBA.

Any help is greatly appreciated. Thank you very much in advance.

Regards,

Andreas

 

[Greg Maxey]

Again very limited testing:

Sub ScratchMacro()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.WrapFormat.Type = wdWrapInline Then
oShp.Anchor.Style = "CustomParagraphSytle"
End If
Next
End Sub

 

[andreas]

Again very limited testing:

Sub ScratchMacro()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.WrapFormat.Type = wdWrapInline Then
oShp.Anchor.Style = "CustomParagraphSytle"
End If
Next
End Sub

--
Greg Maxey/Word MVP
See:http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.







- Zitierten Text anzeigen -

Greg,

Great, it is working. Again, thank you very much for your valuable
help in this forum.

Regards, Andreas