Hei.
Tässä todella visainen kysymys, johon en ole löytänyt vastausta. Voiko Wordissä korvata useita eri sanoja samanaikaisesti yhdellä sanalla, eli jos haluaisin korvata sanat;" ehkä, musta, mutta" sanalla: "kyllä" niin miten saisin etsi toiminnon lukemaan nuo sanat eri sanoiksi. Onko mitään merkkiä jonka voisin laittaa sanojen väliin.
Usean eri sanan korvaaminen
8
507
Vastaukset
- yksinkertaisesti
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. - Turbo-Urpo1
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.- Turbo-Urpo1
Laitakkin se haku näin:
\<(ehkä|musta|mutta)\>
eikä näin, kuten animaatiossani näytin:
ehkä|musta|mutta
jos tee niin kuin animaatiossa ( ehkä|musta|mutta ), haku ehto toteutuu kun esiintymä on pitemmän sanan sisällä näin:
[tehkää] sanasta tulee [tkyllää]
[rummuttaja] sanasta tulee [rumkylläja]
- Kundepuu
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 - Robot
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.
- Kundepuu
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"- Robot
Kiitos Kundepuu, olet mahtava!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104414748Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151692Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves921425Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä521336Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.221286Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos501161Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01065Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele54980Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.56857Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl60839