Als u het ontwikkelen van een document - management applicatie in VB.Net , zou u een methode van Microsoft Word-documenten converteren naar PDF -bestanden door middel van automatisering zeer nuttig vinden . Als u uw aanvraag moet u de documenten om te zetten naar het PDF-formaat om veranderingen of wijzigingen te voorkomen , dan is het coderen van een klasse of module om dat te doen zullen de gebruikers van uw aanvraag een hoop tijd besparen bij conversies nodig zijn . Instructies 1 Maak een Word- applicatie klasse die een document wordt geopend . Maak het variabele klasse om een document met de naam " myfilename.doc " of iets dergelijks te openen . Plaats de volgende code in een module in VB.Net : Dim woord = new ApplicationClass ( ) ; Dim word_file = pad als Object Word.Document opened_doc = woord . 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 ) ; Zorg ervoor de " null " -waarden aanwezig zijn in de bovenstaande code in om het document met behulp van standaard parameters , tenzij je nodig hebt om het document in een bepaalde weergave wilt openen of moeten andere speciale Word-functies in te schakelen op het document te openen te openen . kopen van 2 Maak een functie die de inhoud van het Word-document kopieert naar het Windows klembord . Om dit te doen , gebruik de " WholeStory " VBA opdracht om de taak van het indrukken van de "Ctrl " en toetsen " A " op hetzelfde moment om alle objecten en tekst in het document te markeren en selecteer simuleren . Gebruik de " Copy " commando om de gemarkeerde objecten invoegen in het Windows Klembord . Om dit te doen , plaatst u de volgende code in de clip = Clipboard.GetDataObject Code 3 een object variabele naar een nieuwe PDF en overdracht van content uit het Word-document . Plak de volgende code in het nieuwe object : Dim mypdf als Nieuwe mjwPDF mypdf.PDFFileName = " word_transfer.pdf " mypdf.PDFTextOut clip.ToString Insert code 4 op zowel de Word- en PDF-documenten te sluiten door op het einde van de functie plakken van de volgende code : Set woord = niets Set opened_doc = niets < br Set > mypdf = niets
|