word - autor dokumentu

• Previous message: Milan Kevely: "Re: ovadac pro CMI8330C"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

zdravim

niekto tu zhanal makro na zmenu autora wordovskeho dokumentu

Sub AuthorChange()
Dim MSW As New Word.Application
Dim fso, fsoFolder, fsoFile

    MSW.Visible = True

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fsoFolder = fso.GetFolder("C:\path\to\files")
    For Each fsoFile In fsoFolder.Files
        If (fsoFile.Type = "Microsoft Word Document") Then
            MSW.Application.Documents.Open fsoFile.Path
            MSW.ActiveDocument.BuiltInDocumentProperties("Author") =
"novy author"
            MSW.ActiveDocument.BuiltInDocumentProperties("Company") =
"nova company"
            MSW.Documents(fsoFile.Path).Close True
        End If
    Next
    MSW.Application.Quit
End Sub

peter

• Previous message: Milan Kevely: "Re: ovadac pro CMI8330C"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

This archive was generated by hypermail 2.1.2 : 02. 09. 2002, 09:36 CEST