Miten muuntaa Word-tiedostot PDF käyttäminen VB

Muuntaa Word-asiakirjoja PDF . asiakirja kuva Marvin Gerste päässä & lt; a href = 'http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

Word-asiakirjat ovat avoinna kaikille muokata ja poistaa sisältöä.Tästä syystä kehittäjät tehtävänä on muuntaa Word-asiakirjoja PDF avoimen jakelun.Word-tiedostot muunnetaan PDF, jotta yritys voi jakaa PDF Webissä ilman, että sitä kopioida tai muuttaa.Koodi voidaan toteuttaa Visual Basic (VB) kieli.Tämä hyödyttää tahansa koodaaja joka tarvitsee muuntaa asiakirjoja työpöydälle tai web-sovellus.

Ohjeet

  1. Avaa Word-dokumentin.Voit avata Word-asiakirjan alustamalla Word sovelluksen luokka, joka on muuttuja, joka sisältää kaikki menetelmät ja ominaisuudet Word-tiedoston manipulointia.Seuraava koodi avaa tiedoston nimeltä "myfile.doc":

    Dim sana = uusi ApplicationClass ();
    Dim word_file = polku Object
    Word.Document opened_doc = word.Documents.Open (viite word_file, viite null, viite nul

    l, viite null, viite null, viite null, viite null, viite null, viite null, viite null, viitenull, viite null);

    "null" arvot ovat kaikki tarpeen, koska "Avaa" -toiminto on useita parametreja tarvitaan avata asiakirjan.Asetus nämä parametrit "null" avaa asiakirja vain oletuksena ominaisuuksia.

  2. Kopio sisältöä Word-tiedoston leikepöydälle.Tämä suoritetaan käyttämällä "WholeStory" ja "Kopioi" toiminnot."WholeStory" -toiminto on samanlainen manuaalisesti esiin kaikki sisältö tiedostoon ja "Kopioi" siirtää korostetun osan leikepöydälle.Seuraava koodi kopioi Word-tiedoston sisältö:

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

  3. Luo PDF objekti muuttuja ja siirtää Word sisältöä.Seuraava koodi siirtää sisältöä PDF:

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

  4. Sulje asiakirjat.Kun PDF on luotu, sekä Word-asiakirjoja ja PDF ovat kiinni vapauttaa muistia omistettu muuttujat:

    Aseta sana = mitään
    Aseta opened_doc = mitään
    Aseta mypdf = mitään

628
0
1
Portable Document Format