Heim >Software-Tutorial >Bürosoftware >Druckvorgang eines Word-Dokuments in VB
VB-Operation WORD-Code:
WrdObject als Word.Application dimmen
WrdDoc als Word-Dokument dimmen
Setzen Sie wrdObject = CreateObject("Word.Application")
Setzen Sie wrdDoc = wrdObject.Documents.Open("d:/hao/one.doc")
wrdObject.Visible = True
wrdObject.Selection.TypeText „Dies ist Text.“ ‚Text in Word schreiben
wrdDoc.PrintOut
'wrdDoc.ClosePrintPreview 'Druckvorschau schließen
wrdDoc.Close 'Word-Dokument schließen
wrdObject.Quit 'Word-Anwendung beenden
Setze wrdDoc = Nothing 'Speicher freigeben
Set wrdObject = Nothing 'Speicher freigeben
Ihr Code wird wahrscheinlich direkt beendet, ohne das Word-Dokument zu schließen. Der obige Code führt den Druck aus und schließt ihn dann
Wie verwende ich VB zum Aufrufen von WORD-Dokumenten? Bitte lassen Sie es mich wissen, wenn Sie ein Experte sind.Fügen Sie zunächst die Microsoft Word 11.0-Objektbibliothek zur Projektreferenz hinzu
Zwischenablagetext abdunkeln
Dimmen Sie die Schnittstelle des Word-Textverarbeitungssystems als Word.Application. Erstellen Sie ein Word.Application-Objekt.
Word-Dokument als Word-Dokument dimmen
Word-Dokumenttext als Word dimmen. Auswahl „Ein Dokument zum Textverarbeitungssystem hinzufügen“
Word-Textverarbeitungssystemschnittstelle festlegen = CreateObject("Word.Application") 'Objekt auswählen
Word-Textverarbeitungssystem-Schnittstelle.Visible = False 'Word.application, die Schnittstelle des Word-Textverarbeitungssystems, wird nicht angezeigt
Word-Dokument festlegen = Word-Textverarbeitungssystemschnittstelle.Dokumente.Öffnen (Dateipfad)
Word-Dokumenttext festlegen = Word-Textverarbeitungssystemschnittstelle. Auswahl
Word-Dokumenttext.WholeStory
Word-Dokumenttext.Kopieren
Clipboard text = Clipboard.GetText(vbCFText) 'In Text1 einfügen
Text1.Text = Zwischenablagetext
'Clipboard.SetData Temp
Word-Dokument.Schließen 'Dokument schließen
Word-Textverarbeitungssystem-Schnittstelle.Anwendung.Beenden
Setzen Sie die Word-Textverarbeitungssystemschnittstelle auf „Nichts“ und „Variablen löschen“
Word-Dokumenttext = Nichts festlegen
'Vorgang abschließen
Ich erhalte den Text über die Zwischenablage, weil dadurch die Formatierung erhalten bleibt (meine ursprüngliche Kreation)
Es ist auch möglich, es direkt zu bekommen, aber alle Formate gehen verloren, sodass meine Methode besser ist
So geben Sie ein Word-Dokument in VB aus
„Dim newDoc As Word.Document“ definiert Word-Dokumentvariablen
Set WordApp = CreateObject("Word.Application")'Erstellen Sie eine neue Word-Anwendung
WordApp.Visible = True
Mit WordApp
Setzen Sie newDoc = .Documents.Add(App.Path & "Report Sheet Food Water Quality Report.Doc")'Erstellen Sie ein neues Word-Dokument in der erstellten Word-Anwendung
Mit .Selection
.GoTo wdGoToBookmark, , , „bh“ bh ist der Tag-Name der entsprechenden Position im Word-Dokument
.TypeText PrnBID'Inhalt schreiben
.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName ist der Tag-Name der entsprechenden Position im Word-Dokument
.TypeText PrnGName'Inhalt schreiben
Setze MyRS = Nichts
Ende mit
' newDoc.SaveAs FileName:=FilePath
Ende mit
' Wenn theError = 429, dann WordApp.Quit
Setze WordApp = Nichts
Setzen Sie die Beschriftung im vorgefertigten Word-Dokument an die Stelle, an der Sie den Inhalt schreiben möchten, suchen Sie dann die Beschriftung im Programm und schreiben Sie dann die Daten
Das obige ist der detaillierte Inhalt vonDruckvorgang eines Word-Dokuments in VB. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!