Selecting and returning text from a find search of a Word field using Excel VBA

Guessed · #1 08-22-2022, 03:50 PM

Field.Code is a string and refers to the field code not the field result. I think perhaps you are wanting the field result (the text that shows on the page) which is Field.Range.Text

Eg a field like this {Seq Table} would have a Field.Code = "Seq Table" but a Field.Range.Text = "1"

You probably don't need to run a find on a tiny string like this. Perhaps a Like comparison is more efficient.

Working through a loop from the front while deleting some of them is problematic. If you delete an item, all the remaining items move forward one position so the loop then skips an item. You solve this by working backwards through the fields.

Code:

Dim i as integer
For i = analystreport.Fields.Count to 1 Step -1
  If analystreport.Fields(i).Range.Text Like "*[0-9].[0-9]*" then
    tenum = analystreport.Fields(i).Range.Text
  Else
    analystreport.Fields(i).Delete
  End If
Next i

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Content Controls: Whole field selecting upon clicking vs only placing cursor inside the field	nicoledey	Word	4	06-16-2018 12:37 AM
Returning text, date, time, location from one Excel sheet to another	dave57	Excel	17	06-15-2017 10:45 AM
VBA Code to search for field codes with certain text before the Field code and to change style	welcometocandyland	Word VBA	4	02-08-2017 06:53 PM
Search cell text from Excel into ms-word	ShailShin	Word VBA	1	04-21-2014 02:12 AM
Selecting merge field based on whether or not text is present	amym	Mail Merge	1	12-07-2010 05:14 AM