使用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文檔中的特定位置定位表格

回答

相關問題