Allora io ho questa macro in exel:
- Codice: Seleziona tutto
Sub find_replace()
Dim free_file As Integer, s As String, v As Variant
free_file = FreeFile
Open "lista.txt" For Input As free_file
While Not EOF(1)
Line Input #1, s
v = Split(s, "=")
Cells.Replace Trim(v(0)), Trim(v(1)), MatchCase:=True
Wend
Close free_file
MsgBox "Operazioni completate.", vbInformation, "Fatto"
End Sub
che trova e sostituisce in exel una serie di parole che vengono prese da un file txt , come devo modificare il codice per far si che la macro possa funzionare anche in word? ( mettendola tra le macro di word)