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
220
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
Olen tosi outo....
Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap162138Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta
https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi842078- 1011377
Vanhalle ukon rähjälle
Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen101186Hommaatko kinkkua jouluksi?
Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k1451170Maisa on SALAKUVATTU huumepoliisinsa kanssa!
https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663811143Aatteleppa ite!
Jos ei oltaisikaan nyt NATOssa, olisimme puolueettomana sivustakatsojia ja elelisimme tyytyväisenä rauhassa maassamme.249886Omalääkäri hallituksen utopia?
Suurissa kaupungeissa ja etelässä moinen onnistunee. Suuressa osassa Suomea on taas paljon keikkalääkäreitä. Mitenkäs ha172858- 63834
- 59811