如何使用VBA 操作Word日期控件、数值调节钮控件，设置Word域？

cncalyl

附件是一个“接待函”Word模板，设有一个日期控件用以设置起始日期，还用一个输入框输入公务天数，其旁有个以0.5为步长的数值调节控件。确定起始日期后再加上公务天数后再Word中使用域计算出结束日期。大部分功能都实现了，就是如下功能未实现，请大侠们出手相助：
1.新建文档时用VBA将将日期控件初始值设为3天后的日期，由使用者选择日期后，再将此处日期用VBA设置为StartDate域。
2.判断输入框的内容是否合法。不知道在哪个事件中进行校验，一不小心就进入死循环、崩溃。输入框内容合法或数值调节钮调整数据后，用VBA将nDays域设为公务天数，并更新其后的EndDate域及正文中相关的域。

QQ214189912

1. <div class="blockcode"><blockquote>Private Sub Document_Open()'删除以前起始日期控件，再画一个试试
   
2.     With Word.ActiveDocument.ContentControls(1)
   
3.         If .Type = 6 Then
   
4.             .Range.Text = DateAdd("d", Val(TextBox1.Text), .Range.Text)
   
5.         End If
   
6.     End With
   
7. End Sub
   
8. 
   
9. Private Sub SpinButton1_SpinDown()
   
10.     TextBox1.Text = Val(TextBox1.Text) + 0.5
    
11. End Sub
    
12. 
    
13. Private Sub SpinButton1_SpinUp()
    
14.     TextBox1.Text = Val(TextBox1.Text) - 0.5
    
15. End Sub
    
16. 
    
17. Private Sub TextBox1_Change()
    
18.     If Not IsNumeric(TextBox1.Text) Then
    
19.         MsgBox "当前输入非数字，重新输入"
    
20.     End If
    
21. End Sub

复制代码

cncalyl

QQ214189912 发表于 2018-4-1 18:39

感谢热心回复。我是想将日期控件设置为文档生成日期后推两天，并在日期控件中显示，让使用者再从日期控件选择具体日期，选定后，将此日期用VBA设置为Word的StartDate域（相当于Word的变量）。
公务天数，通过输入框输入天数，或通过数值调节控件以0.5天步长设置输入框输入天数，天数确定后，也要将天数通过VBA设置为Word的nDays域（相当于Word的变量）。
希望得到你的帮助。谢谢！