在单词中创建另存为和发送命令按钮

Question

我正在尝试通过创建一个具有save as / send命令按钮的表单来最小化每日任务。在搜索类似帖子后，我找到了以下代码：

如何定义“TagNum”，“日期”和“NTID”？

strTagNum = ActiveDocument.SelectContentControlsByTitle("TagNum")(1).Range.Text
strNTID = ActiveDocument.SelectContentControlsByTitle("NTID")(1).Range.Text
strDate = ActiveDocument.SelectContentControlsByTitle("Date")(1).Range.Text
Dim strFilename As String
strFilename = strTagNum & "_" & strNTID & "_" & Format(strDate, "ddmmyyyy") & ".docx"
Email_Send_To = strNTID & "@example.com"