Hoe Word -bestanden converteren naar PDF met behulp van VB

Uw Word- documenten te converteren naar PDF . het document door Marvin Gerste van & lt; a href = 'http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

Word-documenten staan ​​open voor iedereen om te bewerken en inhoud te verwijderen.Om deze reden zijn ontwikkelaars belast met Word-documenten converteren naar PDF voor open distributie.De Word-documenten worden geconverteerd naar PDF, zodat het bedrijf de PDF op het web kunnen verspreiden zonder haar worden gekopieerd of gewijzigd.De code kan worden uitgevoerd met behulp van de Visual Basic (VB) taal.Dit is gunstig voor een programmeur die behoefte heeft om documenten te converteren van een desktop of webapplicatie.

instructies

  1. Open het Word-document.U een Word-document openen door het initialiseren van de Word-applicatie klasse, dat is een variabele die alle methoden en eigenschappen voor het Word-bestand manipulatie bevat.De volgende code opent een bestand met de naam "mijnbestand.doc":

    Dim woord = new ApplicationClass ();
    Dim word_file = pad als obje

    ct
    Word.Document opened_doc = word.Documents.Open (ref word_file, ref null, ref null, null ref, ref null, null ref, ref null, null ref, ref null, null ref, refnull, ref null);

    De "nul" waarden zijn allemaal nodig, omdat de functie "Open" heeft diverse parameters die nodig zijn om een ​​document te openen.Het instellen van deze parameters op "nul" opent het document met alleen de standaard eigenschappen.

  2. Kopieer de inhoud van het Word-bestand naar het Klembord.Hierbij moeten de "WholeStory" en functies "Copy".De "WholeStory" functie is vergelijkbaar met de hand benadrukken alle inhoud in het bestand en "Copy" brengt het gemarkeerde gedeelte naar het Klembord.De volgende code kopieert de Word-bestand inhoud:

    opened_doc.ActiveWindow.Selection.WholeStory
    opened_doc.ActiveWindow.Selection.Copy
    Dim clip = Clipboard.GetDataObject

  3. Maak de PDF-object variabele en het Woord overzetten van content.De volgende code brengt de inhoud aan PDF:

    Dim mypdf als Nieuwe mjwPDF
    mypdf.PDFFileName = "word_transfer.pdf"
    mypdf.PDFTextOut clip.ToString

  4. Sluit de documenten.Zodra de PDF is gemaakt, worden zowel de Word-documenten en PDF gesloten om het geheugen middelen voor de variabelen los:

    Set woord = niets
    Set opened_doc = niets
    Set mypdf = niets

498
0
1
Portable Document Format