☰

다음이 '제목 5'인 경우 '제목 4'가 다음과 함께 유지되지만 다른 경우에는 그렇지 않습니다.

tag-icon • tag-icon microsoft-word vba
다음이 '제목 5'인 경우 '제목 4'가 다음과 함께 유지되지만 다른 경우에는 그렇지 않습니다.

규칙서인 Word 문서가 있습니다. 열거를 완료하려면 규칙의 다양한 수준(규칙 1, 섹션 3, 조항 4, 하위 조항 b, 하위 조항 1 등)에 대해 서로 다른 제목이 사용됩니다. 이것은 훌륭하게 작동합니다.

때때로 하위 기사 c는 여러 하위 기사를 포함하는 목록을 소개합니다. 여태까지는 그런대로 잘됐다.

그러나 때로는 하위 기사 c가 페이지의 마지막 줄인 경우도 있습니다. 이는 하위 기사 목록이 다음 페이지의 첫 번째 줄에서 시작된다는 의미입니다. 그 좋지 않다.

또한 제목 4, 5, 6을 만들 수 없습니다.언제나 다음으로 계속, 그러면 제목 5도다음으로 계속다음 단락이 목록이 아니면 너무 많은 텍스트가 다음 페이지로 넘어가 공간을 낭비하게 됩니다.

지금까지의 해결 방법은 모든 페이지의 하단을 모두 살펴보고 "단락"(네덜란드어로는 "Alinea") 설정에 "다음으로 유지"를 수동으로 추가하는 것이었습니다. 그러나 문서가 400p 이상이므로 지속 가능하지 않습니다.

어딘가에서 도움이 되는 매크로를 찾았습니다(감사합니다!).

Sub ColonParaEnd_SetKeepWithNext()

    '=========================
    'Macro created 2010 by Lene Fredborg, DocTools - www.thedoctools.com
    'THIS MACRO IS COPYRIGHT. YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE.
    'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART.
    '=========================
    'The macro iterates through all paragraphs in the active document
    'If a paragraph ends with a colon, Keep with next is applied
    '=========================

    Dim oPara As Paragraph
    Dim n As Long 'used as counter
    
    n = 0
    
    'Iterate though all paragraphs
    For Each oPara In ActiveDocument.Paragraphs
        With oPara
            'If a colon is found immediately before the paragraph mark, Chr(13), apply Keep with next
            'In case of end of a table cell, the end of cell marker is Chr(13) & Chr(7) - alså handle this
            If Right(.Range.Text, 2) = ":" & Chr(13) Or Right(.Range.Text, 3) = ":" & Chr(13) & Chr(7) Then
                .Range.ParagraphFormat.KeepWithNext = True
                n = n + 1
            End If
        End With
    Next oPara
    
    MsgBox "Finished." & vbCr & "Keep with next applied to " & n & " paragraph(s).", vbOKOnly, "Apply Keep With next"
End Sub

그러므로 나는 똑똑한 사람들이 영리한 매크로(아마도 내가 인용한 매크로를 기반으로 구축하는 것)로 나를 도울 수 없는지 궁금했습니다. 내가 찾고 있는 것:

  1. 제목 4 다음에 제목 5가 오면 제목 4의 인스턴스를 "다음과 함께 유지"로 만듭니다.
  2. 제목 5 다음에 제목 6이 오면 제목 5의 인스턴스를 "다음과 함께 유지"로 만듭니다.
  3. 제목 6 뒤에 제목 7이 오면 제목 6의 인스턴스를 "다음과 함께 유지"로 만듭니다.

귀하의 통찰력에 미리 감사드립니다!

관련 정보