title image


Smiley Re: da hast du mich leider falsch verstanden, denn...
Hallo,

versuch es so:

Gruß

Artur



Dim sQuelle As String

Dim sZiel As String



If ActiveDocument.Saved = False Then If Dialogs(wdDialogFileSaveAs).Show = 0 Then Exit Sub



sQuelle = ActiveDocument.Path & "\" & ActiveDocument.Name

ActiveDocument.Close savechanges:=False 'wdPromptToSaveChanges

'Anpassen

sZiel = "D:\Kopie.doc"

'WordBasic.CopyFileA FileName:=sQuelle, Directory:=sZiel' evtl verwenden, wenn Dokument geöffnet bleiben soll oder sonst die letzte Zeile entremen



FileCopy sQuelle, sZiel

'Documents.Open sQuelle



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: