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)?
Fontin etsintä makrolla
Tomppaa-69
2
238
Vastaukset
- luuliluu
Eikös tuo mene ihan Etsi ja korvaa toiminnolla? Katso Wordin ohjetta kohdasta Tietyn muotoilun etsiminen ja korvaaminen.
- tomppa-699
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1472589
En kai koskaan saa sinua
Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k1541659Terveystalon lääkärit ylilaskuttaneet
Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K1331633Saran ökytyyli käänsi katseita.
On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.1491358- 661338
The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."
Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut131180Työttömille lusmuille luvassa lisää keppiä
Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall2821165- 156976
Miksi ihmeessä?
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek22924Tiedän kaiken sinusta ja kaikesta
Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht58889