Word VBA to find difference between two clock times and then also subtract additional minutes

Guessed · #2 05-27-2021, 01:02 AM

Hmm, perhaps this will work for you.
1. Add two Date Picker Content Controls to your document. Give one the title "In" and the other one the title "Out". Format both so that they only show the time (scroll to the bottom of the format options and maybe pick h:mm:ss am/pm).
2. Add a third Plain Text Content Control and give it the title "Delta".
3. Then add the following macro to your ThisDocument module

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Dim tIn As Date, tOut As Date, tDelta As Date
  tIn = ActiveDocument.SelectContentControlsByTitle("In")(1).Range.Text
  tOut = ActiveDocument.SelectContentControlsByTitle("Out")(1).Range.Text
  tDelta = tOut - tIn
  
  ActiveDocument.SelectContentControlsByTitle("Delta")(1).Range.Text = Format(tDelta, "h:mm:ss")
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Microsoft 365 Word - Subtract Cells help	SekiTimewalker	Word Tables	2	05-11-2020 04:02 PM
How do you use the find and replace tool to find dates and times in Excel 2013?	Jules90	Excel	3	04-14-2020 07:40 PM
when using find in vba several times it stops working	Salah	Word VBA	1	03-02-2017 03:02 AM
Automatic find difference between two data	Kuannygohcheetatt	Excel	2	02-10-2015 09:02 AM
Microsoft Word Clock	Rude Awakening	Word	2	10-16-2013 07:14 AM