lettertype omzetten

[wilbert1967]

hallo

ik wil in een 50 tal brieven van lettertype verdana naar ariel omzetten
kan dat op een eenvoudige manier?

mvg
wilbert

 

[Jerro]

Voor zover ik weet niet.. brief openen ctrl+a(alles selecteren) en dan lettertype wijzigen en opslaan gaat dan het snelste

 

[OctaFish]

Als je de brieven allemaal aan dzelfde sjabloon hebt gehangen, en de documenten werken de sjabloon automatisch bij, hoef je volgens mij alleen maar in de sjabloon het lettertype bij te werken. Maar dat is voor veel mensen geen standaard werkwijze...

 

[vanveelen]

Ik denk dat je ze allemaal moet openen.
Wanneer ze allemaal in dezelfde map staan is het geen probleem om dat in één keer te doen: alle brieven selecteren en .... Enter.

Dan de procedure. Maak er een macro van met de 'recorder':
De handelingen:
- Ctrl-A (alles selecteren)
- Lettertypen wijzigen in Arial
- Ctrl-Home om 'het selecteren' ongedaan te maken
- Knop Opslaan
- Knop Sluiten

Zoiets dus:

Sub Verdana()
'
' Verdana Macro
'
'
Selection.WholeStory
Selection.Font.Name = "Arial"
Selection.HomeKey Unit:=wdStory
ActiveDocument.Save
ActiveDocument.Close
End Sub

Dat wordt vijftig keer (-1) een toetscombi in drukken (is dus een handeling met twee vingers).
Of zet de macro als knop in je werkbalk; dat wordt vijftig keer (-1) met één wijsvinger .....

Ik ga er trouwens van uit, dat je ARIAL bedoelt en niet ARIEL (dat wasmiddel ....), tenzij dat lettertype natuurlijk ook bestaat
enne .... wellicht is er een 'bobo' die iets met code kan die zich herhaalt tot allen worddocumenten gesloten zijn ...

 

[snb]

Sub gemak_dient_de_mens()
  c4 = Dir("E:\*.doc")
  Do Until c4 = ""
    With GetObject("E:\" & c4)
      With .Styles("Standaard")
        .Font.Name = [COLOR="Blue"]"Arial"[/COLOR]
        .AutomaticallyUpdate = False
      End With
      .Save
      .Close 0
    End With
    c4 = Dir
  Loop
End Sub

Wijzig de de tettertypenaam (blauw) in de door jou gewenste.

 

[wilbert1967]

alle bedankt
in bijzonder snb
het werkt
groetjes