Word 2010テンプレートテーブルの生成

Question

Word 2010を使用してプログラミングプロジェクトのテスト計画のテンプレートを作成しようとしています。私は何をしたいのかを示すモックアップテンプレートを作成しました。私が行うことができるようにしたいのですがどのような

は、Wordリボンに何かをクリックすると、テンプレートは、次のテストテーブルおよび列見出しを生成持つことができるようです。テーブルが生成されたら、テスト用のテーブルフィールドに入力します。

誰かが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 

は今、私が行うために必要なすべてのテーブルは私が望むようにフォーマットし、文書内のテーブルのセットを介して多数の上昇を持ってする方法を見つけ出すです。