Can somebody send to me some information about word macros?

[Greg Maxey]

Sub Information()
Dim pStr As String
MsgBox "They often make short work of repetive tasks.", _
vbInformation + vbOKOnly, "Information"
pStr = InputBox("What specifically did you want to know?")
ActiveDocument.Range.InsertAfter vbCr & pStr
ActiveDocument.Range.Paragraphs.Last.Range.Copy
MsgBox "Paste your question into a new" _
& " newsgroup question and someone may be able to answer!"
End Sub