Auto Prompting for File Properties from Word Templates

[Jeremy W]

I am looking to automate some group templates so that the users will
atleast see the file properties Summary to verify it.

I have managed to create the following macro to fire up the Properties
Dialog box:
Sub Document_New
On Error Resume Next
Application.Run "FileProperties"
End Sub

However this opens the FileProperties on the last 'tab' the user
looked at rather than specifically the Summary Tab.

I then managed to create a Macro to prompt the File Summary Dialog
(that I thought had solved it).

Sub Document_New
On Error Resume Next
Application.Run "FileProperties"
With Dialogs(wdDialogFileSummaryInfo)
.show
End With
End Sub

This opens the File Properties at whatever tab and then prompts with a
cut down version of the file properties Summary Page. I could resolve
having the two stages, but unfortunately the second dialog does not
display all the info needed - for example the company name (which can
vary).

Can anyone think of a way to do something similar but with all the
summary info?
A possibility may be to create a form to be populated by the user at
Document_New() and that then to populate the appropriate fields.
Unfortunately I have no experience here at all.

Look forward to your help.

Jeremy

 

[Cindy M -WordMVP-]

Hi Jeremy,

This opens the File Properties at whatever tab and then prompts with a
cut down version of the file properties Summary Page. I could resolve
having the two stages, but unfortunately the second dialog does not
display all the info needed - for example the company name (which can
vary).

Can anyone think of a way to do something similar but with all the
summary info?
A possibility may be to create a form to be populated by the user at
Document_New() and that then to populate the appropriate fields.
Unfortunately I have no experience here at all.

Yes, this would be a suitable approach. You should find a tutorial on
generally working with UserForms on the mvps.org/word website. For
follow-up questions, you'd be better off to post in either the
word.vba.beginners or word.vba.userForms newsgroups. This group is
primarily for end-users (non-macro discussions)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail