There's no message with the code you've posted!

At a guess, I'd say you're wanting help with this line:
With .Dialogs(wdDialogFileSummaryInfo)
Change that to:
With wrdApp.Dialogs(wdDialogFileSummaryInfo)

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]