Maison > Article > Tutoriel logiciel > Opération d'impression d'un document Word en VB
Code MOT de l'opération VB :
Dim wrdObject As Word.Application
Dim wrdDoc en tant que Word.Document
Définissez wrdObject = CreateObject("Word.Application")
Définissez wrdDoc = wrdObject.Documents.Open("d:/hao/one.doc")
wrdObject.Visible = True
wrdObject.Selection.TypeText "Ceci est du texte." "Écrivez du texte dans Word
wrdDoc.PrintOut
'wrdDoc.ClosePrintPreview 'Fermer l'aperçu avant impression
wrdDoc.Close 'Fermer le document Word
wrdObject.Quit 'sortie de l'application Word
Set wrdDoc = Nothing 'Libérer la mémoire
Set wrdObject = Nothing 'Libérer la mémoire
Votre code se termine probablement directement sans fermer le document Word. Le code ci-dessus exécute l'impression puis le ferme
.Je sais, mais je ne peux pas le lire directement car Microsoft n'a pas annoncé la méthode de cryptage, je dois donc appeler WORD pour le lire puis l'obtenir
Ajoutez d'abord la bibliothèque d'objets Microsoft Word 11.0 à la référence du projet
Dim le texte du presse-papiers
Dim Interface du système de traitement de texte Word En tant que Word.Application 'Créer un objet word.application
Dim Document Word en tant que Word.Document
Dim Word document text As Word.Selection 'Ajouter un document dans le système de traitement de texte
Définir l'interface du système de traitement de texte Word = CreateObject("Word.Application") 'Sélectionner un objet
Interface du système de traitement de texte.Visible = False 'Ne pas afficher word.application, qui est l'interface du système de traitement de texte
Définir le document Word = Interface du système de traitement de texte Word.Documents.Open (chemin du fichier)
Définir le texte du document Word = Interface du système de traitement de texte Word.Sélection
Texte du document Word.WholeStory
Texte du document Word.Copie
Clipboard text = Clipboard.GetText(vbCFText) 'Mettez-le dans text1
Text1.Text = Texte du Presse-papiers
'Clipboard.SetData Temp
Document Word.Fermer 'Fermer le document
Interface du système de traitement de texte Word.Application.Quitter
Définir l'interface du système de traitement de texte Word = Rien 'Effacer les variables
Définir le texte du document Word = Rien
'Opération complète
Je récupère le texte via le presse-papier car il préserve la mise en forme (ma création originale)
Il est également possible de l'obtenir directement, mais tous les formats seront perdus, donc ma méthode sera meilleure
Dim WordApp As Word.Application'définit les variables d'application Word
Dim newDoc As Word.Document' définit les variables du document Word
Set WordApp = CreateObject("Word.Application")'Créer une nouvelle application Word
WordApp.Visible = Vrai
Avec WordApp
Set newDoc = .Documents.Add(App.Path & "Report Sheet Food Water Quality Report.Doc")'Créez un nouveau document Word dans l'application Word créée
Avec .Sélection
.GoTo wdGoToBookmark, , , "bh" bh est le nom de la balise de la position correspondante dans le document Word
.TypeText PrnBID'Write content
.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName est le nom de la balise de la position correspondante dans le document Word
.TypeText PrnGName'Écrire du contenu
Définir MyRS = Rien
Fin avec
' newDoc.SaveAs FileName:=FilePath
Fin avec
' Si theError = 429 Alors WordApp.Quit
Définir WordApp = Rien
Définissez l'étiquette dans le document Word prédéfini où vous souhaitez écrire le contenu, puis recherchez l'étiquette dans le programme, puis écrivez les données
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!