Генерация таблицы шаблонов 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 

Теперь все, что мне нужно сделать, это форматирование таблиц, так как я хочу, и выяснить, как иметь номер взойти через набор таблиц в документе.