title image


Smiley Re: Per VBA Dateien in Word öffnen und mit Wasserzeichen versehen
Hallo Ingo!



Ich hab nichts fertiges, hier ein Gerüst:



With Application.FileSearch

   .LookIn = txtVerzeichnis 'z.B. "C:\Temp\"

   .FileName = txtFilter 'z.B. "*.doc"

   .Execute SortBy:=msoSortByFileName



   For Each aDok In .FoundFiles

     Documents.Open aDok 'Doc auf

     Set oDoc = ActiveDocument



'Hier alles rein, was Du am Doc ändern willst



     oDoc.Close SaveChanges:=wdSaveChanges 'Doc zu mit sichern

   Next

End With



Freundliche Grüße

Michael
Freundliche Grüße Michael

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: