Hallo Leute,
weiss jemand ein kleines Programm, mit welche mich in einem Ordner
alle darin enthaltenen DOC-Files bearbeiten kann? (Suchen und ersetzen von Wörtern, Leerzeichen entfernen etc..)
Oder: weiss jemand ein Buch, in welchem Scripts oder Makros für genau die Funktionen beschrieben werden??
Danke
Dieter
PeterF Dieter „7200 Dokumente bearbeiten“
Diesen Makro hat mir mal eine gute Seele geschickt:
W97-Gleiche Operation mit allen Dokumenten durchführen
Folgendes Makro öffnet nacheinander alle Dokumente im angegebenen Verzeichnis, markiert jeweils den gesamten Text, ändert die Schriftart und Schriftgröße, 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.)
Sub NeueSchriftart()
Dim i
Dim Verzeichnis
Verzeichnis = "C:\workarea" ' ( With Application.FileSearch
.FileName = "*.doc"
.LookIn = Verzeichnis
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(i)
'gewünschte Befehle, zum Beispiel:
Selection.WholeStory
With Selection.Font
.Name = "Arial Narrow"
.Size = 10
End With
ActiveDocument.Close SaveChanges:=wdSaveChanges
Next i
End If
End With
End Sub
Alternativ: (+ kleine Ergänzung)
.. die es erspart, bei Pfadänderungen immer in den Makrocode gehen zu müssen -siehe fetten Text
Sub NeueSchriftart()
Dim i As Integer
Dim Verzeichnis As String
With Dialogs(wdDialogCopyFile)
.Show
Verzeichnis = .Directory
End With
With Application.FileSearch
.FileName = "*.doc"
.LookIn = Verzeichnis
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(i)
'gewünschte Befehle, zum Beispiel:
Selection.WholeStory
With Selection.Font
.name = "Arial Narrow"
.Size = 10
End With
ActiveDocument.Close SaveChanges:=wdSaveChanges
Next i
End If
End With
End Sub
Dieter PeterF „Diesen Makro hat mir mal eine gute Seele geschickt: W97-Gleiche Operation mit...“
Danke, das hilft.
Machs gut,
Dieter
