Office: Aus Excel Formularfelder in Word füllen.

Hallo zusammen,

habe in Word ein Dokument mit Formularfeldern (Text1 bis Text12) und eine Excel-Tabelle mit Adress- und Formulardaten. In die Excel-Symbolleiste soll nun ein Button eingefügt werden, der folgendes auszuführen hat:
Übergabe von insgesamt 12 Zellinhalten aus der aktuell markierten Zeile in das Word-Doku in die Textfelder Text1 - Text12, ausdrucken und zurück zu Excel. Ein Speichern des Word-Dokus darf nicht (!) erfolgen. (WorkbookSaved = True...oder so ähnlich)
Die Zeilenabfrage in Excel geschieht mit ActiveCell.Row

Im Grunde genommen eine einzelne Serienbrieffunktion. Eine Selektion über Word und Einzelausdruck ist hier aus Performancegründen nicht geeignet.

Frage: Wie bekomme ich Cells(1, 1).Value in Word.Text1 ? Oder geht es womöglich noch einfacher?
Den Rest werde ich dann (hoffentlich) alleine hinbekommen.

Danke schon mal.

:)

 

Das Geht über CreateObject bzw GetObject. Sieh Dir doch mal dazu das Beispiel unter

spotlight.de /zforen /amse /m /amse-1049440299-24329.html

an.
Noch ein Hinweis: Du solltest unter Extras /Verweise die Microsoft Word-Objektbibliothek einbinden.


mfg Rita

 

Hallo Rita,

Dein Link funzt nicht. Alles nur Sternchen "*******". Bitte nochmal.

 

Tach Rita,

mit geändertem Posting habe ich es gefunden. Danke schon mal. Fehlt nur noch die Übergabe in die Formularfelder. Habe keinen Schimmer wie die Syntax hierfür lautet.

 

Tach zusammen,

so weit bin ich schon mal:

Sub vonExcelnachWord()
Dim appWord As Object
Dim doc As Object
On Error Resume Next

einfuege = Cells(2, 1).Value

Set appWord = GetObject(, "Word.Application")
If Err.Number 0 Then Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("C:\serientest.doc")
ActiveWorkbook.fields(1).result = einfuege 'Hier ist der Knackpunkt

End Sub

 

Code:

mfg Rita

 

Tach Rita,

funzt nicht. Ich habe den Code zur Kontrolle mal umgeschrieben in:
MsgBox appWord.Activedocument.Shapes.Count (=1)
MsgBox appWord.Activedocument.Shapes(1).Type (=12)

Abfragen kann ich also die Platzhalter und auch deren Eigenschaft. Aber mit Werten füllen funktioniert nicht.

Mit Deiner Lösung passiert gar nichts. Word öffnet zwar die Datei (im Hintergrund), kurz ne Sanduhr, keine Fehlermeldung ("On Error..."), das wars.

Ist sicherlich irgendeine Kleinigkeit, aber ich komme nicht drauf.

 

1. Wenn Word nur im Hintergrund geöffnet wird, musst Du noch ein

appWord.Visible=True

hinzufügen.


2. In ein shape-Objekt kann man wohl tatsächlich nicht so ohne weiteres schreiben. Folgendermaßen müsste es aber gehen:

appWord.Shapes(1).Select
appWord.Selection.InsertAfter einfuege

mfg Rita

 

Tach Rita,

Danke für Deine (leider vergebliche) Mühe: Der Inhalt der Variablen "einfuege" wird mir an der aktuellen Cursorposition des Word-Dukumentes eingefügt. Das "Shape" wird völlig ignoriert. Ich gebs auf. Außer es findet sich doch noch ein Schlauchen mit der zündenden Idee.

 

Tach zusammen,

das kluge Köpfchen hat sich im Herber-Forum versteckt. Ist zwar nicht ganz das, was ich mir vorgestellt habe, aber es klappt. Ramses bedient sich hierbei keinen Formularfeldern sondern Textmarken, die folgendermaßen angesprochen werden:

appWord.ActiveDocument.Bookmarks("a1").Range.Text = Worksheets("Tabelle1").Cells(ActiveCell.Row,1)

Danke Euch allen vielmals.

 

Hallo Markus,

Ramses bedient sich nicht der Textmarken, sondern jedes Formularfeld bekommt beim Einfügen von Word eine Textmarke zugewiesen. Das sind dann immer so aussagekräftige Namen wie "Text1", "Text2", etc., die Du aber nach Deinen Wünschen ändern kannst. Mach mal einen Doppelklick auf eins der Formularfelder...

Eine gute Quelle für Word-vba ist auch nach wie vor die Seite von René. Hier [klick mich] mal die Seite, wie man von anderen Office-Anwendungen auf Word zugreift (und umgekehrt).

 

Hallo Peppi,

schon wieder was dazugelernt: Dass die Formularfelder in Word wie ganz banale Textmarken behandelt werden. In meinem Dokument sind jetzt über Einfügen-Textmarke unsichbare Markierungen.

Danke für die Info.