이 기사에서는 VBA를 통해 Word 문서에서 여러 페이지를 삭제하는 방법을 설명하는 데 중점을 둘 것입니다.
문서를 작성하는 동안에는 끊임없이 수정이 필요합니다. 페이지 내용을 삭제하는 것 또한 다른 수정 사항만큼이나 필수적입니다. 불필요한 텍스트를 제거하는 것은 간단합니다. 대부분의 사람들은 원하는 부분을 선택한 다음 "삭제" 또는 "백스페이스" 키를 누르면 됩니다.
이것은 확실히 당신이 원하는 것을 얻을 것입니다. 그러나 그렇게하는 것이 더 빠릅니다. 또한 선택 단계를 건너 뛰고 한 번에 여러 페이지를 삭제합니다. 매력적인 접근 방식은 Word 매크로를 실행하는 것입니다.
현재 페이지 삭제
다양한 텍스트를 선택하는 것을 싫어하는 사람들에게는 이것이 축복이 될 수 있습니다. 먼저 VBA를 통해 현재 페이지를 삭제하는 방법을 보여 드리겠습니다.
- 먼저 삭제하려는 페이지에 커서를 놓습니다.
- "개발자"탭을 클릭 한 다음 "Visual Basic"을 클릭하여 Word에서 VBA 편집기를 엽니 다. 리본에서 아직 "개발자"탭을 사용할 수없는 경우 대신 "Alt + F11"을 누릅니다.
- 둘째, "일반"을 클릭합니다.
- 그런 다음 "삽입"을 클릭하고 해당 메뉴에서 "모듈"을 선택합니다.
- 두 번 클릭하여 새 모듈을 엽니 다.
- 그리고 거기에 다음 코드를 붙여 넣으십시오.
Sub DeleteCurrentPage()
Dim objDoc As Document
' Initialize
Set objDoc = ActiveDocument
' Delete current page.
objDoc.Bookmarks("\Page").Range.Delete
End Sub
- 마지막으로 "실행"버튼을 클릭하거나 "F5"를 누르십시오.
여러 페이지 삭제
- 위의 단계에 따라 매크로를 설치하고 실행하십시오.
- 매크로를 다음으로 바꿉니다.
Sub DeletePagesInDoc()
Dim objRange As Range
Dim strPage As String
Dim objDoc As Document
Dim nSplitItem As Long
Application.ScreenUpdating = False
' Initialize and enter page numbers of pages to be deleted.
Set objDoc = ActiveDocument
strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
"use comma to separate numbers", "Delete Pages", "For example: 1,3")
nSplitItem = UBound(Split(strPage, ","))
' Find specified pages and highlight their contents.
For nSplitItem = nSplitItem To 0 Step -1
With ActiveDocument
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
Set objRange = .Bookmarks("\Page").Range
objRange.Delete
End With
Next nSplitItem
Application.ScreenUpdating = True
End Sub
- 매크로를 실행하면 입력 상자가 트리거됩니다. 삭제할 페이지의 페이지 번호를 입력하고 쉼표를 사용하여 구분합니다. 쉼표 뒤에 공백을 입력하지 마십시오.
- 그런 다음 "확인"을 클릭하여 계속합니다.
물론이 매크로를 사용하여 현재 페이지를 삭제할 수 있습니다. 페이지 번호를 입력하기 만하면됩니다.
부패가 당신을 멈추게하지 마십시오
데이터 재해가 발생하면 일상 업무가 지연될 뿐만 아니라 추가 비용도 부담해야 합니다. 데이터의 안전을 보장하려면 적절한 보안 솔루션을 확보하는 것이 좋습니다. 문서 손상 수리 도구.
저자 소개 :
Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. Excel 수정 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM