Word documenten (700) naar Pdf

[Obsolium]

hallo,

 

Ik heb zo'n 700 wordt documenten die ik in een keer allemaal wil omzetten naar Pdf.

Iemand enig idee of dat mogelijk is?

 

 

 

[alpha]

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

 

 

4 februari 2018 aangepast door alpha

[alpha]

In de voorlaatste regel hierboven moet False vervangen worden door True

[Obsolium]

Dit is de foucode die ik er op krijg. Voor ziver ik weet zijn de bestanden niet "alleen lezen" .

Is dezelfde directorie waar ik andere macro gestart heb.

 

[Obsolium]

Fout opsporing geeft

ExportAsFixedFormat OutputFileName:=nieuwenaam, ExportFormat:=wdExportFormatPDF

 

Ik wil dezelfde naam behoudenals het Word document.

[alpha]

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.

[falstring]

wellicht werkt deze iets simpeler voor je: http://www.multidoc-converter.com/en/index.html