Excelden makro ile kapalı word dosyasında değişiklik yapma hk.

[elevisse]

Arkadaşlar merhaba,
Excel sayfasında A1 sütununda dosya isimleri yazmaktadır. Bu dosyalar C:\ dizininde yer almaktadırlar. Makro Excelde A1 sütunundaki dosya isimlerine göre C:\ deki word dosyalarını açsın ve içindeki tüm verileri seçsin ve yazı tipi Times New Roman boyut 12 punto olarak düzeltip kaydetsin. Böyle birşey makro ile nasıl yapılabilir. Yardımlarınızı rica ediyorum. Teşekkürler. Hepinize iyi çalışmalar.

A1 sütunu
DOSYA ADI
690.docx
691.docx
692.docx
693.docx
694.docx
695.docx


C:\
Word dosyalarının bulunduğu dizin


Saygılarımla,

 

[leumruk]

Merhaba,

Sub WD_Font_Duzelt()
Set wd = CreateObject("word.Application")
wd.Visible = True
For x = 1 To Cells(Rows.Count, 1).End(3).Row
wrd = "C:\" & Cells(x, 1).Text
If Dir(wrd) <> "" Then
wd.Application.Documents.Open wrd
With wd.ActiveDocument.Range.Font
    .Name = "Times New Roman"
    .Size = 12
End With
wd.ActiveDocument.Close True
End If
Next
wd.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[elevisse]

Merhaba,

Sub WD_Font_Duzelt()
Set wd = CreateObject("word.Application")
wd.Visible = True
For x = 1 To Cells(Rows.Count, 1).End(3).Row
wrd = "C:\" & Cells(x, 1).Text
If Dir(wrd) <> "" Then
wd.Application.Documents.Open wrd
With wd.ActiveDocument.Range.Font
    .Name = "Times New Roman"
    .Size = 12
End With
wd.ActiveDocument.Close True
End If
Next
wd.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

Merhaba Leumruk, Yardımınız için çok teşekkür ederim fakat bu kodları önce excele yazıyorum daha sonra çalıştırdığımda word dosyasında herhangi bir değişiklik yapmıyor. Office 2010 kullanıyorum.Kütüphaneden word uygulamasını aktif hale getiriyorum. Set wd = CreateObject("word.Application.14 ") olarak seçiyorum yinede değişen birşey olmuyor. Yardımlarınızı rica ediyorum. Teşekkürler.

 

[leumruk]

Sn. elevisse,
Adresin C:\ sürücüsü olduğunu yazmıştınız. Burayla ilgili bir sorun olabilir. Word dosyaları doğrudan C sürücüsünde mi yoksa C sürücüsündeki herhangi bir klasör içerisinde mi?