Word Dosyası Kapalı İken Başlık İsmini Dosya İsmi Yapmak

[smile66]

selam ustalar
ben şey soracaktım

mesala bi klasör var ve içinde 1,2,3... gibi isimlerle word, excel, powerpoint dosyaları var. Ben bu dosyların ismini dosya içerik başlığı şeklinde otomatik ve hızlı bir şekilde düzenelemek isitiyorum.

Yani "1.doc" dosyası var içierik başlığı "Türkiye" ben bunun otomatik olarak "Türkiye.doc" olmasını isitiyorum.

Nasıl yapabilirim yardımcı oursanız sevinirim..

 

[hamitcan]

Not: Sorunuzun devamını kaçırmışım, yeni fark ettim. Kod, sadece word dosyaları için çalışır.
Aşağıdaki kodu dener misiniz ?

Sub DosyadakiIlkSatirDosyaIsmiOlsun()
yol = "C:\"
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(yol)
Set dc = f.Files
For Each dosya In dc
    Documents.Open dosya.Path
    ChangeFileOpenDirectory yol
    u = Len(ActiveDocument.Paragraphs(1).Range.Text)
    a = Left(ActiveDocument.Paragraphs(1), u - 1) 
    ActiveDocument.SaveAs a, FileFormat:=wdFormatDocument
    ActiveDocument.Close
    Kill dosya.Path
Next
End Sub

 

[smile66]

teşekkür ederim usta
fakat
ya ben becermedim yada kodlarda hata var. yine de çok sağol..

ben *.bat şeklinde yapıyorum bu kodları doğru mu yapıyorum yanlış mı?

 

[hamitcan]

ben *.bat şeklinde yapıyorum bu kodları doğru mu yapıyorum yanlış mı?

Tam olarak ne yaptığınızı anlamadım.