Michael은 꽤 긴 테이블을 가지고 있습니다. 테이블의 한 열에는 문자 c, b, x 등과 같은 코딩 문자가 포함되어 있습니다. 그는 테이블을 인쇄하여 열에 특정 코딩 문자가있는 행만 인쇄 할 수있는 방법이 있는지 궁금합니다. 예를 들어 코딩 열에 “c”코드가 포함 된 행만 인쇄 할 수 있습니다.

이 문제를 해결하는 데 사용할 수있는 몇 가지 접근 방식이 있습니다.

가장 쉬운 방법은 테이블을 Excel 워크 시트에 복사 한 다음 코딩 열의 문자를 기준으로 데이터를 필터링하는 것입니다. 그런 다음 필터링 된 워크 시트를 인쇄하고 원하는 것을 가질 수 있습니다.

물론 Word 대신 Excel에서 작업하는 것이 실용적이거나 바람직하지 않은 경우가있을 수 있습니다. 예를 들어 Excel이 없거나 Excel에서 제공 할 수있는 것보다 더 많은 서식이 필요할 수 있습니다. 이 경우 코딩 열의 내용을 기반으로 Word에서 표를 간단히 정렬 할 수 있습니다. 그런 다음 인쇄하려는 코드가 포함 된 테이블 행을 선택하고 (테이블을 정렬 했으므로 모두 연속적이어야 함) 인쇄를 선택하십시오. 그러나 인쇄 할 항목을 지정할 때는 선택 항목 만 인쇄하십시오.

또 다른 가능한 방법은 테이블을 편지 병합을위한 데이터 원본으로 사용하는 것입니다. 편지 병합을 디자인 할 때 사용할 정확한 단계는 다루지 않겠지 만 (다른 _WordTips_에서 다룹니다) 병합에 코딩 열에 원하는 문자가있는 항목 만 포함되도록 지정할 수 있습니다.

마지막으로이 선택적 인쇄를 자주 수행해야하는 경우 작업을 처리 할 매크로를 만들 수 있습니다. 이 작업을 수행하는 가장 쉬운 방법은 매크로가 새 문서를 만들고 원하는 행을 해당 문서에 복사하는 것입니다.

Sub CopyTableRows()

Dim SourceDoc As Document     Dim r As Row     Dim iCol As Integer     Dim sPCode As String     Dim sTemp As String

iCol = 3        ' Set the coding column     sPCode = "C"    ' Set code to select (must be uppercase)



ScreenRefresh = False

Set SourceDoc = ActiveDocument      ' Get active document's name     Documents.Add       ' Create a new document

' Find all rows that have correct code in the coding column     For Each r In SourceDoc.Tables(1).Rows         sTemp = UCase(r.Cells(iCol).Range)

sTemp = Left(sTemp, Len(sTemp) - 2)     ' Remove cell overhead                  If sTemp = sPCode Then             r.Range.Copy             Selection.PasteAndFormat wdFormatOriginalFormatting         End If     Next r

ScreenRefresh = True End Sub

매크로를 사용하려면 iCol이 코딩 열로 사용되는 열로 설정되어 있고 sPCode에 선택하려는 코드가 포함되어 있는지 확인해야합니다. (모두 대문자 여야합니다.) 매크로가 완료되면 인쇄 할 행만 포함 된 문서가 생성되고 해당 문서를 인쇄 할 수 있습니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (3511)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다.