Word - how to find summary

21-Nov-09 09:28 PM

Here is a 2010 version

If MsgBox("Are you using Word2010?", vbQuestion + vbYesNo) = vbYes Then
If MsgBox("Is this a general question related to the location of the
AutoSummarize " _
& "command on the User Interface (UI)?", vbQuestion + vbYesNo) =
vbYes Then
MsgBox "The control is not located on the UI.  Right Click on the
Quick Access Toolbar" _
& " and select ""Customize Quick Access Toolbar"" and then select
& " from the ""Choose commands from:"" dropdown and scroll down to
the ""Summary Information...""" _
& " item and after selecting it, click on the ""Add >>"" button to
add it to" _
& " the Quick Access Toolbar.", vbInformation + vbOKOnly
Else
If MsgBox("Are you asking how to employ AutoSummarize using VBA?", _
vbQuestion + vbYesNo) = vbYes Then
MsgBox "Sorry, that facility is no longer supported."
Else
MsgBox "What exactly is your question and why are you asking it
in a VBA group?"
End If
End If
ElseIf MsgBox("Are you using Word2007?", vbQuestion + vbYesNo) = vbYes Then
If MsgBox("Is this a general question related to the location of the
AutoSummarize " _
& "command on the User Interface (UI)?", vbQuestion + vbYesNo) = vbYes
Then
MsgBox "The control is not located on the UI.  Look up ""Summary"" or
& " in Word's Help and it will present you with instructions for
adding it" _
& " to the Quick Access Toolbar (QAT).", vbInformation + vbOKOnly
Else
If MsgBox("Are you asking how to employ AutoSummarize using VBA?", _
vbQuestion + vbYesNo) = vbYes Then
MsgBox "You could use something likes this: " & vbCr + vbCr _
& "ThisDocument.AutoSummarize Length:=30," _
& " Mode:=wdSummaryModeHighlight," _
& " UpdateProperties:=True"
Else
MsgBox "What exactly is your question and why are you asking it in a
VBA group?"
End If
End If
Else
MsgBox "Look at the Tools Menu fourth item on the menu.", vbInformation
End If


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com