Help with Extraction of Text in 1 TextBox only

Guessed · #2 11-14-2021, 05:11 PM

You didn't indicate where you wanted the text to go so I'll show you how to put it in front of the anchor for the textbox.

Code:

Sub GetText()
  Dim aShp As Shape, aRng As Range
  If Selection.ShapeRange.Count > 0 Then
    Set aShp = Selection.ShapeRange(1)
    Debug.Print aShp.TextFrame.TextRange.Text
    Set aRng = aShp.Anchor
    aRng.Collapse Direction:=wdCollapseStart
    aRng.FormattedText = aShp.TextFrame.TextRange.FormattedText
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Log file extraction	xendistar	Excel	0	09-01-2016 02:08 PM
wrapping text around a picture within a textbox	ketanco	Word	3	04-06-2016 11:07 AM
Data extraction from a cell!	JTevez	Excel	2	10-14-2015 11:56 PM
Display result in textbox based on the input of another textbox	scarymovie	Word VBA	5	05-16-2012 07:05 PM
Email Extraction	dpad	Outlook	1	08-17-2010 06:01 PM