이 기사에서는 Word 문서의 텍스트 상자에서 텍스트를 추출하는 빠르고 사용하기 쉬운 두 가지 방법을 보여 드리고자합니다.
때때로 우리는 많은 수의 텍스트 상자를 포함하는 Word 파일을 얻을 수 있습니다. 일반적으로 해당 상자 안에 텍스트 또는 관련 내용이 있습니다. 그러면 전체 텍스트 상자를 유지하는 대신 내부에 텍스트 만 가져와야 할 수 있습니다.
물론, 텍스트를 복사하여 다른 곳에 붙여 넣기 만하면 하나의 텍스트 상자 내에서 단어를 검색하는 것이 빠릅니다. 그러나 수백 가지에 관해서는 작업을 완료하기위한 몇 가지 빠른 팁을 배우는 것이 좋습니다.
방법 1 : "선택 창"사용
- 첫 번째와 포름ost, "홈"탭을 클릭합니다.
- 그런 다음 "편집"그룹에서 "선택"아이콘을 클릭합니다.
- 그런 다음 드롭 다운 메뉴에서 "선택 창"을 선택합니다.
- 이제 화면 오른쪽에서 창에 표시되는 모든 텍스트 상자를 볼 수 있습니다.
- "Ctrl"을 누르고 창에서 해당 텍스트 상자 이름을 하나씩 클릭하여 모두 선택합니다.
- 그리고 상자 선 중 하나에 커서를 놓고 마우스 오른쪽 버튼을 클릭합니다.
- 목록 옵션에서 "복사"를 클릭합니다. 이제 그 상자가 더 이상 필요하지 않으면 "삭제"를 누르십시오.
- 다음으로“Start”를 눌러 Windows 메뉴를 봅니다.
- "워드 패드"를 선택하고 엽니 다.
- 그런 다음 "붙여 넣기"를 클릭하여 텍스트 상자에서 모든 텍스트를 가져옵니다.
- 다음으로 모든 텍스트를 선택하고 마우스 오른쪽 버튼을 클릭하여 "복사"를 선택합니다.
- 이제 새 Word 문서를 열고 마우스 오른쪽 버튼을 클릭하여 "텍스트 만 유지"를 선택하여 텍스트를 가져옵니다.
방법 2 : VBA 코드 사용
보시다시피 첫 번째 방법을 사용하더라도 모든 텍스트 상자를 선택하는 것을 피할 수는 없습니다. 여러분 중 일부가 그러한 노동 작업을 싫어하는 경우 매크로를 실행할 수있는 방법을 제공합니다. 방법 2를 사용하면 모든 텍스트를 한 번에 추출하고 텍스트 상자를 삭제할 수 있습니다.
- 먼저 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
- 둘째, "일반"을 클릭 한 다음 "삽입"을 클릭합니다.
- 다음으로“Module”을 선택하여 새로운 것을 삽입하십시오.
- 그런 다음 모듈 이름을 두 번 클릭하여 편집 영역을 엽니 다.
- 다음 코드를 붙여넣고 "실행"을 클릭하십시오.
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
얻을 가능성이있는 것은 다음과 같습니다.
난파 된 Word 파일에 대처
Word는 오류가 발생하기 쉬우므로 부패에 자주 희생됩니다. 따라서 문서의 손상을 방지하기 위해 문서를 적절하게 관리해야합니다. 일단 손상되면 영구적으로 잃을 위험이 있습니다. 그런 다음 손상된 Word 데이터 복구 도구.
저자 소개 :
Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. Excel 파일 오류 복구 도구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM