Help with Extraction of Text in 1 TextBox only

Cendrinne · #1 11-14-2021, 08:47 PM

It's good to know, I have a choice to delete it or not.

I've added this script below, a line after, .End if

HTML Code:

    Selection.ShapeRange(1).Delete

HTML Code:

Sub Gettext()
'Helped by Guessed (Andrew Lockton), from the MS office Word forum on 2021-11-14

  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

    Selection.ShapeRange(1).Delete

End Sub

Thank you so much.
I have to open a new thread for something else, I can't figure out. Remove the default marging in a textbox.

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