Word naar pdf

Status
Niet open voor verdere reacties.
M

michvand

Gebruiker
Lid geworden
23 mrt 2009
Berichten
82
Beste Wordexperts,

Hierbij een vraag om word om te zetten in pdf. Word heeft standaard deze optie, save as pdf. Dat kan alleen als je het word document open hebt. Echter, ik heb wel een honderdtal worddocumenten. Mijn vraag is nu: is het echt noodzakelijk om elk document 1 voor 1 te openen en als pdf te saven of bestaat er een methode om alle 100 documenten te selecteren en dan via en of ander proggie naar pdf om te zetten? bij voorbaat dank voor jullie antwoorden.
 
Staan die documenten allemaal in 1 folder bij elkaar?
 
Dat moet sowieso per document gebeuren, maar kan je middels VBA wel automatiseren.
Ik heb er nu geen tijd voor, maar als niemand me voor is zal ik er vanavond even naar kijken.
 
Dit is de simpelste manier, zonder enige fout controle.
Alleen even de variabelen Folder en Uitvoer invullen:
Code: 
Sub Export2PDF()
    Dim Folder As String
    Dim Uitvoer As String
    Dim Document As String
    Dim doc As Document
    
    Folder = [COLOR="#FF0000"]"Folder waar je documenten staan"[/COLOR]
    Uitvoer = [COLOR="#FF0000"]"Folder waar de PDF's moeten worden opgeslagen"[/COLOR]
    
    Document = Dir(Folder & "\" & "*.doc*")
    While Document <> ""
        Set doc = Documents.Open(Folder & "\" & Document, , True, , , , , , , , , False)
        doc.ExportAsFixedFormat _
          OutputFileName:=Uitvoer & "\" & Document & ".pdf", _
          ExportFormat:=wdExportFormatPDF
        doc.Close False
        Document = Dir()
    Wend
End Sub
 
Gewoon een PDF printer installeren en dan rechtsklik meerdere documenten selecteren. Rechtsklik en kiezen voor print.

Lmiet van max. 15 documeten verwijderen -> https://answers.microsoft.com/en-us...15-items/f9f91926-6607-452b-88c9-50db9b696575

HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer

Here create a new DWORD, MultipleInvokePromptMinimum



Set the decimal value to 16 to disable the 15 limit.



You can set the value lower if you want...



0 disabled the right click options

1-15 sets the max number to 1-15

16 removes the limitation.



Source: http://support.microsoft.com/default.aspx/kb/2022295/?p=1
 
Wow, this thread really amazing, Here I have learned the finest trick ever, I don't even think that I can change all 100s of Pdf simultaneously. Well, I am going to try both tricks that are available in this thread. And yeah, thank you so much for sharing the knowledge.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan