Word VBA结合If语句与InputBox实现文件按用户输入自动命名保存问题

原代码问题梳理 #

• 过程级变量UserName每次点击按钮都会初始化清空，导致逻辑永远走首次创建分支，无法触发编辑分支
• 首次创建的文件名规则中多了多余的_i字符，不符合需求要求的_Besprechungsnotizen_00_格式
• 编辑分支没有保留原有文件名中的创建人信息，直接用新输入的用户名覆盖，无法实现姓名追加的要求
• 未做输入空值判断，用户点击输入框取消时会生成非法文件名
• 版本号仅支持1-9的个位数，超过9会出现格式异常（如版本10会变成010不符合双位规则）
• 路径写法混用正反斜杠，Windows环境下网络路径格式不规范

修正后完整代码 #

' 定义模块级变量，保存首次输入的创建人姓名，避免每次点击重置
Dim UserName As String

Private Sub CommandButton3_Click()
    Dim FilePath As String
    Dim MyDate As String
    Dim BaseName As String
    Dim EditName As String
    Dim Version As String
    Dim VersionStr As String
    
    ' 固定存储路径，统一写在开头避免重复定义
    FilePath = "\\SRVDC\Arbeitsordner\Intern\Meetings\Entwürfe\"
    MyDate = Format(Date, "YYYYMMDD")
    BaseName = "_Besprechungsnotizen_"
    
    If UserName = "" Then
        ' 首次创建分支
        UserName = InputBox("Wer erstellt? (Name in Firmenkurzform)")
        ' 判断用户是否取消输入
        If UserName = "" Then Exit Sub
        ' 拼接首次保存文件名
        ActiveDocument.SaveAs2 FilePath & MyDate & BaseName & "00_" & UserName
    Else
        ' 编辑分支
        EditName = InputBox("Wer bearbeitet? (Name in Firmenkurzform)")
        If EditName = "" Then Exit Sub
        Version = InputBox("Welche Version? (in ganzen Zahlen)")
        If Version = "" Or Not IsNumeric(Version) Then Exit Sub
        ' 版本号转双位格式，支持0-99的版本号
        VersionStr = Format(CInt(Version), "00")
        ' 拼接新文件名，追加编辑人姓名
        ActiveDocument.SaveAs2 FilePath & MyDate & BaseName & VersionStr & "_" & UserName & EditName
    End If
End Sub

代码说明 #

• 将UserName定义为模块级变量，只要当前Word文档不关闭，就会保留首次输入的创建人信息，正常触发编辑分支逻辑
• 统一修正了文件名前缀规则，删除了原代码多余的_i字符，完全匹配需求的命名格式
• 编辑分支会在原有创建人姓名后追加新输入的编辑人姓名，符合示例要求
• 增加了输入合法性校验，避免用户取消输入或输入非数字版本号时生成错误文件
• 版本号使用Format函数统一转成双位格式，10以上版本也能正常显示为10、11等格式
• 修正了路径的斜杠写法，Windows网络路径统一使用反斜杠即可，无需混合正反斜杠

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