Word- documenten zijn geopend voor iedereen om de inhoud te bewerken en te verwijderen . Om deze reden , zijn ontwikkelaars belast met Word-documenten converteren naar PDF voor de open distributie . De Word- documenten worden geconverteerd naar PDF , zodat het bedrijf kan de PDF op het web te verspreiden zonder haar worden gekopieerd of veranderd . De code kan worden uitgevoerd met behulp van de Visual Basic ( VB ) taal . Dit is gunstig voor elke coder die behoefte heeft om documenten om te zetten van een desktop of webapplicatie . Instructies 1 Open het Word-document . U opent een Word-document met 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 Object Word.Document opened_doc = word.Documents.Open ( ref word_file , ref null , null ref , ref null , null ref , ref null , null ref , ref null , null ref , ref null , null ref , ref null ) ; " null " waarden zijn allemaal nodig , omdat de functie " Open " heeft verschillende parameters die nodig zijn om een document te openen . Het instellen van deze parameters op " null " opent het document met alleen de standaard eigenschappen . Kopie 2 de inhoud van het Word-bestand naar het Klembord . Dit wordt bereikt met behulp van de " WholeStory " en " Copy " functie . De functie " WholeStory " is vergelijkbaar met handmatig markeren de volledige inhoud van het dossier en " Copy " brengt het gemarkeerde gedeelte naar het Klembord . De volgende code kopieert het Word-bestand clip = Clipboard.GetDataObject 3 Maak het PDF- object variabele en breng het Woord inhoud . De volgende code verplaatst de inhoud naar PDF : Dim mypdf als Nieuwe mjwPDF mypdf.PDFFileName = " word_transfer.pdf " mypdf.PDFTextOut clip.ToString Goedkope 4 Sluit de documenten . Zodra de PDF is gemaakt, zowel de Word-documenten en PDF zijn gesloten voor het geheugen middelen gewijd aan de variabelen los : Set woord = niets Stel opened_doc = niets Set mypdf = niets
|