sjabloon koppelen aan map

[sanrichz]

Ik heb een map in Word met 500 documenten die moeten worden gekoppeld aan een sjabloon. Is er een mogelijkheid om alle documenten in deze map in één handeling te koppelen aan een sjabloon? Of moet dat echt per document?

DAnk voor jullie antwoord.

Sandra

 

[snb]

Het kan met een macro:

Sub koppel()
   for each fl in createobject("scripting.filesystemobject").getfolder([COLOR="Blue"]"C:\bestanden"[/COLOR]).files
     if right(fl.name,4)=".doc" then 
        with Documents.add(fl.name)
          .attachedtemplate="[COLOR="blue"]E:\sjablonen\sjabloon1.dot"[/COLOR]
          .saveAs fl.name
          .close 0
       end with
    End If
  Next
End Sub

Pas de blauwe delen aan aan jouw situatie.