Office - Word, Excel und Co. 9.634 Themen, 40.098 Beiträge

7200 Dokumente bearbeiten

Dieter / 2 Antworten / Baumansicht Nickles

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

bei Antwort benachrichtigen
PeterF Dieter

„7200 Dokumente bearbeiten“

Optionen

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

bei Antwort benachrichtigen
Dieter PeterF

„Diesen Makro hat mir mal eine gute Seele geschickt: W97-Gleiche Operation mit...“

Optionen

Danke, das hilft.

Machs gut,

Dieter

bei Antwort benachrichtigen