특정 북마크 또는 페이지 번호를 지나서 단락에 For Each 루프를 적용하는 방법은 무엇입니까?

Question

내 Word 문서에서 빈 페이지를 삭제하려고합니다. 이 프로세스로 인해 문서의 서식을 엉망으로 만들 때이 문서의 끝 부분에이 삭제를 적용하기로 결정했습니다. (너무 공격적) 삭제 코드 자체 :

For Each para In ActiveDocument.Paragraphs 
    If Len(para.Range.Text) <= 1 Then 
     para.Range.Delete 
    End If 
Next para 

순간 나는 시도했다 : 그것은 내 즐겨 찾기 "부록에 갔다 때 Ipage이는 선택의 페이지 수를 가져옵니다

Dim iPage As Long 
cursor.Goto What:=wdGoToBookmark, Name:=("Appendix") 
iPage = cursor.Information(wdActiveEndPageNumber) 

. "

내 질문은이 삭제 시점을 과거의 단락에만 어떻게 적용합니까?

Answer 1

당신이하려는 일이 이것입니까?

Dim para As Paragraph 
With ThisDocument 
    For Each para In .Range(.Bookmarks("Appendix").End, .Range.End).Paragraphs 
     If Len(para.Range.Text) <= 1 Then para.Range.Delete 
    Next 
End With