VBA按规则格式化文本框输入并更新Word书签的代码问题

原代码存在的核心问题 #

• 控件属性取值错误：文本框（TextBox）的输入内容存储在Value/Text属性中，Caption是标签、按钮类控件的属性，原代码用.Caption完全无法读取到用户输入的姓名内容。
• 变量引用错误：MyStrFullname是定义的普通字符串变量，不是窗体控件，不能加Me.前缀，也不存在.Caption属性，直接传变量即可。
• 缺少异常处理：没有判断文本框是否为空、书签是否存在，容易触发运行时错误。
• 变量未规范声明：中间拼接用的几个字符串变量没有提前定义，容易出现拼写错误导致的逻辑异常。

修正后完整代码 #

' 建议在窗体代码模块最顶部添加该行，强制所有变量必须声明，减少低级错误
Option Explicit

Private Sub OptionButton1_Click()
    Dim VornameStr As String
    Dim NachnameStr As String
    Dim MyStrVorname As String
    Dim MyStrNachname As String
    Dim MyStrFullname As String
    
    ' 读取文本框输入，自动去除首尾空格、处理空值
    VornameStr = Trim(Nz(Me.TextVorname.Value, ""))
    NachnameStr = Trim(Nz(Me.TextNachname.Value, ""))
    
    ' 输入合法性校验
    If Len(VornameStr) < 2 Or Len(NachnameStr) < 2 Then
        MsgBox "请输入不少于2个字符的名和姓", vbExclamation
        Exit Sub
    End If
    
    ' 按规则截取、拼接字符串
    MyStrVorname = Left(VornameStr, 2)
    MyStrNachname = Left(NachnameStr, 2)
    MyStrFullname = MyStrVorname & "." & MyStrNachname & "_2022"
    
    ' 调用书签更新方法
    Call UpdateBookmark("test1", MyStrFullname)
End Sub

' 通用书签更新过程（如果你已经写过该过程可直接替换/忽略）
Sub UpdateBookmark(BookmarkName As String, Content As String)
    Dim bmRange As Range
    If Not ActiveDocument.Bookmarks.Exists(BookmarkName) Then
        MsgBox "书签【" & BookmarkName & "】不存在，请先创建", vbExclamation
        Exit Sub
    End If
    Set bmRange = ActiveDocument.Bookmarks(BookmarkName).Range
    bmRange.Text = Content
    ' 重新写入书签，避免替换内容后书签被Word自动删除
    ActiveDocument.Bookmarks.Add Name:=BookmarkName, Range:=bmRange
End Sub

效果验证 #

在TextVorname输入Markus、TextNachname输入Neumann时，书签test1位置会正确生成Ma.Ne_2022格式的文本，完全匹配需求。

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