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

Cendrinne · #1 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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