Word Find and replace text

Question

Hello from Steve

Compile error:

Method or data member not found

I have highlited the error by colouring the text brown and bold ".Value"

Sub FindAndReplaceText()

Dim rng As range 

Dim searchText As String 

Dim replaceText As String 

' Set your search and replacement text 

searchText = "4 b, 5 b" 

replaceText = "4g, 5g" 

' Check if anything is selected 

If Not Selection Is Nothing Then 

    ' Loop through each cell in the selection 

    For Each rng In Selection 

        ' Replace the search text with the replacement text 

        rng.Value = Replace(rng**.Value**, searchText, replaceText) 

    Next rng 

Else 

    MsgBox "No selection found. Macro terminated." 

End If 

End Sub

Answer 1

That's strange, it works fine for me. 

Please make sure you have selected the text that needs to be replaced. I modified the code based on what you shared, and in the original code, you need to select the text to replace it, so the new code retains this part of the functionality. 

Before running:

After running:

I also shared this document with you in a private message. Please check again if it runs correctly.

Thomas

Answer 2

Hello Thomas

I am very grateful, Yes I forgot to select the text.

All the Best

Steve

Answer 3

Hello Thomas

Firstly thank you

Your comment also indicates that this is applicable to cells. Was this intentional? no

I got this macro from online.

It did not appear to me at the time it is a excel macro.

I work in a word document.

I have tested your macro and it did not function.

I am hoping for that you can maybe have an alternative solution.

I have been looking for sometime online that maybe suitable.

All the Best

Steve

Answer 4

Hi Steve8d,

Thanks for your post in Microsoft Community.

Based on the code you shared, it appears that you may have incorrectly used a VBA attribute from Excel. 

In Word VBA, the Range object does not include the .Value property; instead, you use Range.Text in Word. 

Your comment also indicates that this is applicable to cells. Was this intentional? 

You might want to try this modified code:

Sub ReplaceTextInSelection()    
    Dim rng As Range

    Dim searchText As String 

    Dim replaceText As String  

    ' Set your search and replacement text

    searchText = "4 b, 5 b"

    replaceText = "4g, 5g"

    Set rng = Selection.Range    

    With rng.Find        
      .Text = searchText        
      .Replacement.Text = replaceText        
      .Forward = True        
      .Wrap = wdFindStop        
      .Format = False        
      .MatchCase = False        
      .MatchWholeWord = False        
      .MatchWildcards = False        
      .MatchSoundsLike = False   
     
      .Execute Replace:=wdReplaceAll    

    End With

End Sub

Looking forward to your reply!

Best Regards,

Thomas C - MSFT | Microsoft Community Support Specialist