使用VBA在Word文档中的特定位置定位表格

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

我似乎无法找到一种方法来告诉表格准确定位（x，y）在需要出现的位置。由于文档中除文本外没有其他内容，因此没有任何可参考的内容。

我也试图远离使用Active X控件，如果可能的话。

2011-02-04 Pirificio

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

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

来源

2011-02-04 17:46:04

非常感谢您的建议。我的工作或多或少，但我现在遇到的麻烦是将其水平放置在页面上。我在想，也许我可以使用缩进或其他的东西，但这似乎并没有奏效。我把桌子放在桌子的中间，但是很近，但靠得不够近。有什么想法吗？ – Pirificio 2011-02-23 14:33:26

您可以使用这两个水平和垂直

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

希望这有助于定位表。

来源

2011-08-31 04:25:27 nobitavn94

使用VBA在Word文档中的特定位置定位表格

回答

相关问题