Ga naar inhoud

Word documenten (700) naar Pdf


Obsolium
 Delen

Aanbevolen berichten


Dat kan, met bv. deze macro, uit te voeren vanuit een Worddocument dat je best niet in dezelfde folder plaatst als de folder waarin de om te zetten Worddocumenten staan. Bij  "mydir" moet je uiteraard je eigen directory invullen.

Sub Wordnaarpdf()
Dim mydir As String
mydir = "Hier het path op jouw computer invullen"
Dim fso, nieuwefile, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(mydir)
Set files = folder.files
Application.ScreenUpdating = False
For Each file In files
Dim nieuwenaam As String
nieuwenaam = Replace(file.path, ".docx", ".pdf")
Documents.Open FileName:=file.path 
With ActiveDocument
.ExportAsFixedFormat OutputFileName:=nieuwenaam, ExportFormat:=wdExportFormatPDF
.Close
End With
Next
Application.ScreenUpdating = False
End Sub

 

 

aangepast door alpha
Link naar reactie
Delen op andere sites


Over het "Alleen lezen" zijn van je Wordbestanden kan ik niets zeggen, dat zijn Wordbestanden die op jouw computer staan. De macro wijzigt aan het wel- of niet leesbaar zijn niets. Maak als test eens een aantal nieuwe docx-bestanden aan en voer de macro daar op uit.

 

Met de macro wordt de naam van de Wordbestanden niet gewijzigd, alleen de extensie.

Let er wel op dat er vanuit is gegaan dat je Wordbestanden .docx-bestanden zijn en bv. niet .doc- of docm-bestanden.

Link naar reactie
Delen op andere sites


 Delen

×
×
  • Nieuwe aanmaken...