다른 사람의 문서로 많은 작업을하는 경우 해당 문서에서 텍스트 상자를 제거해야 할 수 있습니다. 문서에 하나 또는 두 개의 텍스트 상자 만있는 경우 선택하여 삭제하는 것이 그리 어렵지 않습니다. 하지만 텍스트 상자가 30 개, 40 개 또는 그 이상이면 어떻게됩니까?

개별적으로 삭제하면 지루할 수 있습니다.

한 가지 잠재적 인 해결책은 “무력한 힘”방법입니다. 다음 단계를 따르십시오.

  1. 문서에서 Ctrl + A를 누릅니다. 전체 문서가 선택됩니다.

  2. Ctrl + C를 누릅니다. 이제 문서가 클립 보드에 있습니다.

  3. 비어있는 새 문서를 엽니 다.

  4. 편집 메뉴에서 선택하여 붙여 넣기를 선택하십시오. 선택하여 붙여 넣기 대화 상자가 표시됩니다. (그림 1 참조)

  5. 형식 목록에서 서식없는 텍스트를 선택합니다.

  6. 확인을 클릭하십시오.

텍스트 상자를 제외한 문서 텍스트가 이제 새 문서에 있습니다. 이 방법의 명백한 단점은 원본 문서의 다른 서식도 손실되므로 전체 문서의 서식을 다시 지정해야한다는 것입니다. (나는 이것이 무차별 대입 방법이라고 말했습니다.)

텍스트 상자 만 제거하려는 경우 가장 빠른 해결책은 매크로를 사용하는 것입니다. 다음 매크로는 문서의 모든 텍스트 상자를 빠르게 제거합니다.

Sub RemoveTextBox1()

Dim shp As Shape     For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then shp.Delete     Next shp End Sub

이 매크로는 모든 텍스트 상자와 그 내용을 제거합니다. 즉, 텍스트 상자가 텍스트 배치에 사용되는 경우 해당 텍스트 상자의 텍스트가 텍스트 상자 자체와 함께 삭제됩니다.

텍스트 상자에서 문서로 텍스트를 전송하려는 경우 텍스트 상자를 삭제하기 전에 위 매크로를 약간 수정하면 작동합니다.

Sub RemoveTextBox2()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sString As String

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             ' copy text to string, without last paragraph mark             sString = Left(shp.TextFrame.TextRange.Text, _               shp.TextFrame.TextRange.Characters.Count - 1)

If Len(sString) > 0 Then                 ' set the range to insert the text                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 ' insert the textbox text before the range object                 oRngAnchor.InsertBefore _                   "Textbox start << " & sString & " >> Textbox end"

End If             shp.delete         End If     Next shp End Sub

이 매크로가 완료되면 “텍스트 상자 시작”을 검색하면 문서에서 사라진 텍스트 상자에 있던 텍스트의 시작 부분에있게됩니다. 그런 다음 원하는대로 표시되도록 텍스트를 편집 할 수 있습니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1690)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Removing_All_Text_Boxes_In_a_Document [문서의 모든 텍스트 상자 제거].