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

Ansicht des Beitrags:
Von:
Ingo		 Datum:
27.11.2019 15:23:20		 Views:
1108		 Rating:
     
Antwort:
  Ja
Thema:
Textmarken im Word per Excel VBA ansteuern

Hallo zusammen,

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.

Bis jetzt klappt alles außer das Drucken der aktuellen Seite.

Wer kann mir helfen?

Code ist angehängt

 

Vielen Dank

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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:\Testen\Test.doc")
 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"
 
 
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Textmarken im Word per Excel VBA ansteuern
 27.11.2019 15:23:20 Ingo
NotSolved
28.11.2019 11:28:00 tscharl
NotSolved
28.11.2019 12:58:44 Mase
NotSolved
06.12.2019 09:05:13 Gast24754
NotSolved