Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excelwerte in bestimmtes Textfeld in Word eintrage

Excelwerte in bestimmtes Textfeld in Word eintrage
08.05.2006 15:11:28
marcl
Hallo Forumsgemeinde,
ich habe ein Worddokument mit vielen Textfeldern. Ich möchte nun aus meiner berechnenden Tabelle Werte gezielt in bestimmte Textfelder auf unterschiedlichen Seiten in Word eintragen.
Ist so etwas mit VBA möglich?
Danke
Grüße ausm sonnigen Norden,
marcl

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
08.05.2006 15:31:00
Tassos
Hallo marcl,
Mit Word von Excel importieren oder Excel nach Word exportieren?
Gruss
Tassos
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
08.05.2006 16:43:27
HorstH
Hallo Tassos,
interessiert mich auch das Thema. Kannst du es über DAO? Excel nach Word? Würde mich interessieren - Textfeld z. B.
Gruß
Horst
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
08.05.2006 18:10:23
IngGi
Hallo marcl,
mal als Gerüst. Range("A1") bzw. Shapes(1) musst du durch die gewünschten Quellzellen in Excel bzw. Zieltextboxen in Word ersetzen. Genauso musst du natürlich das Word-Dokument "C:\Temp\MeineDatei.doc" durch die entsprechende Word-Datei mit Pfadangabe ersetzen. Das Makro kommt in die Excel-Datei.

Sub xl_nach_wd()
Dim wdApp As Object
Dim wdDoc As Object
'Laufende Word-Instanz in Variable
On Error GoTo keinWord 'wenn Word nicht bereits gestartet
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
'Zieldatei in Word geöffnet?
For Each wdDoc In wdApp.Documents
If wdDoc.FullName = "C:\Temp\MeineDatei.doc" Then Exit For
Next 'wdDoc
'Wenn Zieldatei nicht geöffnet, diese öffnen
If Not wdDoc Is Nothing Then
If wdDoc.FullName <> "C:\Temp\MeineDatei.doc" Then
Set wdDoc = wdApp.Documents.Open("C:\Temp\MeineDatei.doc")
End If
End If
'Inhalt von Zelle A1 des aktiven Blattes in die Textbox 1 des
'Word-Dokumentes
wdDoc.Shapes(1).TextFrame.TextRange = Range("A1")
Exit Sub
keinWord:
'Word starten, wenn es nicht bereits läuft
Set wdApp = CreateObject("Word.Application")
Resume Next
End Sub
GrußIngolf
Anzeige
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
08.05.2006 21:44:28
marcl
Hallo Ingolf,
danke für Deine Antwort. Werde da mal testen. Melde mich morgen.
Gruß
marcl
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
09.05.2006 07:29:49
marcl
Hallo Ingolf,
ich habe eine Kleinigkeit übersehen. Es sind keine Textfelder, sondern Positionsrahmen. Macht das einen Unterschied?
Gruß
marcl
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
09.05.2006 07:29:52
marcl
Hallo Ingolf,
ich habe eine Kleinigkeit übersehen. Es sind keine Textfelder, sondern Positionsrahmen. Macht das einen Unterschied?
Gruß
marcl
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
09.05.2006 07:58:21
Excelwerte
AW: Excelwerte in bestimmtes Textfeld in Word eintrage
09.05.2006 11:07:29
IngGi
Hallo marcl,
das Word-Objektmodell ist mir leider selbst nicht geläufig. Aber so müsste es wohl gehen:

Sub xl_nach_wd()
Dim wdApp As Object
Dim wdDoc As Object
'Laufende Word-Instanz in Variable
On Error GoTo keinWord 'wenn Word nicht bereits gestartet
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
'Zieldatei in Word geöffnet?
For Each wdDoc In wdApp.Documents
If wdDoc.FullName = "C:\Temp\MeineDatei.doc" Then Exit For
Next 'wdDoc
'Wenn Zieldatei nicht geöffnet, diese öffnen
If Not wdDoc Is Nothing Then
If wdDoc.FullName <> "C:\Temp\MeineDatei.doc" Then
Set wdDoc = wdApp.Documents.Open("C:\Temp\MeineDatei.doc")
End If
End If
'Inhalt von Zelle A1 des aktiven Blattes in den Positionsrahmen 1
'des Worddokumentes einfügen
wdDoc.Frames(1).Range.InsertAfter Range("A1")
Exit Sub
keinWord:
'Word starten, wenn es nicht bereits läuft
Set wdApp = CreateObject("Word.Application")
Resume Next
End Sub
Gruß Ingolf
Anzeige
funzt super, Vielen Dank o.T.
09.05.2006 11:41:59
marcl

301 Forumthreads zu ähnlichen Themen

Word-Frage, wo sind die zuletzt geöffneten dateie
Reinhard

Hallo Wissende,
wenn ich in Excel einen Dateinamen aus der Liste der zuletzt geöffneten Dateien nehme und danach in der Registry suche, so finde ich dort die Liste der Dateien und könnte mit kenntnis des Schlüssels dort die Dateiliste auslesen, naaja, wenn ich Code dafür hätte :-)
In/mi...
08.09.2008 22:51:00
Thread-ID: 1008263
4 Beiträge
Anzeige
Daten aus Excel ins Word
Martin

Guten Tag
Ich habe eine Postleitzahl im Word (Textmarke) und wurde gerne mit einem SVERWEIS aus dem Excel einen Namen ziehen und den ins Word-Dokument schreiben. Gibt es eine Möglichkeit dies zu machen?
Besten Dank im voraus.
Excel sieht wie folgt aus:
Spalte A (PLZ) Spalte B (...
18.02.2009 17:07:00
Thread-ID: 1051875
3 Beiträge
Excel Daten in Word
Krawak

Hallo!
Ich verbinde ein Word Dokument mit Inhalten einer Exceltabelle mittels einer Feldfuntion. Soweit so gut das funktioniert auch. Jedoch beim aktualisieren der Felder im Word wird automatisch ein Zeilenumbruch eingefügt. Gibt es da etwas womit man selbiges verhindern kann?
Danke für...
30.06.2009 23:10:48
Thread-ID: 1085280
3 Beiträge
Anzeige
Zeilen bei Keyword verschieben
Homer

Hallo, ich arbeite mit open office 3. ich habe eine liste und trage in spalte e jeweils ein "ja" ein, wenn ich diese zeile abgearbeitet habe. jetzt würde es mir bez. übersichtlichkeit und arbeits schnelligkeit helfen, wenn die zeile, die ein "ja" bekommt sich automatisch nach unten schiebt, ohn...
11.10.2009 19:49:07
Thread-ID: 1108885
3 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Formulardaten in Datenbank automatisch einfügen
kevin-mau@arcor.de

Hallo.
Vielleicht kann es sein das ich im falschem Forum bin, entschuldigt dies bitte.
Aber,...
Ich habe folgendes Problem und zwar brauche ich eine Exceltabelle die als Datenbank dient und ein Formular das Datensätze beihnaltet die nach dem Speichern des Formulars automatisch in di...
27.11.2009 03:19:39
Thread-ID: 1120414
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
2
2
2
6
2
1
2
3
1
8
7
11
1
2
2
1
1
2
2
8
3
8