![]() |
#8
|
||||
|
||||
![]()
Here's a couple of macros you could assign to keyboard shortcuts to do the grouping/ungrouping and applying the 'square' wrap format in one go:
Code:
Sub ReGroup() With Selection.ShapeRange .Group.Select .WrapFormat.Type = wdWrapSquare End With End Sub Sub UnGroup() With Selection.ShapeRange .UnGroup.Select .WrapFormat.Type = wdWrapSquare End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
differentdrummer | Excel | 3 | 12-10-2013 01:19 AM |
Ungrouping an object pasted from another program | bracker | PowerPoint | 0 | 01-28-2011 11:11 AM |
Can the default Wrapping Style settings for Text Boxes be set | degda01 | Word | 4 | 11-11-2010 10:19 AM |
Restart to 1 resets style to default | riggsdp | Word | 0 | 08-05-2009 12:51 PM |
Ungrouping in Publisher? | abrogard | Publisher | 2 | 02-06-2009 09:35 PM |