Microsoft Office Forums - View Single Post - Need Help with my script, Convert 1 Group TextBox from Inline with text toWrap Square then Ungroup

Cendrinne · 06-01-2023, 07:16 PM

Hello Pros,
I was sure I did a good job, but if my document has more group of textbox, it ignores the Selected textbox group and goes to the next BUT if I have the same TextBox Group, copied a few time in an empty document, it takes it????

HTML Code:

Sub Graph_CONVERT_1_TxtBox_to_WrapSquare_and_Ungroup()
'based on ungroup = web link https://stackoverflow.com/questions/51141788/word-macro-to-ungroup-text-boxes

'created by me, which playing, with the scripts 2023-06-01 

Dim xNmbr As Integer
With ActiveDocument
   'For xNmbr = .Shapes.Count To 1 Step -1 (changed this from all to set (1)
       'Set thisshape = .Shapes(xNmbr)
        Set thisshape = .Shapes(1)
         .Shapes(1).Select
        
        With thisshape.WrapFormat
       .Type = wdWrapSquare
         If thisshape.Type = msoGroup Then thisshape.Ungroup
        End With
   ' Next

End With
        On Error GoTo 0
Set xNbre = Nothing

End Sub

What am I doing wrong? Been trying to find the logic, and I can't figure it out.

Any insights would be really appreciated

C