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
261
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
- 2082655
Törkeä eläinsuojelurikos Sonkajärvellä
Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo521866Jotkut ihmiset pelkäävät syöpää sairastavaa
On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall1521447Lavrov suivaantui Stubbille perustellusti.
Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol3671418Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.
https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis3571356Kääminsä polttanut taksi suomussalmella
Vieläkö sillä hermonsa menettäneellä hulluja ylinopeuksia ajavalla asiakkaansa haukkuvalla( jos ajat paska kyydin hänen251246Se ei ihan oikeasti vaatisi kuin yhden
Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe611213Eronnut Janni Hussi palaa julkisuuteen - Aloittaa uudessa työssä, joka on aivan uusi pesti Suomessa
Janni Hussi on saanut viime aikoina kohujulkisuutta, kun hänen ja Joel Harkimon avioliitto päättyi eroon kesällä 2025. H141146- 551006
Jorma Uotinen avaa sanaisen arkkunsa TTK-miesparista ja koko uudistuksesta: "Sehän on..."
Tanssii Tähtien Kanssa -parketilla nähdään ensimmäistä kertaa Suomessa tanssiparina miespari kauden alusta asti. Mikko S23928