Thema Datum  Von Nutzer Rating
Antwort
27.11.2019 15:23:20 Ingo
NotSolved
28.11.2019 11:28:00 tscharl
NotSolved
Rot Textmarken im Word per Excel VBA ansteuern
 28.11.2019 12:58:44 Mase
NotSolved
06.12.2019 09:05:13 Gast24754
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
28.11.2019 12:58:44		 Views:
525		 Rating:
     
Antwort:
  Ja
Thema:
Textmarken im Word per Excel VBA ansteuern

Hi Ingo,

verwende die Methode .PrintOut um auszudrucken bspw. wie folgt:

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:\Test\Test.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

 

Um exakte Seiten zu drucken, schau Dir mal an, was diese Methode für Parameter anbietet:

https://docs.microsoft.com/de-de/office/vba/api/word.document.printout

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2019 15:23:20 Ingo
NotSolved
28.11.2019 11:28:00 tscharl
NotSolved
Rot Textmarken im Word per Excel VBA ansteuern
 28.11.2019 12:58:44 Mase
NotSolved
06.12.2019 09:05:13 Gast24754
NotSolved