VBA Access to File>Properties>Comment

[strorg]

I would like to read / write the File>Properties>Comment field via VBA code. A friend at work gave me his bit of code, but I don't have it with me.

Thanks...Tom

 

[XL-Dennis]

Tom,

Here is a procedure in where You find the wanted property:

<PRE>


Private Sub<FONT color=blue> Workbook</FONT>_BeforePrint(Cancel<FONT color=blue> As</FONT> <FONT color=blue>Boolean</FONT>)

<FONT color=blue>Dim </FONT>dSkapad<FONT color=blue> As</FONT><FONT color=blue> Date</FONT>

<FONT color=blue>Dim </FONT>dSparadSenast<FONT color=blue> As</FONT><FONT color=blue> Date</FONT>

<FONT color=blue>Dim </FONT>sForfattare<FONT color=blue> As</FONT><FONT color=blue> String</FONT>

<FONT color=blue>Dim </FONT>sForetag<FONT color=blue> As</FONT><FONT color=blue> String</FONT>

<FONT color=blue>Dim </FONT>sHyperLank<FONT color=blue> As</FONT><FONT color=blue> String</FONT>

<FONT color=blue>Dim </FONT>sKommentarer<FONT color=blue> As</FONT><FONT color=blue> String</FONT>



dSkapad = ThisWorkbook.BuiltinDocumentProperties("Creation<FONT color=blue> Date</FONT>")

dSparadSenast = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")

sForfattare = ThisWorkbook.BuiltinDocumentProperties("Author")

sForetag = ThisWorkbook.BuiltinDocumentProperties("Company")

sHyperLank = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base")

sKommentarer = ThisWorkbook.BuiltinDocumentProperties("Comments")



<FONT color=blue>With </FONT>ActiveSheet.PageSetup

.LeftHeader = "Skapad: " & dSkapad

.RightHeader = "Skapad av: " & sForfattare & "/" & sForetag

.LeftFooter = "Sparad senast: " & dSparadSenast

.RightFooter = sKommentarer & vbCr & sHyperLank

<FONT color=blue>End With</FONT>



<FONT color=blue>End Sub</FONT>


</PRE>

It´s in swedish and I´m too lazy to convert it to chines :wink:

Kind regards,
Dennis

 

[strorg]

Thanks much!

Regards...Tom