Word 2010模板表格生成

Question

我正嘗試使用Word 2010爲編程項目測試計劃創建模板。我創建了一個模型展示我想要做的模板。

我想什麼，能夠做的就是能夠點擊上的字織帶的東西，並有模板生成下一個測試表和順序標題。一旦生成了表格，我會填寫測試的表格字段。

有人能告訴我要在Word幫助或其他地方查找什麼，所以我可以創建此模板？

Answer 1

我個人會爲此創建一個宏，或者您可以使用代碼將其嵌入到您的模板中，以添加菜單項並添加如下內容。 （這是非常粗糙的，但你可以用它來生成你的佈局和數字上升數字的表），它是不是知道哪裏是前面的測試不放過，但應該是一個起點動態。）

Dim iCount As Integer 

iCount = CInt(InputBox("How many tables?", "Table Count", 1)) 

For icurtable = 1 To iCount 

    Dim oTableRange As Paragraph 
    Dim oTable As Table 
    Dim oCaption As Paragraph 

    Set oCaption = ActiveDocument.Paragraphs.Add 

    Call oCaption.Range.InsertBefore(CStr(icurtable)) 

    Set oTableRange = ActiveDocument.Paragraphs.Add 

    Set oTable = oTableRange.Range.Tables.Add(oTableRange.Range, 4, 1, True, True) 

    oTable.Rows.First.Cells(1).Range.InsertBefore ("Setup:") 
    oTable.Rows(2).Cells(1).Range.InsertBefore ("Test:") 
    oTable.Rows(3).Cells(1).Range.InsertBefore ("Expected Response:") 
    oTable.Rows(4).Cells(1).Range.InsertBefore ("Restore") 

    Call oTableRange.Range.InsertAfter(vbCrLf) 

Next 

Answer 2

如果有人遇到這個問題，我會提供我的解決方案。我決定在表格內創建一個表格，以便測試用例編號位於左側，人們期望看到它。

使用Sacha的答案作爲模型，並自由使用宏錄製器，我想出了這個VBA宏，它可以完成我想要的大部分功能。

Sub InsertTestTable() 

' 
' InsertTestTable Macro 
' This macro inserts a test table into the document. 
' 

Dim oTable As Table 
Dim iTable As Table 

Set oTable = ActiveDocument.Tables.Add(Selection.Range, 1, 2, _ 
    wdWord9TableBehavior, wdAutoFitContent) 

Selection.TypeText ("1.") 
Selection.MoveRight 

Set iTable = ActiveDocument.Tables.Add(Selection.Range, 4, 2, _ 
    wdWord9TableBehavior, wdAutoFitContent) 

iTable.Rows(1).Cells(1).Range.InsertBefore ("Setup:") 
iTable.Rows(2).Cells(1).Range.InsertBefore ("Test:") 
iTable.Rows(3).Cells(1).Range.InsertBefore ("Expected Response:") 
iTable.Rows(4).Cells(1).Range.InsertBefore ("Restore:") 

iTable.Rows(1).Cells(2).Range.Select 

End Sub 

現在，所有我需要做的是格式化的表格我想要的方式，並找出如何通過設置文檔中的表都有數上升。