Änderungsdatum aus word in excel übernehmen

Dieses Thema Änderungsdatum aus word in excel übernehmen im Forum "Windows XP Forum" wurde erstellt von Marko_K0, 10. März 2005.

Thema: Änderungsdatum aus word in excel übernehmen Hallo zusammen! Ich würde gern (zur Nachvervolgung der Aktualität von word Dokumenten) das aktuelle Änderungsdatum...

  1. Hallo zusammen!

    Ich würde gern (zur Nachvervolgung der Aktualität von word Dokumenten) das aktuelle Änderungsdatum (eines word-files) automatisch in eine excel tabelle exportieren. Der Abgleich des Änderungsdatums sollte bei jedem Aufruf des word dokuments erfolgen. Die letzte Änderung eines Dokuments kann durch datei/versionen.. eingesehen werden. Ist das irgendwie (durch entsprechenden vba-code) exportierbar?

    Vielleicht ist es auch ein komplett falscher Ansatz. Im Detail sieht es so aus:
    Für jedes System im Unternehmen gibt es eine englische und eine deutsche Doku (jeweils als .doc file). Damit (bspsweise) nicht nur die deutsche Version geändert wird und die englische aber veraltet bleibt möchte ich diese Kontrolle über eine extra excel-tabelle integrieren... Vielleicht habt ihr ja auch einen anderen Lösungsvorschlag?

    Vielen Dank im Voraus für die Hilfe.

    Grüße,
    Marko
     
  2. Hallo Marko_K0,

    das aktive Schreiben in eine Excel-Tabelle ist unter Umständen nicht so günstig, wenn zum Beispiel diese Excel-Tabelle gerade geöffnet ist (konkurierender datei-Zugriff).

    Wenn die Dokumente ( Word) z. B. in einem Verzeichnisbaum liegen, wäre es meiner Meinung nach geschickter, diesen nach Word-Dokumenten zu durchsuchen, diese nur lesend zu öffnen, die Versions-Informationen auszulesen und in dieser Excel-Datei zu speichern (ggf. auf einer neuen Tabelle).

    Wenn Du diesen Weg gehen willst, würde sich zunächst die Frage stellen, wie findet der Makro diese Word-Dokumente.
    Kennzeichen können z.B. sein:
    - bestimmtes Verzeichnis und Unterverzeichnisse
    - *.doc
    - besonder Namensgebung
    - bestimmter Inhalt
    - ...

    Das Aufwand zum Auslesen der Versions-Informationen ist gering.

    z.B.:
    Code:
    Sub DateiVersionsInfoLesen()
      
      Const c_DateiVersMitschr As String = c:\VersionsMitschrift.txt
      
      Dim v As Version, l_version As Long, s_Kommentar As String
      Dim s_Datum As String, s_Uhrzeit As String, s_Author As String
      Dim s_Dateiname As String, s_Dateipath As String
      Dim s_tmp As String, s_tmp2 As String, b_exist As Boolean
      Dim i_Dateinummer As Integer, l_schreibversuch As Long, x As Long
      
      s_Dateipath = ActiveDocument.Path
      s_Dateiname = ActiveDocument.Name
      
     ->letzte Versionsinformation auslesen
      l_version = ActiveDocument.Versions.Count
     ->wenn keine Versionen vorhanden sind -> Ende
      If l_version = 0 Then Exit Sub
      Set v = ActiveDocument.Versions(l_version)
      s_Datum = Format(v.Date, dd.mm.yyyy)
      s_Uhrzeit = Format(v.Date, hh:nn:ss)
      s_Author = v.SavedBy
      s_Kommentar = v.Comment
      Set v = Nothing
      
      s_tmp = _
        Dateiname:  & s_Dateiname & vbCrLf & _
        Dateipfad:  & s_Dateipath & vbCrLf & _
        VersionNr:  & l_version & vbCrLf & _
        Speicherdatum:  & s_Datum & vbCrLf & _
        SpeicherUhrzeit:  & s_Uhrzeit & vbCrLf & _
        Gespeichert von:  & s_Author & vbCrLf & _
        Kommentar:  & s_Kommentar
      MsgBox (s_tmp)
    End Sub
    Gruß Matjes  :)
     
Die Seite wird geladen...

Änderungsdatum aus word in excel übernehmen - Ähnliche Themen

Forum Datum
Ordner Änderungsdatum verfolgen Windows XP Forum 14. Apr. 2008
Bitte um Hilfe --> Änderungsdatum ändern über Batch !!!! Webentwicklung, Hosting & Programmierung 12. Okt. 2005
Excel: Änderungsdatum automatisch als Kommentar einfügen Microsoft Office Suite 2. Aug. 2005
Welches ist das letzte kaufbare Office und Fehler beim Scrollen in Word: Text verdoppelt sich Microsoft Office Suite 14. Juli 2016
Word und Powerpoint hakeln. Filme abspielen führt zu Aufhängen Windows 10 Forum 17. Dez. 2015