Wie konvertiert man mehrere doc/docx Dateien automatisch mit Visual Basic in

Question

Ich benutze VB.net und ich möchte mehrere doc/docx, die in einem Ordner sind, in PDF-Format konvertieren, wie kann ich dies erreichen? jede mögliche Hilfe würde sehr geschätzt werden

Answer 1

Office 2010 führt einige grundlegende PDF-Fähigkeiten ein.

Sub SaveDocsToPDF() 

    Dim FSO As Object 'Scripting.FileSystemObject 
    Dim oFolder As Object 'Scripting.Folder 
    Dim oFile As Object 'Scripting.File 
    Dim doc As Word.Document 
    Dim sNewName As String 

    Set FSO = CreateObject("Scripting.FileSystemObject") 

    Set oFolder = FSO.GetFolder("C:\Docs") 

    For Each oFile In oFolder.Files 
    Set doc = Application.Documents.Open(oFile.Path) 
    sNewName = FSO.BuildPath(oFolder.Path, oFile.Name & ".pdf") 
    doc.SaveAs2 sNewName, Word.wdFormatPDF 
    doc.Close False 
    Next oFile 

End Sub 

Aber wenn Sie Dokumente zusammenführen müssen, fügen Passwörter mit bestimmten Art der Verschlüsselung, müssen Sie eine andere Lösung