Word: Mehrere Tabellen ansprechen
16.10.2019 12:48:26
Jan
ich weiß, dass das hier ein Excel-Forum ist, aber vielleicht kann mir hier trotzdem jemand helfen, mein Problem zu lösen.
Ich habe in einem Word Dokument mehrere Tabellen (die ich individuell aussuche), die ich mit einem Makro ansprechen will, um dann jeweils die letzte Spalte auszublenden.
Eine Tabelle kann ich mit einem Makro problemlos erreichen, indem ich der Tabelle einen Titel gegeben habe und diese damit ansprechen kann.
Code:
Sub Test()
Dim i As Integer
Dim treffer As Boolean
Dim meineTabelle As Table
With ActiveDocument
'Tabelle mit dem gewünschten Titel suchen
For i = 1 To .Tables.Count
If .Tables(i).Title = "Projektdaten" Then
Set meineTabelle = .Tables(i)
treffer = True
Exit For
End If
Next i
End With
'Fehlerbehandlung
If treffer = False Then
MsgBox "Keine Tabelle mit diesem Titel gefunden."
Exit Sub
End If
'ausgewählte Spalte ausblenden
With meineTabelle
.Columns(5).Select
Selection.Font.ColorIndex = wdWhite
End With
End Sub
Wie kann ich jetzt mehrere Tabellen ansprechen ohne dabei jedes mal einen neuen Code schreiben zu müssen?
Eine einfache Verknüpfung mit "and" oder "&" funktioniert leider nicht
In dem Beispiel befinden sich jetzt nur 2 Tabellen, aber in der Realität gibt es mehrere Tabelle, die angesprochen werden sollen.
https://www.herber.de/bbs/user/132553.doc
eine .docm kann ich leider nicht hochladen
Vielen Dank im Voraus
VG aus Franken
Jan