Hvis du er ved at udvikle et dokument -management program i VB.Net , kan du finde en metode til at konvertere Microsoft Word-dokumenter til PDF-filer gennem automatisering meget nyttig. Hvis du har brug for din ansøgning til at konvertere dokumenter til PDF-format for at forhindre ændringer eller redigerer , så kodning en klasse eller modul til at gøre netop det vil spare brugere af din ansøgning en masse tid, når konverteringer er nødvendige. Instruktioner
1
Opret en Word ansøgning klasse, der åbner et dokument. Opret variable klassen at åbne et dokument med navnet " myfilename.doc " eller noget lignende. Indsæt følgende kode i et modul i VB.Net : Hej
Dim ord = new ApplicationClass ();
Dim word_file = sti som Object
Word.Document opened_doc = word . Documents.Open (ref word_file , ref null , ref null , ref null , ref null , ref null , ref null , ref null , ref null , ref null , ref null , ref null) ;
Vær sikker de " null " værdier er til stede i ovenstående kode til at åbne dokumentet ved hjælp standardparametre medmindre du har brug for at åbne dokumentet i en bestemt visning eller nødt til at aktivere andre særlige Word -funktioner til at åbne dokumentet .
2 < p > Opret en funktion, der kopierer indholdet af Word-dokumentet til Windows Udklipsholder . For at gøre dette , skal du bruge " WholeStory " VBA kommando til at simulere den opgave at trykke på " Ctrl" og "A" tasterne samtidigt for at fremhæve og markere alle objekter og tekst i dokumentet. Brug " Copy " kommando til at indsætte de fremhævede objekter i Windows Udklipsholder . For at gøre dette , skal du indsætte følgende kode i clip = Clipboard.GetDataObject
3
Code et objekt variabel at oprette en ny PDF-fil og overføre indhold fra Word-dokumentet. Indsæt følgende kode i det nye objekt : Hej
Dim mypdf Da New mjwPDF
mypdf.PDFFileName = " word_transfer.pdf "
mypdf.PDFTextOut clip.ToString
4
Indsæt kode til at lukke både Word og PDF-dokumenter ved at indsætte følgende kode i slutningen af funktionen : Hej
Set word = intet
Set opened_doc = intet < br >
Set mypdf = intet