Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim strText As String
strText = ActiveDocument.Bookmarks("Title").Range.Text
End Sub