Type Info:
Source As String
Dim TU As TransUnit Dim SourceText As String Set TU = Application.ActiveTransUnit SourceText = TU.Source