我正在使用一个macros做一个邮件合并,我怎样才能保持中文数字在字输出?

我使用了一个从计算器的解决scheme,通过macros进行邮件合并,它工作正常,但有一些中文字符数字在邮件合并后成为阿拉伯数字。 通常情况下,如果我手动进行邮件合并,我将它保存为一个.csv,汉字编号仍然会显示在合并的文档中。 但是,我不能在.csv中保存一个marcos,所以如果有人能提供一个macros解决scheme,这样中文字符号就可以显示在合并的word文档中,那将是非常好的。

我使用以下代码: 执行Word邮件合并

Sub RunMerge() Dim wd As Object Dim wdocSource As Object Dim strWorkbookName As String On Error Resume Next Set wd = GetObject(, "Word.Application") If wd Is Nothing Then Set wd = CreateObject("Word.Application") End If On Error GoTo 0 Set wdocSource = wd.Documents.Open("c:\test\WordMerge.docx") strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name wdocSource.MailMerge.MainDocumentType = wdFormLetters wdocSource.MailMerge.OpenDataSource _ Name:=strWorkbookName, _ AddToRecentFiles:=False, _ Revert:=False, _ Format:=wdOpenFormatAuto, _ Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _ SQLStatement:="SELECT * FROM `Sheet1$`" With wdocSource.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With wd.Visible = True wdocSource.Close SaveChanges:=False Set wdocSource = Nothing Set wd = Nothing End Sub 

请尝试将系统语言更改为中文。 有一次,我也因为日本人的性格而苦恼。 它帮助了我,也许这也可以帮助你。