アンジェラには、約400個のテキストボックスが含まれるドキュメントがあり、各テキストボックスにはテキストが含まれています。彼女は、テキストボックスを削除して、テキストをドキュメントに残す方法があるかどうか疑問に思います。

これは、テキストボックス内のテキストを選択し（テキストボックス自体は選択しないように注意してください）、Ctrl + Cを押してテキストをコピーし、テキストの移動先をクリックし、Ctrl + Vを押してから、削除するだけで手動で実行できます。テキストボックス。ただし、アンジェラと同じ数のテキストボックスを扱う場合、これはすぐに面倒になります。

この場合、変更を行うにはマクロに依存するのが最善です。マクロは、必要な作業を実行して、すべてのテキストボックスをかなりすばやく実行できます。以下はそのようなマクロの例です：

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

このマクロはテキストボックスでのみ機能し、テキストを含む可能性のある他の図形は無視します。最後のテキストボックスから始まり、ドキュメントの先頭に向かって進みます。完了すると、テキストボックス内にあったすべてのテキストが、削除されたテキストボックスが以前に固定されていた段落の先頭に挿入されます。

さらに、そのテキストはで囲まれているため、テキストの場所が簡単にわかります。テキストボックスは、ドキュメント内の表示場所から離れた場所に固定できる場合があるため、これらの二重括弧で囲まれたテキストを検索して、最終的に配置する場所に移動することをお勧めします。

同じタスクを実行する他の方法を探している場合は、次のWebページに興味があるかもしれません：

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

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（7739）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。