ใช่คุณสามารถใช้รหัสฟิลด์ TIME อัปเดตแต่ละรายการ (F9) เพื่อให้แสดงเวลาปัจจุบันแล้วล็อก (Ctrl + F11) เพื่อให้ค่าไม่เปลี่ยนแปลงเมื่อคุณอัปเดตฟิลด์อื่น ๆ ในเอกสาร
หากคุณต้องการองค์ประกอบ UI บางอย่างเพื่อให้เกิดสิ่งนี้เมื่อคลิกเมาส์ฉันเพียงตบตัวอย่างที่หยาบมากเข้าด้วยกันซึ่งฉันได้แทรกตัวควบคุม ActiveX ของปุ่มคำสั่งดั้งเดิม (บนแท็บนักพัฒนาให้คลิกเครื่องมือดั้งเดิม > ปุ่มคำสั่ง ) เพิ่มช่องว่างหลังจากนั้นจากนั้นแทรกฟิลด์ TIME จากนั้นฉันเพิ่มรหัสบิตหยาบนี้ไปยังปุ่ม (คลิกขวาแล้วคลิกรหัสดู ) เพื่อย้ายโฟกัสออกจากปุ่มย้ายเคอร์เซอร์ 2 ช่องว่างไปทางขวา (ลงในช่อง) อัปเดตและล็อคฟิลด์และ จากนั้นย้ายโฟกัสออกจากสนาม:
Private Sub CommandButton1_Click()
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.Fields.Update
Selection.Fields.Locked = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
หากไม่มีใครปลดล็อคฟิลด์ด้วยตนเอง (Shift + Ctrl + F11) แต่ละปุ่มสามารถใช้งานได้เพียงครั้งเดียวทำให้เหมาะสำหรับการประทับเวลาซึ่งเป็นสิ่งที่ดูเหมือนว่าคุณจะตามหลัง มันไม่สวย แต่อาจเป็นจุดเริ่มต้นที่คุณสามารถทำงานกับสิ่งที่ซับซ้อนกว่านี้ได้
อีกทางเลือกหนึ่งเนื่องจากไม่จำเป็นต้องอัปเดตแท็บแทรกจะมีปุ่มวันที่และเวลาที่สามารถแทรกการประทับเวลาเป็นข้อความคงที่ได้ คุณสามารถบันทึกแมโครของการคลิกปุ่มและเลือกรูปแบบเวลาที่คุณต้องการ หรือเพื่อใช้การควบคุมปุ่มคำสั่งอีกครั้งคุณสามารถเพิ่มรหัสเช่นนี้ซึ่งเพิ่งเรียกใช้แทรกวันที่และเวลาเพื่อแทรกเวลาทันทีหลังจากปุ่ม:
Private Sub CommandButton1_Click()
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.InsertDateTime DateTimeFormat:="h:mm:ss am/pm", InsertAsField:=False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False
End Sub