Die Positionierung einer Tabelle an einer bestimmten Stelle in einem Word-Dokument mit VBA

Ich habe ein makro geschrieben, dass ein Benutzer wählen Sie eine Niederlassung aus einem Kombinationsfeld, und jetzt will ich legen Sie die entsprechende Adresse in das word-Dokument an einem bestimmten Ort. Ich habe es mit einer Tabelle für die Adresse, aber wenn die Tabelle erstellt ist, wird er erstellt bei position, wo der cursor gerade geschieht, sitzt an der Seite.

Ich kann nicht scheinen zu finden ein Weg, zu sagen, die Tabelle, um die position genau (x,y), wo ich es brauche, zu erscheinen. Da ist sonst nichts in dem Dokument, sondern text, da gibt es nichts zu verweisen.

Ich bin auch versuchen, zu bleiben Weg von der Verwendung von Active-X-controls, wenn überhaupt möglich.

InformationsquelleAutor Pirificio | 2011-02-04
  1. 6

    Dieser code wird in ein drei-Spalte, einer Zeile der Tabelle zwischen dem zweiten und Dritten Absatz.

    Sub InsertTable()

    Dim tbl As Table
    Dim pg As Paragraph

    With ThisDocument
        'Add a new paragraph that the table will replace
        Set pg = .Paragraphs.Add(.Paragraphs(3).Range)
        'Add a table in place of the new paragraph
        Set tbl = .Tables.Add(pg.Range, 1, 3)
    End With

    tbl.Columns(1).Cells(1).Range.Text = "123 Main St"
    tbl.Columns(2).Cells(1).Range.Text = "City"
    tbl.Columns(3).Cells(1).Range.Text = "State"
    tbl.Rows.LeftIndent = 41

End Sub
    • Vielen Dank so viel für diesen Vorschlag. Ich habe es funktioniert mehr oder weniger, aber das Problem das ich jetzt habe ist das positionieren der horizontal auf der Seite. Ich dachte, dass ich vielleicht verwenden Sie Einrückungen oder etwas zu diesem Effekt, aber das schien nicht, überhaupt zu arbeiten. Ich zentriert die Tabelle, aber wehe, es bekommt in der Nähe, aber nicht nah genug. Irgendwelche Gedanken?
    • Vielleicht die LeftIndent-Eigenschaft der Zeilen. Ich bearbeitet den code, um ein Beispiel zu geben. Wenn Sie wirklich wünschen, mit dem die Formatierung der Tabelle, ein makro aufzeichnen, und formatieren Sie es, wie Sie wollen manuell. Das aufgezeichnete makro wird Ihnen die Objekte, Eigenschaften und Methoden, die Sie brauchen, zu manipulieren.
    InformationsquelleAutor Dick Kusleika
  2. 1

    Können Sie diese verwenden, um die position der Tabelle sowohl horizontal als auch vertikal

    tbl.Rows.HorizontalPosition = 150 'In points
tbl.Rows.VerticalPosition = 200

    Hoffe, das hat geholfen.

    InformationsquelleAutor nobitavn94
Schreibe einen Kommentar