word ve excell de yazar adını değiştirme

[zetay]

bir sürü word ve excel dosyamdaki eskiden yazılmış olan yazar adını bir kalemde değiştirebilirmiyim. teşekkürler.

 

[hamitcan]

Sub DosyaYazariniDegistir()
Yazar = "denemex"
Yol = "C:\"'Dosyalarınızın bulunduğu yolu yazın.
    Application.DisplayAlerts = False
    Set wrd = CreateObject("word.document")
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set f = ds.GetFolder(Yol)
    Set dc = f.Files
        For Each dosya In dc
            If dosya.Type = "Microsoft Office Word Belgesi" Then
                wrd.Application.Documents.Open Yol & dosya.Name
                ActiveDocument.BuiltinDocumentProperties.Item("Author").Value = Yazar
                ActiveDocument.Save
                ActiveDocument.Close
            ElseIf dosya.Type = "Microsoft Office Excel Çalışma Sayfası" Then
                Workbooks.Open Yol & dosya.Name
                ActiveWorkbook.BuiltinDocumentProperties.Item("Author").Value = Yazar
                ActiveWorkbook.Save
                ActiveWorkbook.Close
            End If
        Next
    Application.DisplayAlerts = True
    MsgBox "Bitti."
End Sub

 

[zetay]

teşekkür ederim sağol

 

[bilgin71]

merhaba bu kod 2016 sürümde çalışmıyor. bu konuda yardımcı olabilir misini?