Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Textmarken im Word per Excel VBA ansteuern |
27.11.2019 15:23:20 |
Ingo |
|
|
|
28.11.2019 11:28:00 |
tscharl |
|
|
|
28.11.2019 12:58:44 |
Mase |
|
|
|
06.12.2019 09:05:13 |
Gast24754 |
|
|
Von:
Ingo |
Datum:
27.11.2019 15:23:20 |
Views:
846 |
Rating:
|
Antwort:
|
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
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Textmarken im Word per Excel VBA ansteuern |
27.11.2019 15:23:20 |
Ingo |
|
|
|
28.11.2019 11:28:00 |
tscharl |
|
|
|
28.11.2019 12:58:44 |
Mase |
|
|
|
06.12.2019 09:05:13 |
Gast24754 |
|
|