Killerclown
Gebruiker
- Lid geworden
- 30 dec 2007
- Berichten
- 181
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
.
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.
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
Code:
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.
Code:
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