Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wordformularfelder nach Excel

Wordformularfelder nach Excel
31.05.2006 12:28:10
Markus
Hallo,
ich habe ein Wordformular (Fragebogen), in dem viele Textformularfelder enthalten sind. Das habe ich per Mail verschickt und nun die Antworten zurückbekommen.
In Excel habe ich eine kleine Tabelle, wo die Einträge aus den Texfomularfeldern (Word) untereinander stehen.
Ich muss also jedes Wordformular öffnen und den Inhalt rüberkopieren. Gibt es eine Möglichkeit den Kopiervorgang irgendwie zu automatisieren?
Kann mir jemand Tipp's oder wenigstens Ansätze geben. Mir reicht auch schon ein Stichwort unter dem ich suchen könnte....
Danke
Markus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wordformularfelder nach Excel
02.06.2006 08:20:54
Tom
Hallo Markus,
ein Ansatz:
Option Explicit

Sub Textfelder_einlesen()
Dim xDoc As String
Dim appWord As Object
Dim Bereich As Range
Dim Zelle As Range
Dim Leerz As Integer, i As Integer
Dim Textfelder As String
xDoc = "D:\Eigene Dateien\Test.doc"
If Dir(xDoc) <> "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open xDoc
For i = 1 To 5
Sheets(1).Cells(i, 1).Value = appWord.ActiveDocument.Shapes("Text Box " & i).AlternativeText
Next i
appWord.Application.Quit
Set appWord = Nothing
End If
Set Bereich = Range("A:A")
For Each Zelle In Bereich
If IsEmpty(Zelle) Then Exit For
Leerz = InStr(Zelle, ":")
Textfelder = Mid(Zelle, Leerz + 1)
Zelle = Textfelder
Next Zelle
End Sub

Das ist ein Excelmakro u. öffnet in diesem Beispiel die Worddatei "Test.doc", liest die Inhalte der Textfelder 1 bis 5 in Spalte A der Exceldatei (Blatt 1) ein. Den Pfad u. Namen der Worddatei musst angleichen, ebenso die Textfelder.
1 bis 5 musst du entsprechend deiner Textfelder angleichen. Also, die Namen dieser Textfelder. Textfelder heissen ja: shapes("Text Box 1"), shapes("Text Box 2"), usw...
Es gibt bestimmt elegantere Lösungen, aber bei mir funzt es einwandfrei.
Grüsse
Anzeige

41 Forumthreads zu ähnlichen Themen

Word 2003: Wie baue ich in ein Word-Formularfeld e
RDausA

Ich habe ein aktuelles Word-Formular, welches ich gerne verbessern möchte, weiss aber leider nicht genau wie. Da es im Excel mit einer einfachen Wenn-Formel gelöst werden könnte, lässt es mir keine Ruhe - kann dies nur mittels VBA gelöst werden.
Kartenprägezeile 1
Wenn ein Kontrollkäste...
02.09.2009 15:20:43
Thread-ID: 1100113
3 Beiträge
Anzeige
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
VBA in Word mit Mergefields/Textformularfeldern
Martin

Guten Tag
Hoffe, es kennt sich jemand gut mit Word aus hier im Excel-Forum...
Ich habe ein Word-Template mit Mergefields und Textformularfeldern. Die Mergefields werden beim Öffnen automatisch durch eine andere Applikation (die kann ich nicht ändern) abgefüllt. Ich möchte jetzt, dass da...
16.02.2011 18:12:05
Thread-ID: 1201235
4 Beiträge
Anzeige
Markierten Bereich aus Excel in Word einfügen
Peter

Hallo liebes Forum,
ich möchte einen zusammenhängenden markierten Bereich aus Excel per Makro in ein existierendes Worddokument einfügen.
Einzelne Teile habe ich mir per Makrorekorder oder aus Archiv zusammengbastelt:
Selection.Copy
Pfad = ThisWorkbook.Path & "\Dokument1.doc...
18.11.2011 19:43:13
Thread-ID: 1238451
3 Beiträge
Tabelle in word einfügen
Carle

Ahoi!
Ich möchte eine Excel-Tabelle in ein Word-Dok einfügen. Dabei ging ich zuletzt wie folgt vor: Excel-Bereich markieren, kopieren, Wechsel in Word-Dok, Bearbeiten, Inhalte einfügen, Option Verknüpfung einfügen, MS Office Excel-Arbeitsblatt-Objekt, ok. Es erscheint jedoch nur ein grauer...
31.01.2012 14:19:35
Thread-ID: 1248650
2 Beiträge
Kann man freie Felder in eine Grafik einfügen?
Maik

Hallo zusammen,
ich habe da eine Excelmappe, die aus der Grafik und einer Seite für die Datenbasis besteht.
Siehe Anhang.
https://www.herber.de/bbs/user/83078.xlsx
Ich möchte dass die Kollegen nur in der Datenbasis ihre Eingaben machen und diese in der Grafik erscheinen.
Da...
19.12.2012 17:42:50
Thread-ID: 1291591
5 Beiträge
Excel Tabelle in Word einfügen, Laufzeitfehler 594
Stephan

Hallo zusammen,
ich habe via VBA in Excel eine Tabelle kopiert und versuche, diese mit der VBA-Anweisung in Word:
Selection.PasteExcelTable False, False, False
in ein Worddokument zu integrieren. Allerdings wird gar nix eingefügt. Wollte gern die Formatierungen aus Excel beibehalten...
18.01.2013 10:43:54
Thread-ID: 1294916
3 Beiträge
Excel-Tabelle 2007 in Word 2007 einfügen
Carle

Liebe Sachverständige!
Ich kämpfe mal wieder mit dem im Betreff genannten Problem. Ich habe hier ein Buch zu word 2007, auch das Internet und speziell diese Forum habe ich schon bemüht.
Wenn ich in Word über Einfügen/Objekt/Aus Datei erstellen eine kleine Tabelle aus Excel in mein Word-...
21.01.2013 15:34:47
Thread-ID: 1295233
2 Beiträge

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
2
1
3
3
3
2
1
4
2
1
4
9
1
3
4
1
1
7
1
4
6
2
8
1
1