Sheryl은 일상적으로 많은 테이블이있는 문서를 만듭니다.

각 테이블은 일반적인 레이아웃이 동일하다는 점에서 일관성이 있습니다. (각각은 동일한 유형의 정보를 포함하는 각 열과 동일한 수의 열을 포함합니다.) Sheryl은 모든 테이블의 열 너비가 일치하는지 확인하는 방법을 찾고 있습니다.

솔루션은 테이블을 생성해야하는시기에 따라 다릅니다. 문서가 새 문서 인 경우 일관된 방식으로 테이블을 만드는 것이 다소 쉽습니다. 다른 WordTips (여기서는 다루지 않겠습니다)에서 설명한 것처럼 표준 표를 상용구 항목에 저장하거나 표를 표시 할 방법을 정의하는 표 스타일을 만들 수 있습니다. 필요한 경우 상용구 항목을 삽입하거나 스타일을 적용하기 만하면 원하는대로 표가 나타납니다.

문서가 이미 만들어져 있고 문서 내에 존재하는 테이블에 일관성을 적용하려는 경우 솔루션이 좀 더 복잡합니다. 이 경우 해결책은 매크로를 사용하여 열 너비를 변경하는 것입니다.

다음과 같이 문서의 각 테이블을 빠르게 탐색하고 테이블의 각 열을 동일한 너비로 만드는 매크로를 만들 수 있습니다.

Sub SetColumnWidths1()

Dim t As Table     For Each t In ActiveDocument.Tables         t.Columns.Width = InchesToPoints(2)

Next t End Sub

그러나 각 열의 너비가 2 인치가되지 않도록하는 것이 좋습니다. 각 열이 다른 열과 다른 특정 너비를 원할 수 있습니다. 다음 매크로 반복은 이러한 가능성을 처리합니다.

Sub SetColumnWidths2()

Dim t As Table     For Each t In ActiveDocument.Tables         t.Columns(1).Width = InchesToPoints(2)

t.Columns(2).Width = InchesToPoints(2.5)

t.Columns(3).Width = InchesToPoints(3)

Next t End Sub

이러한 매크로의 단점은 코딩에서 각 열의 너비를 지정해야한다는 것입니다. 또한 문서에 비정상적인 표가있는 경우 (다른 모든 표와 동일한 수의 열이 없음) 매크로는 열의 너비를 설정하려고합니다.

그러면 더 나은 방법은 문서에 “모델”테이블이있는 다음 해당 테이블과 동일한 열 너비를 사용하도록 다른 모든 테이블을 설정하는 것입니다. 쉬운 방법은 문서에있는 첫 번째 테이블의 열 너비를 수동으로 포맷 한 다음 매크로가 해당 테이블을 검사하고 나머지 테이블 열에 대한 패턴으로 사용하도록하는 것입니다.

Sub SetColumnWidths3()

Dim t As Table     Dim c As Column     Dim ccnt As Integer     Dim w() As Single     Dim J As Integer     Dim K As Integer

Set t = ActiveDocument.Tables(1)

ccnt = t.Columns.Count     ReDim w(ccnt)

J = 0     For Each c In t.Columns         J = J + 1         w(J) = c.Width     Next c

For J = 2 To ActiveDocument.Tables.Count         Set t = ActiveDocument.Tables(J)

If t.Columns.Count = ccnt Then             For K = 1 to ccnt                 t.Columns(K).Width = w(K)

Next K         Endif     Next J End Sub

이 매크로는 첫 번째 테이블의 열 수 (ccnt 변수에 값 할당)를 검사 한 다음 각 열의 너비를 확인합니다 (값을 w 배열에 할당). 그런 다음 문서의 나머지 테이블을 살펴보고 테이블의 열 수가 ccnt 변수의 수와 일치하면 각 열의 너비를 w 배열에 저장된 너비로 설정합니다. 그 결과 문서의 각 테이블 (최소한 첫 번째 테이블과 동일한 수의 열이있는 테이블)의 열 너비는 동일합니다.

여기에 한 가지 잠재적 인 문제가 있습니다. 문서의 표가 어떤 방식 으로든 병합 된 셀을 사용하는 경우 결과가 엉망이 될 수 있습니다. 이 경우 매크로를 실행하기 전에 문서를 저장해야합니다.

이렇게하면 결과를 시각적으로 확인한 다음 필요한 경우 저장된 문서로 되돌릴 수 있습니다.

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (11692)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Setting_Consistent_Column_Widths_in_Multiple_Tables [여러 테이블에서 일관된 열 너비 설정].