Word VBA宏无法保留特殊字符，如何修改代码兼容特殊字符？

问题根源 #

• InputBox编码限制：VBA自带的InputBox采用ANSI编码，无法正确处理Unicode特殊字符（比如波兰语的ę这类），输入时会自动替换为相近的ASCII字符。
• 文档保存格式：如果保存为旧版.doc格式（Word 97-2003），其编码容量有限，容易丢失Unicode字符，必须使用.docx这类基于XML的格式。
• 字体兼容性：所选字体必须支持目标特殊字符，否则即便输入正确，显示时也会被替换为默认字符。

修改方案 #

1. 用支持Unicode的用户窗体替换InputBox #

VBA标准InputBox不支持Unicode，换成UserForm的文本框即可，它原生支持Unicode输入：

1. 按Alt+F11打开VBA编辑器，右键点击项目 → 插入 → 用户窗体。
2. 在UserForm上添加：
   • 2个标签，分别把Caption设为“第一行：”、“第二行：”
   • 2个文本框，名称保持默认的TextBox1、TextBox2
   • 1个命令按钮，Caption设为“确认”，名称设为CommandButton1
3. 双击命令按钮，粘贴以下代码：

Private Sub CommandButton1_Click()
    Me.Hide
End Sub

2. 替换原宏代码 #

把原代码里的InputBox调用换成UserForm，同时指定Unicode兼容的保存格式：

Sub WriteEngravingText()
'WriteEngravingText Macro - 支持Unicode特殊字符
Dim shp As Shape
Dim engravingL1 As String
Dim engravingL2 As String
Dim fontName As String
Dim filePath As String

For Each shp In ActiveDocument.Shapes
    If shp.Type = msoTextBox Then
        shp.Select
        Selection.WholeStory
        
        '调用UserForm获取Unicode输入
        UserForm1.TextBox1.Value = ""
        UserForm1.TextBox2.Value = ""
        UserForm1.Show vbModal
        engravingL1 = UserForm1.TextBox1.Value
        engravingL2 = UserForm1.TextBox2.Value
        
        '插入文本到文本框
        Selection.TypeText Text:=engravingL1
        Selection.TypeParagraph
        Selection.TypeText Text:=engravingL2
        
        '设置字体（注意选择支持特殊字符的字体）
        fontName = InputBox("字体名称：", "设置字体")
        Selection.WholeStory
        Selection.Font.Name = fontName
        Selection.Font.Size = 11
        
        '保存为docx格式，确保Unicode支持
        filePath = InputBox("文件路径（需包含.docx后缀）：", "保存文档")
        '自动补充docx后缀，避免存成旧格式
        If Right(filePath, 5) <> ".docx" Then
            filePath = filePath & ".docx"
        End If
        ActiveDocument.SaveAs2 fileName:=filePath, FileFormat:=wdFormatXMLDocument
        
        Exit For
    End If
Next

'用完卸载UserForm，释放资源
Unload UserForm1
End Sub

3. 额外注意事项 #

• 选字体时优先挑支持Unicode的，比如Arial Unicode MS、Segoe UI，避免使用仅支持ASCII的字体。
• 保存路径最好手动添加.docx后缀，代码里也做了自动补充，防止存成不支持Unicode的.doc格式。

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