Office: Textmarken im Word per Excel VBA ansteuern/ aktuelle Word-Seite drucken

Hallo,

ich habe folgendes Thema:
ich möchte im Excel Datensätze auslesen und in Word an bestimmte Textmarken schreiben/ einfügen und dann die aktuelle Seite im Word ausdrucken mit dem Standarddrucker.
Mit dem nachfolgenden Code kann ich lediglich das gesamte Word-Dokument drucken (mit dem Standarddrucker). Ich möchte aber nur die aktuelle Seite drucken.
Kann mir jemand helfen?

Danke

Ingo

-------------------------------

Option Explicit

Sub TextmarkenAnsteuern()
'Deklaration der Objekt-Variablen
Dim appWord As Object
Dim wrdDocument As Object

'Word-Instanz übernehmen oder starten
On Error Resume Next

Set appWord = GetObject(, "Word.Application")
If Err = 429 Then
Err.Clear
Set appWord = CreateObject("Word.Application")
If Err > 0 Then
MsgBox "Fehler beim Starten von Word!"
Exit Sub
End If
End If
Err.Clear

'Dokument öffnen
Set wrdDocument = appWord.Documents.Open("C:TestTest.docx")
If Err = 1004 Then
MsgBox "Dokument 'Test.doc' nicht vorhanden!"
appWord.Quit
Set appWord = Nothing
Exit Sub
End If
On Error GoTo 0
appWord.Visible = True

'Textmarken ansprechen und Text eintragen
wrdDocument.Bookmarks("Textmarke1").Select
appWord.Selection.MoveLeft , , True
appWord.Selection.TypeText "Mustertext Eins"

wrdDocument.Bookmarks("Textmarke2").Select
appWord.Selection.MoveLeft , , True
appWord.Selection.TypeText "Mustertext Zwei"

With wrdDocument
'.PrintPreview 'Druckvorschau
.PrintOut 'Druck auf Standarddrucker
End With

End Sub

:)

 

Hallo Ingo,

versuche mal Code:

 

Hi,
ist eigentlich eine Nummer für das Word-Forum, aber setze mal hinter PrintOut den Zusatz
Range:=wdPrintCurrentPage

Tipp: Es gibt auch in Word den Makrorekorder, der liefert Dir auch hier ein gutes Ergebnis.