Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Werte aus Excel in Word einfügen und automatisch drucken
zurück: Mit VBA ein Wort im text mit fortlaufenden Nummer versehen weiter: listformatvorlage mit 1 neu nummerieren WD2003 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
06. März 2010, 17:54
Rufname:

Werte aus Excel in Word einfügen und automatisch drucken - Werte aus Excel in Word einfügen und automatisch drucken

Nach oben
       Version: Office XP (2002)

Hallo,

ich scheitere an einem Problem und hoffe auf Hilfe. Meine Suche hat bisher kein zufriedenstellendes Ergebnis gebracht.
Aus Excel wird ein bestimmtes Word Dokument gestartet, dabei soll ein bestimmter Wert an Word übertragen werden:

Private Sub CommandButton1_Click()

Me.Tag = "ok"
UserForm1.Hide
Dim appword As Object
Dim doc As Object
On Error Resume Next
Set appword = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set appword = CreateObject("Word.Application")
appword.Visible = True
appword.Activate
Set doc = appword.Documents.Open("test.doc")
doc.Bookmarks("Textmarke1").Range.Text = Range("A1")

End Sub

In Word wird nun automatisch eine Userform gestartet. Nach Eingabe verschiedener Daten in eine Textmarke erfolgt die Abfrage ob das Dokument gedruckt und Word geschlossen werden soll:

Private Sub CommandButton1_Click()

Me.Tag = "ok"
UserForm1.Hide

Selection.Font.Size = 12
Selection.GoTo what:=wdGoToBookmark, Name:="Text"
If Me.Tag = "ok" Then Selection.TypeText Text:=TextBox1

Call drucken

End Sub


Sub drucken()

drucken = MsgBox("Willst du das Dokument jetzt drucken und Word beenden ?", vbYesNo)
If drucken = vbYes Then ActiveDocument.printout
If drucken = vbYes Then Word.ActiveDocument.Saved = True
Application.Wait Now + TimeSerial(0, 0, 5)
Word.Application.Quit
If drucken = vbNo Then End

End Sub

Jetzt mein Problem: Der Wert aus Excel (A1) wird vor dem Drucken und Schließen von Word nicht übertragen. Erscheint mir auch logisch, da der Befehl erst nach dem Öffnen von Word "aktiviert" wird.
Wie kann also der Wert aus Excel entsprechend übertragen werden? Ich bin da ziemlich ratlos. Eventuell gehört die Anfrage auch eher in den Excel Thread.

Lieben Dank
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
06. März 2010, 19:52
Rufname:
Wohnort: Leipzig


AW: Werte aus Excel in Word einfügen und automatisch drucken - AW: Werte aus Excel in Word einfügen und automatisch drucken

Nach oben
       Version: Office XP (2002)

Hallo Gast,

füll einfach den Wert schon vorher in eine Variable, auf die kannst Du danach noch zugreifen, etwa so:
Code:
Private Sub CommandButton1_Click()

Dim strA1 As String

strA1 = Range("A1").Text    '(oder auch .Value, je nachdem)
Me.Tag = "ok"
UserForm1.Hide
Dim appword As Object
Dim doc As Object
On Error Resume Next
Set appword = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set appword = CreateObject("Word.Application")
appword.Visible = True
appword.Activate
Set doc = appword.Documents.Open("test.doc")
doc.Bookmarks("Textmarke1").Range.Text = strA1

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast Antwort
Gast


Verfasst am:
07. März 2010, 17:26
Rufname:

AW: Werte aus Excel in Word einfügen und automatisch drucken - AW: Werte aus Excel in Word einfügen und automatisch drucken

Nach oben
       Version: Office XP (2002)

Hallo,

danke für die schnelle Antwort. Leider hat es noch nicht funktioniert. Ich muss sicherlich im VBA-Code in Word noch was ändern, so dass die Variable auch übertragen bzw. dass die Variable öffentlich wird? Bin da nur ratlos wie ich das am besten anstelle?

gruß
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
09. März 2010, 18:20
Rufname:
Wohnort: Leipzig


AW: Werte aus Excel in Word einfügen und automatisch drucken - AW: Werte aus Excel in Word einfügen und automatisch drucken

Nach oben
       Version: Office XP (2002)

Hallo Gast,

kannst Du bitte etwas genauer werden? Was hat nicht funktioniert? Wurde die Variable nicht übergeben? Das kann ich mir schwer vorstellen.

Oder wurde an die Textmarke nichts geschrieben?
Existiert die Textmarke denn überhaupt in dem Dokument "test.doc"?

Gruß
Lisa
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Formular mit Access-Datenbank automatisch "befüllen&quo 0 craysee 1114 11. März 2008, 16:24
craysee Formular mit Access-Datenbank automatisch "befüllen&quo
Keine neuen Beiträge Word Serienbriefe: Wenn dann Textbaustein / Autotext einfügen 0 miricoleo 4173 01. Dez 2007, 21:04
miricoleo Wenn dann Textbaustein / Autotext einfügen
Keine neuen Beiträge Word Serienbriefe: Seriendruckfeld (grau unterlegt beim drucken) 6 Andreas(o)-(o) 12351 21. Nov 2007, 14:17
Niko42 Seriendruckfeld (grau unterlegt beim drucken)
Keine neuen Beiträge Word Serienbriefe: Textformularfelder beim Drucken leer... 2 Gast 7623 05. Jun 2007, 15:21
Gast Textformularfelder beim Drucken leer...
Keine neuen Beiträge Word Serienbriefe: Datenbank einfügen klappt nicht mehr! 2 Schwertfeger 1321 24. März 2007, 21:32
Schwertfeger Datenbank einfügen klappt nicht mehr!
Keine neuen Beiträge Word Serienbriefe: Grafik immer in gleicher Größe einfügen 0 Maik 2470 05. Sep 2006, 10:47
Maik Grafik immer in gleicher Größe einfügen
Keine neuen Beiträge Word Serienbriefe: Daten gruppieren und in einem Serienbrief einfügen 2 Recer 7047 30. Mai 2006, 10:38
mitulski Daten gruppieren und in einem Serienbrief einfügen
Keine neuen Beiträge Word Serienbriefe: Mehrere .rtf Dateien automatisch in Word Dokument einfügen 3 nytaiceman 5405 29. März 2006, 12:10
Ina Mehrere .rtf Dateien automatisch in Word Dokument einfügen
Keine neuen Beiträge Word Serienbriefe: Etiketten (4 Bahnig) auf A3 Querformat drucken 1 .Fabrizio' 1728 01. März 2006, 16:35
.Fabrizio' Etiketten (4 Bahnig) auf A3 Querformat drucken
Keine neuen Beiträge Word Serienbriefe: Seriendruckempfänger als Tabelle drucken 4 Walltraud 4070 30. Jan 2006, 20:46
Ina Seriendruckempfänger als Tabelle drucken
Keine neuen Beiträge Word Serienbriefe: grauer Hintergrund beim drucken 1 laura 5311 24. Jan 2006, 12:39
Betty2004 grauer Hintergrund beim drucken
Keine neuen Beiträge Word Serienbriefe: unterschiedliche Elemente (Barcodes) in Serienbrief einfügen 0 Lars123 1405 24. Jan 2006, 09:41
Lars123 unterschiedliche Elemente (Barcodes) in Serienbrief einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript