Sub BlahBlah() ActiveDocument.BeginCommandGroup "BlahBlah" Dim sr As ShapeRange Set sr = ActiveSelectionRange sr.Set..... GMSManager.RunMacro "YakittyYak", "ThisMacroStorage.YakittyYakl" sr.RemoveFromSelection ActiveDocument.EndCommandGroup End Sub
↧