"Comments" Loction under properties? Using VBA

[Hatcheda]

ActiveWorkbook.BuiltinDocumentProperties("comments") is the location for comments in Excel

Can anyone tell me the location in Word?

 

[Norie]

Change ActiveWorkbook to ActiveDocument.

 

[Hatcheda]

Thank you! Is there a before_save option in word?

 

[Norie]

No.

The standard events for a document are Open, New and Close.

And I don't mean to be rude but last time I looked this was an Excel forum.

 

[Hatcheda]

I am building a properties macro for Excel and Word. The Final step needed before changing this to a before save event will be to check if the first user applied a ";" to the end of their Comment.

Currently it will check if a comment is there an apply 'updated' if it is, if not, it will apply 'created' -both function correctly. The only other consideration will be that someone else created the document and didn't apply a ';' -which is required at the end of every entry. To do this I will need a check that pulls the last character of the current entry

Please help with this if you can.

Sub PropertiesProject()
Dim Username: Dim Time, CurrentComments As String
Time = Format(Now(), "Short Date")
Username = Environ("USERNAME")
CurrentComments = ActiveDocument.BuiltInDocumentProperties("comments").Value
If CurrentComments = "" Then
ActiveDocument.BuiltInDocumentProperties("comments") = Time & " Created By " & Username & ";"
Else
ActiveDocument.BuiltInDocumentProperties("comments") = CurrentComments & " " & Time & " Updated By " & Username & ";"
End If
End Sub

I believe it should looks like this. -Of course I will need the formula for the last digit

Sub PropertiesProject()
Dim Username: Dim Time, CurrentComments As String
Time = Format(Now(), "Short Date")
Username = Environ("USERNAME")
CurrentComments = ActiveDocument.BuiltInDocumentProperties("comments").Value
If CurrentComments = "" Then
ActiveDocument.BuiltInDocumentProperties("comments") = Time & " Created By " & Username & ";"
Else

If (Last Digit) <> ";" Then
ActiveDocument.BuiltInDocumentProperties("comments") = CurrentComments & "; " & Time & " Created By " & Username & ";"
Else

ActiveDocument.BuiltInDocumentProperties("comments") = CurrentComments & " " & Time & " Updated By " & Username & ";"
End If: End If
End Sub

 

[Norie]

Well if you want to get the last character of any string use this.

LastChar = Right(MyString, 1)

 

[Hatcheda]

Thank you! Works well!

Sub PropertiesProject()
Dim Username: Dim Time, CurrentComments, LastChar As String
CurrentComments = ActiveWorkbook.BuiltinDocumentProperties("comments").Value
LastChar = Right(CurrentComments, 1)
Time = Format(Now(), "Short Date")
Username = Environ("USERNAME")
If CurrentComments = "" Then
ActiveWorkbook.BuiltinDocumentProperties("comments") = Time & " Created By " & Username & ";"
Else
If LastChar <> ";" Then
ActiveWorkbook.BuiltinDocumentProperties("comments") = CurrentComments & "; " & Time & " Updated By " & Username & ";"
Else
ActiveWorkbook.BuiltinDocumentProperties("comments") = CurrentComments & " " & Time & " Updated By " & Username & ";"
End If: End If
End Sub