Excel Macro to Find & Replace Diacritic Characters

[excel8442]

I am trying the following but getting an error (on the row with --> ActiveDocument.Range.Find.Execute) in Excel 2011 for Mac. Any ideas?

Sub Diacritics_Replacement()


Dim strFind As String
Dim strReplace As String
Dim i As Long
strFind = "áéíóú"
strReplace = "aeiou"
For i = 1 To Len(strFind)
ActiveDocument.Range.Find.Execute FindText:=Mid$(strFind, i, 1), _
ReplaceWith:=Mid$(strReplace, i, 1), Replace:=wdReplaceAll
Next i


End Sub

 

[Rick Rothstein]

Oh, Sorry but it is clear that I am wrong because I work on a windows sysem. I apologize once more.

I just read my last message again and, in case it was not clear, I work on a Windows system (Win10) and the code I posted works fine for me. You say you are using a Windows system also... I just want to check... are you still having trouble getting my code to work for you?

 

[Hansulet]

Yes, I still having trouble with this code. The result is NNNN for every cells. I am working on Win 10, too.