![]() |
|
|
|
#1
|
||||
|
||||
|
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] |
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Pivot table grouping problem 2 tables need different grouping
|
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 |