Druckvorgang eines Word-Dokuments in VB

Nachdem vb ein Word-Dokument gedruckt hat

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.

Ich weiß, aber ich kann es nicht direkt lesen, weil Microsoft die Verschlüsselungsmethode nicht bekannt gegeben hat, also muss ich WORD aufrufen, um es zu lesen und es dann zu bekommen

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

WordApp als Word.Application dimmen und Wortanwendungsvariablen definieren

„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!