Automatic Timestamp Table Column

alexnooten · #1 09-18-2017, 12:56 PM

I have to scribe an audit for a medical device company in two days and am trying to format a table with three columns and multiple rows to catalog when each member is speaking. The first column is Time, second column the initials of the individual making the comments, and third the comments themselves. I know that I can manually time stamp each comment using the Shift+Alt+T command however this gets extremely cumbersome especially when multiple people are speaking quickly. I'd rather be more focused on typing the content of their speech rather than when it is said. Is there anyway to automatically time stamp each row when I begin entering information in the column(s) adjacent to them? I would know how to do this in excel, but in word I feel like I am restricted. I appreciate any help I can get.

Best,
Alexander M. Nootens

macropod · #2 09-18-2017, 02:44 PM

Doing this would entail writing an application event procedure, for which see: https://wordmvp.com/FAQs/MacrosVBA/AppClassEvents.htm
and adding that to your document's template.

Once you've done the basic setup, you'd insert the following code into the class module:

Code:

Private Sub oApp_WindowSelectionChange(ByVal Sel As Selection)
If Sel.Information(wdWithInTable) <> True Then Exit Sub
If Sel.Tables(1).Range <> ActiveDocument.Tables(1).Range Then Exit Sub
Dim r As Long, c As Long
Application.ScreenUpdating = False
With Sel
  r = .Cells(1).RowIndex
  With .Tables(1)
    If Len(.Cell(r, 1).Range.Text) > 2 Then Exit Sub
    If r > 1 Then
      If Len(.Cell(r - 1, 1).Range.Text) = 2 Then Exit Sub
      If Len(.Cell(r - 1, 2).Range.Text) = 2 Then Exit Sub
    End If
    .Cell(r, 1).Range.Text = Format(Now(), "hh:mm:ss")
  End With
End With
Application.ScreenUpdating = True
End Sub

As coded, the macro will only insert the timestamp into the first column of the first table in the document. After the first row, it triggers only if the first two cells of the preceding row have content.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is it possible to put a formula in a table column header to define the name of the column?	JacquesW	Excel	3	05-08-2017 08:00 AM
Automatic, updated summary table in the end of document	tilde85	Word	4	02-14-2017 06:37 AM
Automatic word updating in table	barnel	Word Tables	2	06-07-2015 04:04 AM
Problem with automatic table of contents	pogonoforysci1	Word	14	04-14-2013 10:39 PM
Formatting automatic table of contents	1234msaps	Word	3	10-31-2012 02:26 PM