Fontin etsintä makrolla

Miten Wordissa voisi makrolla etsiä kaikki tietyt fontilla kirjoitetut tekstit (esim Ariel) ja muutta ne pieniksi kirjaimiksi?
Homma toimii ok kun teen käsipelillä eli etsi ko fontti, pois etsinnästä ja menusta format/change case ja taas sama etsi jne. Mutta kun dokumentti on iso ja noita muutettavia on satoja!
Yritin nauhoittaa makron mutta se ei toimi!
Ja saisiko tuon makron viellä käynnistymään aina automaattisesti kun tulostan ko. dokumentin (tai avaan dokumentin)?
2293
Äänestä

Muut lukivat myös

Vastaukset 2

Vanhimmat

Eikös tuo mene ihan Etsi ja korvaa toiminnolla? Katso Wordin ohjetta kohdasta Tietyn muotoilun etsiminen ja korvaaminen.

Äänestä
  • ei mene etsikorvaa. ei voi korvata tekstiä pieniksikirjaimiksi. eli tarvii makron eli toimii oheisella:
    Sub Macro4()
    Do Until ActiveDocument.Bookmarks("\Sel") = _
    ActiveDocument.Bookmarks("\EndOfDoc")
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .Font.Name = "EanBwrP36Tt"
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    If Selection.Find.Found = True Then
    Selection.Range.Case = wdLowerCase
    Else
    Exit Do
    End If
    Loop
    End Sub

    Äänestä

Kommentoi aloitusta


Tomppaa-69 kirjoitti:

Miten Wordissa voisi makrolla etsiä kaikki tietyt fontilla kirjoitetut tekstit (esim Ariel) ja muutta ne pieniksi kirjaimiksi?
Homma toimii ok kun teen käsipelillä eli etsi ko fontti, pois etsinnästä ja menusta format/change case ja taas sama etsi jne. Mutta kun dokumentti on iso ja noita muutettavia on satoja!
Yritin nauhoittaa makron mutta se ei toimi!
Ja saisiko tuon makron viellä käynnistymään aina automaattisesti kun tulostan ko. dokumentin (tai avaan dokumentin)?

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu