Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
598 Views, 2 Replies

How to change value of "date" property of the rev. row in Revision box

Hi all,

 

I've been trying to change revision date property in rev. box but I'm facing error saying that it's read-only property. What I'm looking for is that whenever I run rule, last revision date should get updated to today's date.

 

I'm aware of the fact that when we add new rev. row in the rev box we get today's date but my concern is when I'm about to release that drawing after 1 week I've to change it's date manually, which I don't want to do.:face_with_rolling_eyes:

 

Please check my below code, I've been able to extract and print rev date from this but not being able to change it's value. The error I'm facing is: Line 7 : "Property 'Item' is 'read only'."

 

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oSheet As Sheet = oDoc.ActiveSheet
Dim oTable As RevisionTable = oSheet.RevisionTables.Item(1)
Dim oRows As RevisionTableRows = oTable.RevisionTableRows
Dim oRow As RevisionTableRow = oRows.Item(oRows.Count)
Dim RevDate As String
oRow.Item("DATE") = Now
RevDate = oRow.Item("DATE").text
MsgBox("Revision Date: " & RevDate)

 @Anonymous @Ktomberlin @Owner2229 @MechMachineMan