Need Help with my script, Convert 1 Group TextBox from Inline with text toWrap Square then Ungroup

Guessed · #4 06-02-2023, 09:13 PM

Try this version. I'm not sure how it will go with subgroups but it appears that you can the set wrapping for multiple selected graphics in a single line and when shapes are ungrouped they inherit the parents wrapping setting.

Code:

Sub Graph_CONVERT_TxtBox_to_WrapSquare_and_Ungroup()
  Dim aShp As Shape
  Selection.Range.ShapeRange.WrapFormat.Type = wdWrapSquare
  For Each aShp In Selection.Range.ShapeRange
    If aShp.Type = msoGroup Then aShp.Ungroup
  Next aShp
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Script that can convert XML Files to Word Doc.	Rolo18	Word VBA	11	03-31-2020 02:16 PM
The "group or ungroup text range" control in the developer tab breaks my document up into many pages	damiansiniakowicz	Word	8	05-10-2018 12:30 PM
Setting a Group as Inline	mohsen.amiri	Word	2	11-10-2017 03:16 AM
Canvas + textbox + group = weird ghost bug?	somads	Word	0	11-25-2015 01:37 AM
Group records - multiple IF stmts - Text After Group	baum12	Mail Merge	1	05-25-2015 12:57 AM