Populating Document property values using macro

[Guest]

Hello everyone,

I have a question which has been giving me quite a bit of trouble this
morning. First off I need to populate the "metadata" (document properties)
for several workbooks and decided that a macro would be the best approach
considering we already have one for editing and formating data from other
workbooks into a new one(this is the one that needs the "metadata"). My code
is as follows:

Sub T00()
' StatSumm Macro

ChDir "file path"

Workbooks.Open Filename:="file path", UpdateLinks:=0

Range("A1:J65").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Range("K:M").Delete

Range("A1").Select
ActiveWorkbook.Title = "Blah"
ActiveWorkbook.(insert others as needed) = "blah blah blah"
ActiveWorkbook.SaveAs Filename:="file path", FileFormat:=xlNormal

ActiveWorkbook.PublishObjects.Add(xlSourcePrintArea, _
"\\S90x02\res\BULLETIN\FY06\Bull0605\Web\t00.htm", "summary", "", _
xlHtmlStatic, "t00", "").Publish (True)

Workbooks("t00.xls").Close SaveChanges:=False


End Sub

The problem I have is that my method for populating those values doesn't
work for Company or Category can some one please help?

Mike DeWinter

 

[Tom Ogilvy]

only two or three can be set with that approach. For the others you need:

http://www.cpearson.com/excel/docprop.htm