vba - 将表格定位在特定位置

Question

我写了一个宏来让用户从组合框中选择一个办公室分支，现在我想将相关地址插入到word文档的特定位置。我使用一个表来保存地址，但是当创建表时，它是在光标恰好位于页面上的任何位置创建的。

我似乎无法找到一种方法来告诉表格将 (x,y) 准确定位在我需要它出现的位置。由于文档中只有文本，因此没有任何引用。

如果可能的话，我也尽量避免使用 Active X 控件。

Answer 1

此代码将在第二段和第三段之间添加一个三列一行的表格。

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