Kapalı Word Dosyalarının fontunu ve puntosunu değiştirmek.

[nunikmakarios]

Sevgili forum üyeleri. Yaklaşık 120 tane word dosyam var. Bu dosyaları tek tek açmadan hepsinin fontunun ve font boyutunu değiştirmek istiyorum. Bu mümkün müdürü acaba? yardımcı olmanızı rica ederim

 

[leumruk]

Merhaba,
Ekteki excel dosyasını word dosyalarınızın bulunduğu klasöre kopyalayın ve makroyu çalıştırın.

Sub WD_Font_Duzelt()
Set wd = CreateObject("word.Application")
wd.Visible = True

wrd = ThisWorkbook.Path
Dosya = Dir(wrd & "\*doc*")
Do While Dosya <> ""
wd.Application.Documents.Open wrd & "\" & Dosya
With wd.ActiveDocument.Range.Font
    .Name = "Times New Roman"
    .Size = 12
End With
wd.ActiveDocument.Close True
Dosya = Dir
Loop

wd.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[nunikmakarios]

Çok teşekkür ederim büyük faydası oldu

 

[f_alkan]

hocam
name kısmını otomatik olarak değiştirdik fakat
size kısmına 20 yazdığımız zaman değişiklik yapmıyor.
font büyüklüğü 20 olması gerekiyor da kolay gelsin..

 

[leumruk]

Merhaba,
Ben de sorunsuz çalışıyor, başka bir sorun olmalı.