|
Hallo VBA-Spezialisten,
ich habe hier zwei VBA-Probleme, mit denen ich nicht fertig werde:
Erstes Problem:
Unter WORD2000 hatte ich ein VBA-Makro (hier als Rumpf-Makro“ bezeichnet, mit dem ich mit allen *.doc-Dateien eines Verzeichnisses die gleiche Operation durchführen konnte.
Dazu habe ich jeweils mit dem Makrorecorder die durchzuführenden Schritte aufgezeichnet und dann in das Rumpfmakro hineinkopiert.
Das funktionierte auch einwandfrei
Alle anderen WORD2000-Makros, die ich gesammelt habe, funktionieren auch einwandfrei.
Unter WORD2013 kriege ich das nicht gebacken, leider kann ich auch mit der Word2013-Makroaufzeichnung das o.a. Problem nicht lösen.
Was mache ich falsch ??? Ich krieg’s nicht auf die Reihe.
Kann sich jemand mal das Ursprungsmakro (siehe unten) ansehen und mir das evtl. Anpassen?
Ich möchte folgendes erreichen:
In einem Verzeichnis namens D:\testarea stehen einige Dutzend Dateien aus Word 2000 mit der Endung *.doc (und zwar ausschließlich doc, keine anderen Dateien).
Word starten
Mit jeder *.doc soll folgendes geschehen:
1. Datei öffnen,
2. Alle Metadaten mit der Funktion „Dokument prüfen“ löschen
3. Datei unter dem gleichen Namen speichern im Word2013-Format als *.docx (also konvertieren von *.doc in *.docx)
4. Letzte Datei des Verzeichnisses?
Nein ....GoTo 1.
5. Ende (alle Dateien sind konvertiert)
Hier das Ursprungsmakro mit Beschreibung:
Alle mit einem Hochkomma beginnende Zeilen sind Kommentarzeilen‚
' Folgendes Makro öffnet nacheinander alle Dokumente im angegebenen Verzeichnis,
' führt die gewünschten Befehle, die man z.B. mit dem Makrorecorder erfasst hat aus
' speichert und schließt die Dokumente wieder;
' (Obwohl das Makro läuft wie 'ne Rolle Keks solltest Du Dir natürlich vorsichtshalber eine
' Sicherungskopie Deines Verzeichnisses anlegen.und erst mal nen Testlauf durchführen.)
'
Public Sub GleicheOperationmitallenDateieneinesVerzeichnissesdurchführen()
'Rumpfmakroteil, nicht verändern !!!
Dim i ' Rumpfmakroteil, nicht verändern !!!
Dim Verzeichnis ' Rumpfmakroteil, nicht verändern !!!
'==========================================
Verzeichnis = "D:\Testarea" ' ( <- hier unbedingt das richtige Verzeichnis angeben)
'==========================================
With Application.FileSearch ' Rumpfmakroteil, nicht verändern !!!
.FileName = "*.doc" ' Rumpfmakroteil, nicht verändern !!!
.LookIn = Verzeichnis ' Rumpfmakroteil, nicht verändern !!!
If .Execute > 0 Then ' Rumpfmakroteil, nicht verändern !!!
For i = 1 To .FoundFiles.Count ' Rumpfmakroteil, nicht verändern !!!
Documents.Open .FoundFiles(i) ' Rumpfmakroteil, nicht verändern !!!
'***************************************************************************************************
' erst ab hier Änderungen durchführen, oberer Teil gehört zum Rumpfmakro ohne den nichts läuft
'----------------
' gewünschte Befehle, zum Beispiel: Befehle aus Makrorecorder kopieren und ab „Makroanfang“ einfügen
' nicht vergessen, jeden einzelnen Fall zu beschreiben (Hochkomma davor ist Kommentarkennzeichen)
' Dabei sollte jeder einmal richtig ausgeführte Fall als Kommentar zur Reaktivierung erhalten bleiben,
' am besten jeder Fall durch Doppelstriche gekennzeichnet und mit Fall-Nr.XX-Anfang
' und Fall-Nr. XX-Ende gezeichnet sein
'
'==============Makroanfang =====================
' Der ersten Zeile jedes Dokuments wird das Format Überschrift 1 zugewiesen, die Datei wird
' gespeichert, mit Makro AlleKopfundfusszeilenlöschen wird bereinigt
'Selection.Find.Execute Replace:=wdReplaceAll
'Selection.HomeKey Unit:=wdStory
'Selection.EndKey Unit:=wdLine, Extend:=wdExtend
'Selection.Style = ActiveDocument.Styles("Überschrift 1")
'ActiveDocument.Save
'Application.Run MacroName:="AlleKopfundFusszeilenLoeschen"
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
'With Selection.Find
' .Text = "^b"
' .Replacement.Text = ""
' .Forward = True
' .Wrap = wdFindContinue
' .Format = False
' .MatchCase = False
' .MatchWholeWord = False
' .MatchWildcards = False
' .MatchSoundsLike = False
' .MatchAllWordForms = False
'End With
'CommandBars("Stop Recording").Visible = FalseSelection.HomeKey Unit:=wdStory
'Selection.EndKey Unit:=wdLine, Extend:=wdExtend
'Selection.Style = ActiveDocument.Styles("Überschrift 1")
'ActiveDocument.Save
'==============Makro-Ende=====================
' ab hier keine Änderung mehr durchführen, gehört zum Rumpfmakro
' speichert und schließt die Dokumente wieder;
' ===================================================================================================
ActiveDocument.Close SaveChanges:=wdSaveChanges ' Rumpfmakroteil, nicht verändern !!!
Next i ' Rumpfmakroteil, nicht verändern !!!
End If ' Rumpfmakroteil, nicht verändern !!!
End With ' Rumpfmakroteil, nicht verändern !!!
End Sub ' Rumpfmakroteil, nicht verändern !!!
Zweites Problem
In das gleiche Verzeichnis D:\testarea werden alle vorhandenen *.docx-Dateien aus Word2013 hineinkopiert
Hier möchte ich folgendes erreichen:
In einem Verzeichnis namens D:\testarea stehen einige Dutzend Dateien aus Word 2013 mit der Endung *.docx (und zwar ausschließlich docx, keine anderen Dateien).
Es sollen alle Metadaten aus allen Dateien gelsöcht werden
Word starten
Mit jeder *.docx soll folgendes geschehen:
1. Datei öffnen,
2. Alle Metadaten mit der Funktion „Dokument prüfen“ löschen
3. Datei unter dem gleichen Namen speichern im Word2013-Format als *.docx (es sollen alle Metadaten aus allen Dateien gelööcht werden)
4. Letzte Datei des Verzeichnisses?
Nein ....GoTo 1.
5. Ende (alle Dateien sind konvertiert)
Hat da jeman auch eine Lösung für mich
Vielen Dank
Fred-Feuerstein
|