Usean eri sanan korvaaminen

Kyllähän tuon homman tekee helpommin korvaamalla kunkin sanan erikseen.
Eli tekee kolme kierrosta, eka kierroksella korvaa sanan 'ehkä' sanalla 'kyllä', toisella sanan 'musta' sanalla 'kyllä', jne.

Siinä ajassa kun aloittaja miettii ongelmaansa olisi sen jo ratkaissut tuolla yksinkertaisella tavalla.

Minä en tiedä voiko Wordissä korvata useita eri sanoja samanaikaisesti yhdellä sanalla, mutta jos olisit kysynyt; Voiko LibreOffice 6.0 Writerissa korvata useita eri sanoja samanaikaisesti yhdellä sanalla, olisin sanonut että: Voi

https://s25.postimg.cc/6c8rv74tb/Etsi_Ja_Korvaa.gif
Tuossa esimerkissä korvataan ä,ö,y kirjaimet risuaitamerkillä (#), mutta nuo korvattavat olisi voineet olla sanojakin.

Jos vaikka

https://support.office.com/fi-fi/article/tekstin-ja-muiden-tietojen-etsiminen-ja-korvaaminen-word-asiakirjassa-c6728c16-469e-43cd-afe4-7708c6c779b7

Makrolla homma hoituu helposti
avaa lomakkeen, johon syötetään muutettavat sanat pilkulla eroteltuma. Koodissa voi vaihtaa erottimen ja muitakin ehtoja mm. muotoilut ja vastineet

Sub Korvaa()
Dim a
x = InputBox("Anna etsittävät sanat pilkulla eroitettuna")
a = Split(x, ",")
For i = 0 To UBound(a)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = a(i)
' tähän korvattava sana, muuta muotoilut yms asetukstsopivaksi
.Replacement.Text = "Kyllä"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

Keep WORDing
@Kunde

Hei kaikki ja kiitos vastauksista. Kyse ei ikävä kyllä ole parista sanasta, vaan oikeasti yli tuhannesta eri nimestä 10.000 sivun niitteessä, jotka kaikki minun tulisi korvata sanalla "Matti Meikäläinen" . Nimet on excel tiedostona ja saisin ne helposti muutettua kaavan avulla merkkijonoksi, joten ajattelin että voisiko olla helpompi keino kuin korvata yksi nimi kerrallaan eli jos olisi olemassa joku välimerkki tms. ja sen avulla voisin muutta useita eri nimiä Matti Meikäläiseksi.

toi mun koodihan tekee just noin niinkuin kerrot.
Korvaat x:n vain merkkijonolla ja tarvittaessa vaihdat erottimen
x = InputBox("Anna etsittävät sanat pilkulla eroitettuna") korvaat sillä merkkijonolla
a = Split(x, ",")
muutat
X=" Liisa, Matti, Kalle ,Pekka" jne -eli se lista sieltä Excelistä
a = Split(x, ",") tässä vaihdat erottimen, nyt pilkku ","

Keep WORDing
@Kunde"