Insert Current Time in Textbox

Question

How do you write a code to automatically give you the current time once you enter a textbox?  This time should not change as the time does.

Thank you!

Answer 1

In that case create a vba module containing

Option Explicit

Public rngFF As Word.Range

Public fldFF As Word.FormField

Public Sub AOnEntry()

    Dim strCurrentFF As String

    With GetCurrentFF

        .Result = Time

    End With

End Sub

Public Function GetCurrentFF() As Word.FormField

Set rngFF = Selection.Range

rngFF.Expand wdParagraph

For Each fldFF In rngFF.FormFields

    Set GetCurrentFF = fldFF

    Exit For

Next

End Function

Then run the AOnEntry macro on entry to the time field(s). Set the field type to be Date with a time switch to taste.

Answer 2

While I agree with Charles about the better approach you can set a form field's properties to the Current Time to achieve much the same effect - neither requires a macro.

Answer 3

If you just want a time stamp, you could use a CreateDate field:

{ CREATEDATE /@ " hh:mm:ss" }

This will give the time the document is created.

Answer 4

I'm trying to create a log-in sheet by creating a form using MS Word.  What I would like to see is that one of the text form fields give me the current time.  The code would run a macro on entry inside text form field options.  Hope that makes sense. Thank you.

Answer 5

What sort of a text box?

Nothing much happens in Word automatically. You will have to force an action. In order to suggest a way forward we need to know what EXACTLY you are trying to do.