find and replace a number that's always in a table and always adjacent to a cell with known text

mbcohn · #29 04-01-2021, 04:29 PM

So, I see that the slashes are missing from that code I just entered above. I added them back, and am now getting the error here (invalid procedure call or argument).

Code:

'Store Information About Word File
   myPath = ActiveDocument.FullName
   CurrentFolder = ActiveDocument.Path & "\"
   FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
    InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)

No idea what's going on. Could the code somehow be changing when it runs?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and Replace rows in a table based on bold text.	OfficeAssociate99	Word VBA	2	07-26-2017 06:32 AM
Select Cell Text to paste into Find/Replace	CBarry	Word VBA	2	02-16-2017 04:37 AM
Increase number in cell, based on value in adjacent cell	scottyb	Excel	3	02-02-2017 03:51 AM
VBA Table – Search All Tables - Find & Replace Text in Table Cell With Specific Background Color	jc491	Word VBA	8	09-30-2015 06:10 AM
Word VBA Find Table Text Shading Colour and replace with another	QA_Compliance_Advisor	Word VBA	10	09-19-2014 08:36 AM