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

858

Ää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. Persujen mukaan rasismi on huumoria

      Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀
      Maailman menoa
      236
      6362

    2. Rasismia kaikkialla näkevät ovat Suomen tyhmimpiä ihmisiä

      ja monillahan kuluu myös mielialalääkkeitä, eli päässä on ongelmia. Mutta he eivät tajua kuinka paljon ja ihan todellis
      Maailman menoa
      195
      5942

    3. Ei kahta sanaa etteikö Petteri Orpo hyväksy rasismia

      Koska jatkaa hallituksessa rasistisen perussuomalaisiksi itseään kutsuvan puolueen kanssa. Se on Petteri Orpon arvomaai
      Maailman menoa
      17
      5489

    4. Mitkäs nuorisoporukat ovat toisia nuoria ryöstelleet (selvää rassismia)

      No poliisi kertoo, että maahanmuuttajataustaisia ovat, ja isot porukat sillä yhden suomalaisen uhrin kimpussa on ollut j
      Maailman menoa
      80
      4191

    5. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      143
      3513

    6. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      130
      3323

    7. HS 12/25 kysely: persut romahti, demarit raketoi

      Kyyti on kylmää persuleirissä, saattaa vetää siellä silmätkin viirulleen. Sen sijaan SDP:n puoluetoimistolla voidaan pok
      Maailman menoa
      23
      3036

    8. Töppö-persut ovat todella tyhmiä

      sen kertoo tämäkin avaus: "Persujen suosio vain laskee" Töppö-persu vaan unohtaa, että ennen tätä galluppia persujen kan
      Maailman menoa
      8
      2502

    9. Rasismi rapauttaa Suomen mainetta ja hallituksen hiljaisuus pahentaa vahinkoa

      Finnairin viesti Japanista on pysäyttävä: suomalaisen politiikan rasismikohut heijastuvat suoraan matkustuspäätöksiin ja
      Maailman menoa
      254
      2433

    10. Lasse Lehtonen palasi ambulanssilennolla Suomeen

      Nyt on syytä lopettaa irvailu.
      Maailman menoa
      130
      2284
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt