嘿，我懂你的困扰——Excel里明明设置了千位分隔符的数字，通过VBA导入Word后就变成了纯数字格式，对吧？这是因为你当前代码里直接引用单元格对象（比如ActiveSheet.Range("C2")）时，VBA默认取的是单元格的原始数值，而不是Excel界面上显示的格式化文本。下面给你几种解决方法，还会修正你代码里的小语法问题：

方法1：直接获取单元格显示的格式化文本 #

Excel的Range.Text属性可以返回单元格界面上显示的完整文本（包括格式），把你代码里的TypeText部分改成下面这样就行：

Sub ExcelToWord() ' 修正子过程名称，不能包含空格
 Dim wrdApp As Word.Application
 Dim wrdDoc As Word.Document
 Dim i As Integer
 Set wrdApp = CreateObject("Word.Application")
 wrdApp.Visible = True
 Set wrdDoc = wrdApp.Documents.Open("C:\Folder\qsn.docm")
 With wrdDoc
     ' 查找并替换AL1
     .Application.Selection.Find.Text = "AL1"
     .Application.Selection.Find.Execute
     ' 使用.Text获取带格式的文本
     .Application.Selection.TypeText ActiveSheet.Range("C2").Text
     
     ' 查找并替换AL2
     .Application.Selection.Find.Text = "AL2"
     .Application.Selection.Find.Execute
     ' 同样使用.Text
     .Application.Selection.TypeText ActiveSheet.Range("D2").Text
     
     ' 修正语法：移除多余的End If
     If Dir("C:\Folder\QSN.doc") <> "" Then Kill "C:\Folder\QSN.doc"
     .SaveAs "C:\Folder\QSN.doc" ' 移除多余的括号
     .Close ' 关闭文档
 End With
 wrdApp.Quit ' 关闭Word
 Set wrdDoc = Nothing
 Set wrdApp = Nothing
End Sub

方法2：手动指定千位分隔符格式 #

如果你不想依赖Excel单元格的格式设置，也可以用Format函数手动给数值添加千位分隔符，灵活性更高：

' 整数类型的数字，用这个格式
.Application.Selection.TypeText Format(ActiveSheet.Range("C2").Value, "#,##0")

' 如果是带小数的数字，用这个格式保留两位小数
.Application.Selection.TypeText Format(ActiveSheet.Range("C2").Value, "#,##0.00")

为什么原来的代码不行？ #

当你直接写ActiveSheet.Range("C2")时，VBA会自动调用它的Value属性，也就是单元格存储的原始数字（比如10000），而不是Excel格式化后的字符串（"10,000"）。所以必须明确获取格式化后的文本，或者手动格式化数值才能让千位分隔符同步到Word里。

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