Save As in macro

[Killerclown]

Wie kan mij helpen met een stukje VB.

Ik heb in Microsoft Word een macro gemaakt. Het is de bedoeling dat die macro op de eerste lijn in het document een uniek nummer zet. Hiervoor had ik een veld gecreeerd die de datum en tijd gebruikt (yyyyMMddHHmmss). Zo verkrijg je volgens mij al een uniek nummer. Als je dan het bestand opslaat met Save As, verschijnt in de naam die nummer (dus yyyMMddHHmmss.doc).
Nu zou mijn macro telkens als ik deze aanklik, het bestand moeten opslaan met zo'n uniek nummer maar daar zit mijn probleem.
Zoals je ziet op de macro hieronder, staat er

ActiveDocument.SaveAs FileName:="20080503211912.doc",

.
Blijkbaar gebruikt em telkens opnieuw dezelfde naam die hij gecreeerd heeft bij het opnemen van de macro.

Nu is mijn vraag, kan iemand mij helpen zodat wanneer ik de macro aanklik, het bestand opgeslaan wordt met die unieke nummer.

Alvast heel veel dank.

Sub Bericht() 
' 
' Bericht Macro 
' Macro opgenomen op 3/05/2008 door gg 
' 
    Selection.TypeParagraph 
    Selection.TypeParagraph 
    Selection.MoveUp Unit:=wdLine, Count:=2 
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ 
        "TIME  \@ ""yyyyMMddHHmmss"" ", PreserveFormatting:=True 
    ActiveDocument.SaveAs FileName:="20080503211912.doc", FileFormat:= _ 
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ 
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ 
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
        SaveAsAOCELetter:=False 
End Sub

 

[leofact]

De volgende sub zet het getal links bovenin (nog aanpassen naar de door jou gewenste plaats)
En slaat het vervolgens onder die naam op.
Standaard in mijn documenten, Een ander plaats geef je aan bij sPad
sPad moet eindigen met een \

Sub opslaan()
Dim sUniekNummer As String
Dim sPad As String

sPad = ""
sUniekNummer = Format(Now(), "YYYYMMDDHhMmSs")
        Selection.HomeKey Unit:=wdStory
        Selection.TypeText Text:=sUniekNummer
    ActiveDocument.SaveAs sPad & sUniekNummer
End Sub

Hopelijk kun je er iets mee.
mvg leo

 

[Killerclown]

De volgende sub zet het getal links bovenin (nog aanpassen naar de door jou gewenste plaats)
En slaat het vervolgens onder die naam op.
Standaard in mijn documenten, Een ander plaats geef je aan bij sPad
sPad moet eindigen met een \

Sub opslaan()
Dim sUniekNummer As String
Dim sPad As String

sPad = ""
sUniekNummer = Format(Now(), "YYYYMMDDHhMmSs")
        Selection.HomeKey Unit:=wdStory
        Selection.TypeText Text:=sUniekNummer
    ActiveDocument.SaveAs sPad & sUniekNummer
End Sub

Hopelijk kun je er iets mee.
mvg leo

Prachtig Prachtig...
Alvast heel veel dank Leo.
Dit werkt perfect en doet perfect wat ik wil.
Ook bedankt voor het woordje uitleg erbij.

Dank dank dank...

 

[leofact]

graag gedaan