VBA를 사용하여 Word에서 빈 단락을 삭제하는 중 : 빈 단락이 모두 삭제되지 않았습니다.

Question

내 문서에서 모든 빈 단락을 삭제하는 매크로를 작성했지만 이상한 동작이 나타납니다. 빈 끝에 단락이 여러 개있는 경우 문서의 경우 약 절반이 삭제됩니다. 반복적으로 매크로를 실행하면 단락이 하나만 남을 때까지 빈 단락이 제거됩니다. 경계 조건이 있어도 마지막 단락을 삭제하는 코드 줄이 필요하지만 끝에있는 빈 단락의 절반 만 삭제되는 이유는 여전히 이해할 수 없습니다. 왜 이런 일이 일어나고 어떻게 해결할 수 있는지 설명 할 수 있습니까? 여담, 나는 (^ P^(13), 그리고 다른 사람,하지만 vbCr 다른 작은 퍼즐 인 일 검색).

Sub Delete_Empty__Paras_2() 'This macro looks for empty paragraphs and deletes them. 
Dim original_num_of_paras_in_doc As Integer 
Dim num_of_deleted_paras As Integer 

original_num_of_paras_in_doc = ActiveDocument.Paragraphs.Count 'Count the number of paragraphs in the document to start 
num_of_deleted_paras = 0 'In the beginning, no paragraphs have been deleted 

Selection.HomeKey Unit:=wdStory 'Go to the beginning of the document. 
For current_para_number = 1 To original_num_of_paras_in_doc 'Process each paragraph in the document, one by one. 
    If current_para_number + num_of_deleted_paras > original_num_of_paras_in_doc Then 'Stop processing paragraphs when the loop has processed every paragraph. 
     Exit For 
    Else 'If the system just deleted the 3rd paragraph of the document because 
     ' it's empty, the next paragraph processed is the 3rd one again, 
     'so when we iterate the counter, we have to subtract the number of deleted paragraphs to account for this. 
     Set paraRange = ActiveDocument.Paragraphs(current_para_number - num_of_deleted_paras).Range 
     paratext = paraRange.Text 
     If paratext = vbCr Then 'Is the paragraph empty? (By the way, checking for vbCr is the only method that worked for checking for empty paras.) 
      paratext = "" 'Delete the paragraph. 
      ActiveDocument.Paragraphs(current_para_number - num_of_deleted_paras).Range.Text = paratext 
      num_of_deleted_paras = num_of_deleted_paras + 1 'Iterate the count of deleted paras. 
     End If 
    End If 
Next current_para_number 
End Sub 

Answer 1

이 코드는 모두 삭제됩니다 단락 마커의 검출에 대해 많은 게시물을 온라인으로 검색하여 보았 듯이 빈 단락 ...

Sub RemoveBlankParas() 
    Dim oDoc  As Word.Document 
    Dim i   As Long 
    Dim oRng  As Range 
    Dim lParas  As Long 

    Set oDoc = ActiveDocument 
    lParas = oDoc.Paragraphs.Count   ' Total paragraph count 
    Set oRng = ActiveDocument.Range 

    For i = lParas To 1 Step -1 
     oRng.Select 
     lEnd = lEnd + oRng.Paragraphs.Count       ' Keep track of how many processed 
     If Len(ActiveDocument.Paragraphs(i).Range.Text) = 1 Then 
      ActiveDocument.Paragraphs(i).Range.Delete 
     End If 
    Next i 

    Set para = Nothing 
    Set oDoc = Nothing 
    Exit Sub 
End Sub 

Answer 2

당신은 단락 기호를 대체 할 수

ActiveDocument.Range.Find.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=wdReplaceAll 

ActiveDocument.Range.Find.Execute "^p^p", , , , , , , , , "^p", wdReplaceAll ' might be needed more than once