R
Rakshit
I am having an interesting problem while trying to set the built in
document properties of a word file using an excel macro. I am picking
the values from an excel sheet and trying to set the values for each
..doc file in a folder one by one. The following code runs perfect the
first time and sets the new values for all built in properties for all
the word files in the "C:\Test" folder.
But when i run the code a second time with new values, it executes
without any error but doesn't set the new values (the doc files have
the old values itself).
Can someone help please? Urgent....
Sub Macro2()
Dim i As Integer
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("Word.Application")
With Application.FileSearch
..NewSearch
..LookIn = "C:\Test"
..SearchSubFolders = False
..Filename = "*.doc"
..Execute
For i = 1 To .FoundFiles.count
ThisFile1 = Range("B" & i + 1).Value
ThisFile2 = Range("C" & i + 1).Value
ThisFile3 = Range("D" & i + 1).Value
Set wordDoc = wordApp.Documents.Open(Filename:=.FoundFiles(i))
wordApp.ActiveDocument.BuiltinDocumentProperties("Title") = ThisFile2
wordApp.ActiveDocument.BuiltinDocumentProperties("Subject") = ThisFile3
wordApp.ActiveDocument.BuiltinDocumentProperties("Author") = ThisFile4
wordDoc.Save
wordDoc.Close
Next i
End With
End Sub
document properties of a word file using an excel macro. I am picking
the values from an excel sheet and trying to set the values for each
..doc file in a folder one by one. The following code runs perfect the
first time and sets the new values for all built in properties for all
the word files in the "C:\Test" folder.
But when i run the code a second time with new values, it executes
without any error but doesn't set the new values (the doc files have
the old values itself).
Can someone help please? Urgent....
Sub Macro2()
Dim i As Integer
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("Word.Application")
With Application.FileSearch
..NewSearch
..LookIn = "C:\Test"
..SearchSubFolders = False
..Filename = "*.doc"
..Execute
For i = 1 To .FoundFiles.count
ThisFile1 = Range("B" & i + 1).Value
ThisFile2 = Range("C" & i + 1).Value
ThisFile3 = Range("D" & i + 1).Value
Set wordDoc = wordApp.Documents.Open(Filename:=.FoundFiles(i))
wordApp.ActiveDocument.BuiltinDocumentProperties("Title") = ThisFile2
wordApp.ActiveDocument.BuiltinDocumentProperties("Subject") = ThisFile3
wordApp.ActiveDocument.BuiltinDocumentProperties("Author") = ThisFile4
wordDoc.Save
wordDoc.Close
Next i
End With
End Sub