Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 09-18-2017, 12:56 PM
alexnooten alexnooten is offline Automatic Timestamp Table Column Windows 7 64bit Automatic Timestamp Table Column Office 2016
Novice
Automatic Timestamp Table Column
 
Join Date: Sep 2017
Posts: 1
alexnooten is on a distinguished road
Exclamation Automatic Timestamp Table Column


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
Reply With Quote
  #2  
Old 09-18-2017, 02:44 PM
macropod's Avatar
macropod macropod is offline Automatic Timestamp Table Column Windows 7 64bit Automatic Timestamp Table Column Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply

Thread Tools
Display Modes


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 Timestamp Table Column Automatic, updated summary table in the end of document tilde85 Word 4 02-14-2017 06:37 AM
Automatic Timestamp Table Column Automatic word updating in table barnel Word Tables 2 06-07-2015 04:04 AM
Automatic Timestamp Table Column Problem with automatic table of contents pogonoforysci1 Word 14 04-14-2013 10:39 PM
Automatic Timestamp Table Column Formatting automatic table of contents 1234msaps Word 3 10-31-2012 02:26 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:45 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft