Tabelle in Kopfzeile auslesen (3 Spalten) und Inhalte ändern

06/10/2009 - 15:16 von Gerd-Ulrich Meyer | Report spam
Hallo,

in meinem Word(-2000)-Dokument (ok, es werden spàter einige Dokumente
mehr, aber es geht ums Prinzip) habe ich eine Kopfzeile
(Kopf-/Fusszeile), die eine Tabelle enthàlt.
Diese Tabelle hat 1 Zeile und 3 Spalten. Über eine VBA-Anwendung muss
ich nun auf diese Spalten lesend und schreibend zugreifen können.
Da ich nur sporadisch mit VBA gearbeitet habe (meine Welt sind andere
Sprachen), fehlt mir nun das Wissen, wie ich an die Inhalte herankomme.
Durch Suchen in der Word-Hilfe hab ich mir folgendes Fragment
"zusammengestöpselt", um wenigstens mal den Inhalt der ersten Zelle in
der Tabelle zu erhalten:

Dim kpf As String
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
kpf = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
MsgBox (kpf)

Leider erhalte ich nur den Laufzeitfehler "Das angeforderte Element ist
nicht in der Sammlung vorhanden".

Wo ist mein Denkfehler und wie kann ich auf die Inhalte der einzelnen
Spalten lesend und schreibend zugreifen?

Vielen Dank schon mal im Voraus.

Gruss

Gerd-Ulrich Meyer
 

Lesen sie die antworten

#1 Martin Worm
06/10/2009 - 23:14 | Warnen spam
On Tue, 06 Oct 2009 15:16:42 +0200, Gerd-Ulrich Meyer wrote:

hallo,

Dim kpf As String
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
kpf = ActiveDocument.Tables(1).Cell(1, 1).Range.Text
MsgBox (kpf)

Leider erhalte ich nur den Laufzeitfehler "Das angeforderte Element ist
nicht in der Sammlung vorhanden".

Wo ist mein Denkfehler und wie kann ich auf die Inhalte der einzelnen
Spalten lesend und schreibend zugreifen?



Kopfzeile und Hauiptdokument sind unterschiedliche Bereiche des
Dokuments(Storyranges)

setz mal
MsgBox ActiveDocument.Tables.Count
vor die Zeile mit kpf
Nach der Zeile
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


könntest du mit kpf=Selection.Tables(1).Cell(1, 1).Range.Text
arbeiten.

hth
mit freundlichen Grüßen

Martin Worm
benutze Word 2000 und Win XP

Ähnliche fragen