11-04-2021
07:04 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-04-2021
07:04 AM
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.
Blog: hjalte.nl - github.com