Thread: [Solved] Wrap each image behind text
View Single Post
 
Old 12-09-2020, 04:52 PM
gmaxey gmaxey is offline Windows 10 Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,602
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

You would start by writing some code!!
The start for the inline and floating shapes in the maintext storyrange is shown below. It is now up to you to extend that to the headers.


Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oILS As InlineShape
Dim oShp As Shape
  For Each oILS In ActiveDocument.InlineShapes
    oILS.ConvertToShape
  Next oILS
  For Each oShp In ActiveDocument.Shapes
    oShp.WrapFormat.Type = wdWrapBehind
  Next oShp
lbl_Exit:
  Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote