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