Thema Datum  Von Nutzer Rating
Antwort
08.09.2021 15:16:42 Lukas
NotSolved
Blau SaveCopyAs Alternative in Word 2016
10.09.2021 01:35:50 xlKing
Solved

Ansicht des Beitrags:
Von:
xlKing
Datum:
10.09.2021 01:35:50
Views:
229
Rating: Antwort:
 Nein
Thema:
SaveCopyAs Alternative in Word 2016

Hallo Lukas,

wie du schon bemerkt hast, unterscheiden sich die Objektmodelle von Excel und Word in wesentlichen Funktionen. Dass es also kein SaveCopyAs in Word gibt, liegt vielleicht daran, dass es unterschiedliche Programmierer waren, die das erstellt haben. Probier mal diesen Code im Modul ThisDocument. Er sollte nach dem Schließen und neu Öffnen des Documents laufen. Bei Problemen einfach nochmal melden.

Private WithEvents app As Application

Private Sub Document_Open()
  Set app = Application
End Sub

Private Sub app_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
  Dim sDatei As String, sPfad As String
  Dim OriginalDatei As String, OriginalPfad As String
  Dim GesPfad As String, fs As Object
  
  
  If Doc Is ThisDocument Then
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    If SaveAsUI = False Then
      OriginalPfad = ActiveDocument.Path & "\"
      OriginalDatei = ActiveDocument.Name
    Else
      With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ActiveDocument.Name
        .FilterIndex = 2
        If .Show = True Then
          GesPfad = .SelectedItems(1)
          OriginalPfad = Left(GesPfad, InStrRev(GesPfad, "\"))
          OriginalDatei = Right(GesPfad, Len(GesPfad) - Len(OriginalPfad))
        End If
      End With
    End If
   
    sPfad = OriginalPfad & "Archiv\"
    sDatei = Format(Now, "yyyyMMdd_hhmm_") & OriginalDatei
  
    If Not fs.folderexists(sPfad) Then MkDir sPfad
    ActiveDocument.SaveAs2 FileName:=sPfad & sDatei
    ActiveDocument.SaveAs2 FileName:=OriginalPfad & OriginalDatei
  
    Cancel = True
  End If
  
End Sub

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.09.2021 15:16:42 Lukas
NotSolved
Blau SaveCopyAs Alternative in Word 2016
10.09.2021 01:35:50 xlKing
Solved