작업 라인에서 많은 테이블을 포함하는 문서를 만들어야합니다.

이러한 테이블은 셀을 비워 둘 수 없다는 요구 사항을 포함하여 견고한 구조를 따라야합니다. (그렇지 않으면 셀이 비어 있으면 “N / A”문자를 포함해야합니다.)

테이블에 대한이 요구 사항을 처리하는 데 도움이되도록 테이블을 검사하고 해당되는 경우 N / A 문자를 추가하는 매크로를 만들었습니다. 내가해야 할 일은 대상 테이블 내에 삽입 포인터를 놓고 다음 매크로를 실행하는 것입니다.

Sub AddTableNA()

Dim NumRows As Integer     Dim NumCols As Integer     Dim J As Integer     Dim K As Integer     Dim ChkTxt As String

If Not Selection.Information(wdWithInTable) Then         Exit Sub     End If

NumRows = Selection.Tables(1).Rows.Count     NumCols = Selection.Tables(1).Columns.Count

'Loop to select each row in the current table     For J = 1 To NumRows         'Loop to select each cell in the current row         For K = 1 To NumCols             'Select the cell to check             Selection.Tables(1).Rows(J).Cells(K).Select             'Copy any text in the cell             ChkTxt = Selection.Text             'Strip off the last 2 characters (removes end of cell marker)

ChkTxt = Left(ChkTxt, Len(ChkTxt) - 2)

'If empty, add "n/a" text             If (ChkTxt = "") Then Selection.TypeText ("N/A")

Next K     Next J End Sub

매크로는 먼저 삽입 지점이 표 내에 있는지 확인합니다.

그렇지 않은 경우 매크로가 일찍 종료됩니다. 그렇다면 NumRows 및 NumCols 변수는 각각 테이블의 행과 열 수로 설정됩니다.

그런 다음 매크로는 각 행의 각 셀을 단계별로 실행하여 셀에 포함 된 항목이 있는지 확인합니다. Word에서 표를 구성하는 방식으로 인해 셀에는 다른 항목이 없더라도 항상 셀 끝 표식이 포함됩니다. 해결책은 셀의 텍스트 끝에서 두 문자를 빼고 남은 것이 있는지 확인하는 것이 었습니다. 그렇지 않은 경우 “N / A”문자가 셀에 입력됩니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (13265)은 Office 365의 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Word에 적용됩니다. Word의 이전 메뉴 인터페이스 :

link : / word-Putting_Something_in_Every_Cell_of_a_Table [테이블의 모든 셀에 무언가 넣기].