how to find summary

[anwar]

i have a few problem with word programe to know about ( how to find the
summary)

i hope you will help us about this matter

 

[Greg Maxey]

Sub Answer()
If 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 in the User Interface (UI)?", vbQuestion + vbYesNo) =
vbYes Then
MsgBox "The control is not located on the UI. Look up ""Summary"" or
""Summarize""" _
& " 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
End Sub

 

[Guest]

Greg,

nice example - a shame it is no longer available in 2010.

 

[Doug Robbins - Word MVP]

Here's 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
""Commands Not in the Ribbon""" _
& " 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
""Summarize""" _
& " 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

 

[Jay Freedman]

If only that was accurate. Unfortunately, the "Summary Information"
item you can add to the QAT opens the Summary tab of the document
information dialog; it isn't the AutoSummarize commmand that was
available in previous versions. Word 2010 has apparently discontinued
AutoSummarize completely.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Greg Maxey]

Jay,

Is the dialogs item gone as well:

Application.Dialogs(wdDialogToolsAutoSummarize).Show

 

[Jay Freedman]

The wdDialogToolsAutoSummarize is still defined, but trying to execute
that statement gets the error message "Run-time error 4605: This
method or property is not available because the command is not
available on this platform."