[Word/VBA] default bestandsnaam veranderen

[Hutspot]

Ik heb al even gezocht maar vond niet precies iets dat antwoord geeft op mijn probleem.

Ik wil dat de standaard naam die in het opslaan dialoogvenster komt te staan veranderen.
Standaard kom daar de het eerste woord of zin te staan van het bestand.
Ik wil dit zelf bepalen door data ergens anders in het document.

Ik wil dus geen dialoogvensters automatisch geopend hebben of onzichtbaar dingen opgeslagen krijgen. alleen die naam aanpassen.

iemand een voorbeeld van een stukje code?

[Daos]

Visual Basic:

ThisDocument.BuiltInDocumentProperties(wdPropertyTitle).Value = "Test"

[edit]
Sorry. Werkt niet altijd

[edit2]
Dat het bij mij niet werkt komt door een bugje in Word 2000:
http://support.microsoft.com/kb/212660/en-us

Daar staat ook een Workaround.

[ Voor 64% gewijzigd door Daos op 14-06-2006 14:34 ]

[Hutspot]

Super!!! bedankt, werkt perfect

[Tomatoman]

Een schopje, omdat ik met hetzelfde probleem zat. Volgens het Knowledge Base artikel waar Daos naar verwijst zit dit probleem alleen in Word 2000, maar ik heb gemerkt dat het ook in Word 2003 zit. Weet iemand of het ook in de beta van de nieuwe Word-versie zit, zodat macro's ook in toekomstige versies hetzelfde blijven werken?

Achtergrond

Ik wil een documenttitel gebruiken à la "brief Jansen - ontvangstbevestiging", maar voor de titel in het "Save As.." dialoogvenster wordt de documenttitel afgekapt bij het eerste leesteken dat geen letter, cijfer of spatie is. Als default bestandsnaam krijg je dan "brief Jansen", de tekst achter het koppelteken wordt verwijderd. Als workaround stel ik eerst de default bestandsnaam in en daarna de documenttitel. Dat gaat goed zolang het gedrag in het Knowledge Base artikel altijd optreedt.

Visual Basic:

' Work around a bug that prevents the suggested file name in the 'Save As...'
' dialog to be the same as BuiltInDocumentProperties(wdPropertyTitle). See
' Microsoft Knowledge Base article Q21266:
' http://support.microsoft.com/kb/212660
With Dialogs(wdDialogFileSummaryInfo)
   .Title = "brief Jansen Ontvangstbevestiging"
   .Execute
End With

With ActiveDocument
    .BuiltInDocumentProperties(wdPropertyTitle) = _
        "brief Jansen - ontvangstbevestiging"
End With