Bestimmen der Anzahl von Spalten in einer Tabelle in Word mit VBA

nur eine kurze Frage.
Ich habe diese Tabelle in ein Word-Vorlage, die zwei Spalten haben standardmäßig.
Dann habe ich dieses Schaltfläche, die der Benutzer drücken kann, wenn er will, eine andere Spalte. Das makro ausführen, fügt mehrere text-Platzhalter und-Formate bestimmte Dinge automatisch.
Aber was ich will, ist eine Art von routine, die im Grunde prüft die Anzahl der Spalten in dieser Tabelle, und wenn es zwei Spalten, die text eingegeben werden, wird automatisch auch "Spalte 3" und wenn es drei Spalten gibt, sollte der text sein, "Spalte 4". Sollte ziemlich einfach, wenn ich nur herausfinden wie finde ich die Anzahl der Spalten.

InformationsquelleAutor Kenny Bones | 2010-08-01
  1. 2

    Ein table-Objekt weiß, wie viele Spalten Sie hat, nur überprüfen Sie die Spalten.Count-Eigenschaft.

    ThisDocument.Tables(1).Columns.Count
    • Danke, wirklich einfach! 🙂 Aber hier ist etwas, das ich lief in. Ich benutze den code, den Sie über. Und dies funktioniert problemlos, wenn ich öffnen Sie die Vorlage (.dotm) und das makro ausführen. Aber, seltsam, wenn ich doppelklicken Sie auf die Vorlage, so dass das Dokument ein "Dokument 1" Dokument basierend auf der Vorlage die Zählung nicht funktioniert. Jetzt habe ich 6 Spalten in der Tabelle, aber liest wie 2. Dies geschieht nicht, wenn ich die Vorlage öffnen. Alle bekannten Grund, dass dies geschehen soll? Ich habe nur eine Tabelle in der es als gut.
    • Versuchen Sie es mit ActiveDocument eher als ThisDocument dann. ThisDocument ist ein Verweis auf das Dokument, das makro Leben innerhalb während ActiveDocument bezieht sich auf das Dokument mit dem Fokus. Es klingt wie nach Sie erzeugen ein neues doc aus der Vorlage der ThisDocument-Referenz ist nicht mehr das, was Sie wollen, sind.
    InformationsquelleAutor Tahbaza
  2. 1

    Dies funktioniert:

    Sub CountColumns()
    Dim d As Document
    Set d = ActiveDocument
    Dim t As Table
    Set t = d.Tables(1)
    Debug.Print t.Columns.Count
End Sub
    InformationsquelleAutor Todd Main
Schreibe einen Kommentar