Word makro der gemmer dokument

Der står 100 ting om emnet, hvis du vil bruge FSO. Prøv at søg (har ikke lige tid til at komme emd noget kode)

At gemme:

    ActiveDocument.SaveAs FileName:="dette er en tekst.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False


Med hensyn til filnavnet kan du vel bruge Now().

Så er der lige det der med mappen, det må jeg vende tilbage med. Har ikke lige et konkret eksempel lige nu...

Mon ikke du finder hvad du søger her...

http://www.eksperten.dk/spm/215890

- Mikker

Vi takker - men fandt du hvad du søgte efter ??

- Mikker

Mja.... Jeg har ikke fundet ud af hvordan jeg automatisk afvikler noget, når dokumentet bliver lukket, men jeg har så heller ikke haft tid til at kigge på det endnu.

Det findes på eksperten, kan huske at jeg har set det - vist en event der bliver triggeret når et dokument lukket - måske:

Sub Auto_close
  msgbox "farvel"
End sub

Frit efter hukommelsen - prøv at søg på eksperten :o)

I excel hedder den

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Men i word er jeg lidt på herrens mark.

- Mikker

Prøv at gennmskue denne kode:
Den skal ligge i normal.dot

Private Sub Document_Close()
    Dim fil$
    Dim mappe
    Set fs = CreateObject("Scripting.FileSystemObject")
    mappe = fs.folderexists("g:\wordmappe")
    If mappe = False Then fs.createfolder ("g:\wordmappe")
    DoEvents
    fil$ = Trim("22-12-1974-1938" & ".doc")
        ActiveDocument.SaveAs FileName:=fil$, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub

- Mikker

ups....

Set fs = Nothing

ville nok pynte i enden :o)

- Mikker