View Single Post
 
Old 03-11-2015, 07:31 PM
Guessed's Avatar
Guessed Guessed is offline Windows 7 32bit Office 2010 32bit
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

ThisDocument is the document that contains the macro. ActiveDocument is the document open in active window.

If the macro is in the same template as the building block then you could use

Code:
Sub RevSummary()
  ThisDocument.AttachedTemplate.BuildingBlockEntries("Revision Summary").Insert _
      Where:=Selection.Range, RichText:=True
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote