Si vous développez une application de gestion de documents en VB.Net, vous pourriez trouver un procédé de conversion de documents Microsoft Word en fichiers PDF grâce à l'automatisation très utile. Si vous avez besoin de votre application pour convertir des documents au format PDF afin d'éviter des changements ou des modifications, puis coder une classe ou un module pour faire exactement cela permettra d'économiser utilisateurs de votre application beaucoup de temps lors de conversions sont nécessaires. Instructions 1 Créer une classe d'application Word qui ouvre un document. Créez la classe variable pour ouvrir un document nommé " myfilename.doc " ou quelque chose de semblable . Insérez le code suivant dans un module en VB.Net : mot Dim = new ApplicationClass (); word_file Dim = chemin comme objet opened_doc Word.Document = mot . 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); Soyez sûr les valeurs "null" sont présents dans le code ci-dessus pour ouvrir le document en utilisant les paramètres par défaut sauf si vous avez besoin d'ouvrir le document dans une vue spécifique ou besoin d'activer d'autres fonctions de mot spécial à l'ouverture du document. 2 < p> Créer une fonction qui copie le contenu du document Word pour le presse-papiers de Windows. Pour ce faire , utilisez la commande VBA " WholeStory " pour simuler la tâche de la touche " Ctrl" et "A" en même temps , sélectionner tous les objets et le texte du document. Utilisez la commande "Copier" pour insérer les objets mis en évidence dans le Presse-papiers de Windows. Pour ce faire , insérez le code suivant dans le Clip = Clipboard.GetDataObject 3 code une variable d' objet pour créer un nouveau fichier PDF et transférer du contenu à partir du document Word. Collez le code suivant dans le nouvel objet : mypdf As New mjwPDF mypdf.PDFFileName = " word_transfer.pdf " mypdf.PDFTextOut clip.ToString Hôtels 4 Insérer le code de fermer deux de la Parole et des documents PDF en collant le code suivant à la fin de la fonction: Set mot = rien Set opened_doc = rien Set mypdf = rien
|