Word에서 표를 삽입하면 표의 각 셀에 테두리가 자동으로 만들어집니다. 이 경계선은 무게가 1/2 포인트 인 단일 선입니다. 안타깝게도 Word에서는 표를 만들 때 사용하는 기본 선 너비를 변경할 수있는 방법이 없습니다. 테두리 및 음영 대화 상자에서 선 너비를 선택할 수 있지만 새 표를 삽입하면이 가중치가 1/2 포인트로 재설정됩니다.

3/4 지점과 같은 다른 선 너비를 원하면 문제가 있습니다. 새 테이블을 수동으로 선택하고 원하는 너비가되도록 테두리 서식을 지정해야합니다. 많은 테이블로 작업하는 경우 이는 금방 번거로울 수 있습니다. 물론 표 스타일을 만들 수는 있지만 원하는 모든 작업이 선 너비를 변경하거나 명시적인 서식이 많이 적용된 문서로 작업하는 경우 표 스타일을 적용하면 결과가 고르지 않을 수 있습니다. 테이블.

이 문제를 해결하는 가장 좋은 방법은 매크로를 작성하는 것입니다. 이것이 가장 이상적인 솔루션은 아니지만 문서의 모든 테이블을 수동으로 변경하는 것보다 확실히 쉽습니다.

다음 매크로 FixCellBorders는 문서의 모든 테이블에있는 모든 셀을 살펴보고 최소 선 두께가 포인트의 4 분의 3이되도록합니다. 현재 라인 설정을 확인한 다음 필요한 경우에만 조정하여이를 수행합니다.

Sub FixCellBorders()

' Work through all tables in document     For Each objTable In ActiveDocument.Tables         ' Work through all cells in each table         For Each objCell In objTable.Range.Cells             ' Work through all borders in each cell             For Each objBorder In objCell.Borders                 ' Check if line weight is less than 0.75 pt                 If objBorder.LineWidth = wdLineWidth025pt _                   Or objBorder.LineWidth = wdLineWidth050pt Then                     ' too thin, change it                     objBorder.LineWidth = wdLineWidth075pt                 End If             Next objBorder         Next objCell     Next objTable End Sub

상상할 수 있듯이 매크로는 문서의 모든 테이블에있는 모든 셀에 대해 네 개의 테두리를 모두 살펴보기 때문에 그리 빠르지 않습니다. 그러나 장점은 매크로가 1/4 또는 1/2 지점에있는 셀 테두리의 가중치 만 수정한다는 것입니다. 즉, 다른 선 너비에 대해 수행 한 수동 서식은 변경되지 않습니다.

좀 더 빠른 매크로를 찾고 있다면 다음 (FixTableBorders)이 트릭을 수행합니다. 개별 셀을 보는 대신 전체 테이블에서 작동합니다. 그러나 차이점은 단일 선을 사용하여 모든 테이블의 모든 테두리를 포인트의 3/4 지점으로 재설정한다는 것입니다. 그러나 이것이 당신의 필요에 맞다면 확실히 더 쉽고 빠른 방법입니다.

Sub FixTableBorders()

For Each objTable In ActiveDocument.Tables         With objTable             With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderHorizontal)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderVertical)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With         End With     Next objTable End Sub

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

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

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

link : / wordribbon-Setting_a_Default_Table_Border_Width [기본 테이블 테두리 너비 설정].