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 

지금, 나는 오직 할 필요가있는 테이블을 내가 원하는 방식으로 포맷 한 문서에서 테이블의 집합을 통해 숫자 승천을하는 방법을 알아낼 수 있습니다.