Finding Tags inside of VBA coding.

[jexline]

I am trying to use a variable which will take the (string) value of a cell and update the "tags" on a SaveAs routine.

I have been looking everywhere for a way to reference the "tags" field, under file, save as, but I cannot find it any references to it. I must be calling the field by the wrong name because all my searches are coming up with other things.

I think it may be a part of the workbook properties but have not located it there either.

If anyone knows what the field is called and how I can reference it (with VBA code) I would really appreciate it!

Thanks,

John

 

[xld]

What do you mean by 'tag'?

 

[jexline]

Thanks for your quick response. I am in Excel 2007. When I click the office button, then select "Save As" and Excel workbook, a window pops up (where to save the file). In the lower right corner of that window there is a field named "Tags:" and has "add a tag" in blue. When you click on add a tag, the field opens and you can type searchable tags.

That is the field that I would like to populate, with a variable.

Sorry I don't know how to drop a screen print in here.

 

[pgc01]

Hi jexline
Welcome to the board

Try:

ActiveWorkbook.Keywords = "MyTag1"

for more than one, use semicolons as separator

ActiveWorkbook.Keywords = "MyTag1;MyTag2"

 

[jexline]

Thanks PGC. I will try this. If I was going to stuff the contents of MyTag1 with the contents of a variable (say mTag1), how would the argument look?

Set ActiveWorkbook.Keywords = "MyTag1" as mTag1

 

[pgc01]

If you have a string variable mTag1, use

ActiveWorkbook.Keywords = mTag1

 

[jexline]

I have since found the Document Information Panel and have gotten the following script to work. (now I just can't get Category or Status to reference, but I should be good to go. Thanks for the help!

ActiveWorkbook.Author = "John Exline"
ActiveWorkbook.Title = "Key Collection Table"
ActiveWorkbook.Subject = "Accounts Receivable"
ActiveWorkbook.Keywords = "AR;Collections;Calls"
ActiveWorkbook.Comments = "This is totally a test"

 

[pgc01]

now I just can't get Category or Status to reference

They are in the BuiltinDocumentProperties with the rest.

Try:

With ActiveWorkbook.BuiltinDocumentProperties
    .Item("Author") = "John Exline"
    .Item("Title") = "Key Collection Table"
    .Item("Subject") = "Accounts Receivable"
    .Item("Keywords") = "AR;Collections;Calls"
    .Item("Category") = "Some Category"
    .Item("Content Status") = "Some Status"
    .Item("Comments") = "This is totally a test"
End With

 

[jexline]

Perfect! Appreciate the guidance.

jex