如何在Word中用VBA通过用户窗体文本框生成文件名？

你当前的问题在于txtInput是用户窗体的控件，直接在AutoNew中引用会因为作用域或窗体状态问题无法获取值，以下是两种可靠的解决方法：

方法一：使用模块级公共变量 #

这种方法简单直接，通过全局变量存储文本框值供AutoNew调用：

1. 在标准模块中声明公共变量
   打开VBA编辑器，插入一个标准模块（非窗体模块），添加以下代码：

   Public g_strCustName As String
   

2. 修改用户窗体的命令按钮代码
   更新cmdName_Click代码，将文本框值赋值给公共变量，同时修复书签被覆盖的问题：

   Private Sub cmdName_Click()
       Dim BK As String
       BK = txtInput.Text '明确获取文本框内容
       
       ' 更新书签CName1并重新添加（避免文本替换后书签丢失）
       Dim NameBK1 As Range
       Set NameBK1 = ActiveDocument.Bookmarks("CName1").Range
       NameBK1.Text = BK
       ActiveDocument.Bookmarks.Add Name:="CName1", Range:=NameBK1
       
       ' 更新书签CName2并重新添加
       Dim NameBK2 As Range
       Set NameBK2 = ActiveDocument.Bookmarks("CName2").Range
       NameBK2.Text = BK
       ActiveDocument.Bookmarks.Add Name:="CName2", Range:=NameBK2
       
       ' 将输入值存入公共变量
       g_strCustName = BK
       
       frmCustName.Hide
       Unload frmCustName '释放窗体资源
   End Sub
   

3. 修改AutoNew子程序
   调用公共变量获取值，同时添加空值检查和明确的文件格式：

   Sub AutoNew()
       ' 以模态方式显示窗体，确保用户处理完再执行后续代码
       frmCustName.Show vbModal
       
       Dim Cust As String
       Dim RA As String
       
       RA = ActiveDocument.Bookmarks("RntlAgrNO").Range.Text
       Cust = g_strCustName
       
       ' 检查输入是否为空，避免生成无效文件名
       If Trim(Cust) = "" Then
           MsgBox "请输入客户名称！", vbExclamation
           Exit Sub
       End If
       
       ' 明确指定宏启用文档格式，避免版本兼容问题
       ActiveDocument.SaveAs FileName:="C:\MyPath\" & RA & Cust & ".docm", _
                            FileFormat:=wdFormatXMLDocumentMacroEnabled
   End Sub
   

方法二：使用用户窗体公共属性 #

这种方法更符合面向对象的封装原则，通过窗体的公共属性暴露文本框值：

1. 在用户窗体模块中添加公共属性
   打开用户窗体的代码模块，添加以下属性定义：

   Public Property Get CustomerName() As String
       CustomerName = txtInput.Text
   End Property
   

2. 修改AutoNew子程序
   通过窗体对象调用公共属性获取值：

   Sub AutoNew()
       Dim frm As frmCustName
       Set frm = New frmCustName
       
       ' 模态显示窗体
       frm.Show vbModal
       
       ' 窗体关闭后获取输入值
       If Not frm.Visible Then
           Dim Cust As String
           Dim RA As String
           
           Cust = frm.CustomerName
           RA = ActiveDocument.Bookmarks("RntlAgrNO").Range.Text
           
           If Trim(Cust) = "" Then
               MsgBox "请输入客户名称！", vbExclamation
               Exit Sub
           End If
           
           ActiveDocument.SaveAs FileName:="C:\MyPath\" & RA & Cust & ".docm", _
                                FileFormat:=wdFormatXMLDocumentMacroEnabled
       End If
       
       ' 释放窗体资源
       Unload frm
       Set frm = Nothing
   End Sub
   

3. 用户窗体命令按钮代码（仅需保留核心逻辑）

   Private Sub cmdName_Click()
       Dim BK As String
       BK = txtInput.Text
       
       ' 更新并重新添加书签
       Dim NameBK1 As Range
       Set NameBK1 = ActiveDocument.Bookmarks("CName1").Range
       NameBK1.Text = BK
       ActiveDocument.Bookmarks.Add Name:="CName1", Range:=NameBK1
       
       Dim NameBK2 As Range
       Set NameBK2 = ActiveDocument.Bookmarks("CName2").Range
       NameBK2.Text = BK
       ActiveDocument.Bookmarks.Add Name:="CName2", Range:=NameBK2
       
       Me.Hide
   End Sub
   

关键注意事项 #

• 修改书签文本后，原书签会被删除，必须重新添加书签才能保留书签功能。
• 使用vbModal参数显示窗体，确保用户必须完成输入并关闭窗体后，AutoNew才会继续执行。
• 明确指定FileFormat参数，避免不同Word版本下的格式兼容问题。

内容的提问来源于stack exchange，提问作者tlw