Help with Extraction of Text in 1 TextBox only

Cendrinne · #3 11-14-2021, 08:27 PM

Quote:

Originally Posted by Guessed

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

YES, I don't know how you do it, I'm always amaze by you's Pros.
Sorry, I didn't say where to put it.
Where you did, is perfect. Cause at times, I've already fixed lot's of stuff already in a document that had text boxes. So when I encounter another situation in the same document, I didn't want the new textbox to affect all the others that I've fixed.

Would it be complicated to add, that text box that has been extracted, to be deleted?

I could always do it manually, but I was wondering if it's a challenge?

Regardless, thank you soooooooooo much.

Cendrinne

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