How to find text frame in Word Document ?

BeginnerLearner · #1 02-10-2019, 09:15 AM

Hi,

I am able to find text box. However I am not sure how I can find text frame.

This is the code that I have tried

Code:

ActiveDocument.Shapes.Item.TextFrame.TextRange.Text

Thank you

macropod · #2 02-10-2019, 01:06 PM

You can find a given frame's text via code like:
MsgBox ActiveDocument.Frames(1).Range.Text

BeginnerLearner · #3 02-10-2019, 06:03 PM

Hi, macropod

Thanks for your help!

May I know how to get specific word from text frame?

These are the codes that I have tried

Code:

Sub Frame()

Dim oTxt As TextRange2
Dim oTxt2 As TextRange2

MsgBox ActiveDocument.Frames(1).Range.Text
Set oTxt = ActiveDocument.Frames(1)
Set oTxt2 = oTxt.Find("Technology",True)

If Not oTxt2 Is Nothing Then
    MsgBox "Something"
End If

End Sub

macropod · #4 02-10-2019, 06:22 PM

How about:
MsgBox ActiveDocument.Frames(1).Range.Words(1).Text

BeginnerLearner · #5 02-11-2019, 03:27 AM

Hi, macropod

Thank you for your help, it works!

However, may I ask what if you do not want to manually get the specific word?
Is it use the .Find ?

Thank you

macropod · #6 02-11-2019, 01:53 PM

You could use .Find - but only if you know what the word is. But, if you know what the word is, why are you trying to .Find it? Alternatively, you could use Instr. For example:
If Instr(ActiveDocument.Frames(1).Range.Text, "Technology")> 0 Then
With such a test, you can establish whether the word 'Technology' is present - and even where it starts in the frame.

Guessed · #7 02-11-2019, 02:17 PM

Perhaps you need to explain fully what it is you want to do. To find a particular word by searching through all the text frames in a document the code would look like

Code:

Sub GetAWord()
  Dim aFrame As Frame, aRng As Range
  For Each aFrame In ActiveDocument.Frames
    Set aRng = aFrame.Range
    With aRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "Technology"
      If .Execute Then
        aRng.Select
        MsgBox "Found one of 'em"
      End If
    End With
  Next aFrame
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and highlight text in MS Word document containing word	Jovan Yong	Word VBA	5	04-09-2018 02:59 AM
how to get a startpage like at word 2010 (text frame at margins)	hauswalter	Word	11	10-20-2015 02:38 AM
Trouble fomatting a frame - top of letter cut off in frame - line spacing	gandalf458	Word	4	12-10-2014 03:04 AM
Cannot get rid of a border in a frame or text box	blockie	Word	2	08-21-2014 07:51 PM
Converting plain text to text box/frame	peacespotting	Word	1	08-08-2013 10:39 PM