Usean eri sanan korvaaminen

Robot

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.

8

933

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Petteri Orpo on satusetä

      Väittää että työllisyys on Suomessa samalla tasolla kuin hallituksen aloittaessa kesällä 2023. Fakta on, että työllisi
      Maailman menoa
      93
      3514

    2. Orpo ja Purra, käykää hakemassa oppia Espanjasta

      Espanja on näyttänyt kuinka kova työttömyys nujerretaan ja saadaan maan talous palautettua nousu-uralle. Ei ole häpeä kä
      Maailman menoa
      56
      2478

    3. Porvarimedia: Räsänen vei Lindtmanilta pääministerin paikan

      Lisäksi suomalaiset ovat innostuneet tuhlaaman, koska kuluttavat inflaation verran enemmän rahaa. Eikö porvarimedialla
      Maailman menoa
      14
      2394

    4. Jääkiekon MM:t pitää siirtää MTV:ltä Ylelle

      Persuille ikäviä uutisia taas. . Valtioneuvoston asetuksen mukaan MM-kisat kuuluvat kansallisesti merkittäviin tapahtumi
      Maailman menoa
      63
      2264

    5. Ruotsi laskee jälleen bensaveroa, Riikka irvailee tumput suorana

      Euron bensa oli persujen vaalilupaus, mutta kohta alkaa olla kolmosella alkavia litrahintoja. Meanwhile in Sverige: "
      Maailman menoa
      16
      2138

    6. Olitkin liian hyvää ollaksesi totta nainen

      Ihastuin ja rakastuin, mutta se on minun ongelma. Ei sinun.
      Ikävä
      87
      1169

    7. Kaste pelastaa ihmisen

      Kristittyjen kirkkojen toimittama yksi Kaste on Jumalan tekemä pelastusteko, jossa perisyntiin hengellisesti kuollut ihm
      Kaste
      567
      1087

    8. Uskon todistus

      Oikean uskovaisen ja nimikristityn erottaa siitä, että Jeesukseen uskova korottaa Jeesusta ja uskoa Häneen, mutta nimik
      Kaste
      261
      996

    9. Ensin oli armo - sen jälkeen tuli usko

      Me emme ansaitse armoa omalla uskollamme. Armo on ansaitsematonta rakkautta mikä synnyttää meidät uudesti Jumalasta. K
      Luterilaisuus
      400
      995

    10. Elisalla ja MTV:llä lihava riita - MTV:n kanavienlähetykset ovat katkeamassa Elisan asiakkailla

      Kaikkien MTV:n kanavien televisiolähetykset ovat katkeamassa Elisan kaapeli-tv-asiakkailta. https://www.is.fi/digitoday
      Maailman menoa
      142
      949
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt