표의 모든 셀에 무언가 넣기 (Microsoft Word)
작업 라인에서 많은 테이블을 포함하는 문서를 만들어야합니다.
이러한 테이블은 셀을 비워 둘 수 없다는 요구 사항을 포함하여 견고한 구조를 따라야합니다. (그렇지 않으면 셀이 비어 있으면 “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 [테이블의 모든 셀에 무언가 넣기]
.