ŽKontollkästchen und Text aus Wordformular in Excel einlesen

15/01/2008 - 08:55 von Peter | Report spam
Hallo Leute,
ich möchte gerne aus einem Word-Formular ein Form einer Tabelle Text
aus einer Tabellenzelle und den Zustand eines Kontrollkàstchen in
einer anderen Tabellenzelle (ob angekreuzt oder nicht) in eine Excel-
Datei einlesen.
Wie könnte man das machen?

Gruß
Peter
 

Lesen sie die antworten

#1 stefan onken
15/01/2008 - 15:58 | Warnen spam
On 15 Jan., 08:55, Peter wrote:
Hallo Leute,
ich möchte gerne aus einem Word-Formular ein Form einer Tabelle Text
aus einer Tabellenzelle und den Zustand eines Kontrollkàstchen in
einer anderen Tabellenzelle (ob angekreuzt oder nicht) in eine Excel-
Datei einlesen.
Wie könnte man das machen?

Gruß
Peter



hallo Peter,
das kannst du per Makro erledigen, etwa so:

Sub WordAbfragen()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("d:\test\word.doc")
'den Dateinamen anpassen
'Tabelle 1, Zelle A1in Word einlesen
x=wrdDoc.tables(1).cell(1, 1).Range.Text
'in Zelle A1 in Excel schreiben, 2 Zeichen am Ende entfernen
Range("A1") = Left(x, Len(x)-2)
Range("B1")= wrdDoc.formfields("Kontrollkàstchen1").CheckBox.Value
wrdDoc.Close
'wrdApp.Quit
Set wrdApp = Nothing
Set wrdDoc = Nothing
End Sub

ich weis nicht, ob es möglich ist, die Zuordnung
Zelle<>Kontrollkàstchen anders hinzubekommen als über den Namen des
Kàstchen. Frag dazu besser in der microsoft.public.de.word.VBA
Newsgroup nach.

Gruß
stefan

Ähnliche fragen