Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
JelteDeJong
in reply to: pete.dehaan

Is this what you are looking for?

Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet

For Each revTab As RevisionTable In sheet.RevisionTables
    Dim firstRow As RevisionTableRow = revTab.RevisionTableRows.Item(1)

    ' You might need to change the (Column) numbers here.
    Dim revDate As RevisionTableCell = firstRow.Item(3)
    Dim initials As RevisionTableCell = firstRow.Item(2)

    Dim userName As String = ThisApplication.GeneralOptions.UserName

    If (String.IsNullOrEmpty(revDate.Text)) Then
        revDate.Text = DateTime.Now.ToString("yyyy-MM-dd")
    End If
    If (String.IsNullOrEmpty(initials.Text)) Then
        initials.Text = userName
    End If
Next

Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

EESignature


Blog: hjalte.nl - github.com