Maison  >  Article  >  Tutoriel logiciel  >  Opération d'impression d'un document Word en VB

Opération d'impression d'un document Word en VB

WBOY
WBOYavant
2024-01-13 12:27:16772parcourir

Après que vb imprime un document Word

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

.

Comment utiliser VB pour appeler des documents WORD ? Merci de me faire savoir si vous êtes un expert !

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

Comment générer un document Word en VB

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!

Déclaration:
Cet article est reproduit dans:. en cas de violation, veuillez contacter admin@php.cn Supprimer