Angela에는 약 400 개의 텍스트 상자가있는 문서가 있으며 각 텍스트 상자에는 텍스트가 포함되어 있습니다. 그녀는 텍스트 상자를 제거하고 문서에 텍스트를 남겨 두는 방법이 있는지 궁금합니다.

텍스트 상자에서 텍스트를 선택하고 (텍스트 상자 자체를 선택하지 않아야 함) Ctrl + C를 눌러 텍스트를 복사하고 텍스트를 이동할 위치를 클릭 한 다음 Ctrl + V를 누른 다음 삭제하여 수동으로 수행 할 수 있습니다. 텍스트 상자. 그러나 Angela만큼 많은 텍스트 상자를 다룰 때 이것은 금방 지루해집니다.

이 경우 매크로를 사용하여 변경하는 것이 가장 좋습니다. 매크로는 필요한 작업을 수행하면서 모든 텍스트 상자를 다소 빠르게 실행할 수 있습니다. 다음은 이러한 매크로의 예입니다.

Sub ConvertTextboxText()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sTemp As String     Dim J As Long

For J = ActiveDocument.Shapes.Count To 1 Step -1         Set shp = ActiveDocument.Shapes(J)

If shp.Type = msoTextBox Then             sTemp = shp.TextFrame.TextRange.Text             If Len(sTemp) > 1 Then                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 sTemp = Left(sTemp, Len(sTemp) - 1)

oRngAnchor.InsertBefore "[[ " & sTemp & " ]]"

End If             shp.Delete         End If     Next J End Sub

이 매크로는 텍스트 상자에서만 작동하며 텍스트를 포함 할 수있는 다른 도형은 무시합니다. 마지막 텍스트 상자에서 시작하여 문서 시작 부분까지 작동합니다. 완료되면 텍스트 상자 내부에 있던 모든 텍스트가 삭제 된 텍스트 상자가 이전에 고정 된 단락의 시작 부분에 삽입됩니다.

또한 해당 텍스트는 [[이중 대괄호]]로 둘러싸여 있으므로 텍스트의 위치를 ​​쉽게 알 수 있습니다. 텍스트 상자는 문서에서 나타나는 위치에서 멀리 떨어진 위치에 고정 될 수 있으므로 이중 괄호로 묶인 텍스트를 검색하여 원하는 위치로 이동하는 것이 좋습니다.

동일한 작업을 수행하는 다른 방법을 찾고 있다면 다음 웹 페이지에 관심이있을 수 있습니다.

https://www.datanumen.com/blogs/2-quick-methods-extract-texts-text-boxes-word-document/

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (7739)은 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Office 365의 Word에 적용됩니다.