Default title for new document (Word 2000 SR-1)

Topic

New Reply

Normally, on a new document, Word uses the first few words as a default title when saving the document for the first time. Is there any way to get Word to use words from a field on the document instead?

Reply | Quote

Replies

Sub ChangeDocTitle()
      'Get the title from fields, prompts, date, etc...whatever!
      newTitle = ActiveDocument.FormFields("AnyFormField").Result  
      With Dialogs(wdDialogFileSummaryInfo)
         .Title = newTitle
         .Execute
      End With
End Sub

Don’t bother trying to set the Title property directly in VB. If you don’t go through the dialog box it doesn’t always work. V. frustrating.

Reply | Quote

Thanks for the response; unfortunately, I asked the wrong question (my apologies). Let’s try this again…

What I really wanted to do was to take the text from the form field and use it for the default file name when saving the document; i.e., Form Field Text.doc. Can this be done in a similar manner?

Reply | Quote

Going with what you already have, is this what you’re looking for?

Sub TestSave()
    Dim FileName As String
'This pulls the name from your 'AnyFormField' field
    FileName = ActiveDocument.FormFields("AnyFormField").Result    
'Show the SaveAs dialog box
    With Dialogs(wdDialogFileSaveAs)
'with your suggested filename
        .Name = FileName & ".doc"
        .Show
    End With
End Sub

Reply | Quote

Oh, yes! Actually that’s what I was doing there. See, if you have text entered in the Document’s Title properties (File…Properties…Title) then when the user saves the file the FIRST time it will use that text instead of the first few words of the document.

I like to do that so the user can save whenever they want. But the macro to replace the save command works too.

Reply | Quote

What’s crazy is that the suggested name corresponds to the Title property if I enter it manually, but not if I set it in a macro:
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = “New title”

Am I missing something? Or is this a bug?

Klaus

Reply | Quote

Yup. It’s a bug (I think!) AND you’re missing something.

“Don’t bother trying to set the Title property directly in VB. If you don’t go through the dialog box it doesn’t always work. V. frustrating.” You can use VB to enter the text in the dialog box using the code I posted above.

Reply | Quote

Oh, I must have missed that part

Sorry, Klaus

Reply | Quote

Worked like a charm! Thanks to all.

Reply | Quote