他のソフト(Excelなど)のVBAで
フォルダ
c:\test
の中の拡張子が
doc
のファイルの作成者を
def
に変更する例です.
Microsoft Word ??.? Object Library
への参照設定をしておきます.
Sub test()
Dim app1 As New Word.Application
Dim doc1 As New Word.Document
Dim namae As String
namae = Dir("c:\test\*.doc")
Do While namae <> ""
Set doc1 = app1.Documents.Open("c:\test\" & namae)
With doc1
.BuiltinDocumentProperties("Author") = "def"
.Saved = False
.Save
.Close
End With
namae = Dir()
Loop
Set doc1 = Nothing
app1.Quit
Set app1 = Nothing
End Sub
フォルダ
c:\test
の中の拡張子が
doc
のファイルの作成者を
def
に変更する例です.
Microsoft Word ??.? Object Library
への参照設定をしておきます.
Sub test()
Dim app1 As New Word.Application
Dim doc1 As New Word.Document
Dim namae As String
namae = Dir("c:\test\*.doc")
Do While namae <> ""
Set doc1 = app1.Documents.Open("c:\test\" & namae)
With doc1
.BuiltinDocumentProperties("Author") = "def"
.Saved = False
.Save
.Close
End With
namae = Dir()
Loop
Set doc1 = Nothing
app1.Quit
Set app1 = Nothing
End Sub