2

スタックオーバーフローのソリューションを使用して、マクロを介して差し込み印刷を行いました。正常に動作しますが、差し込み印刷後にアラビア数字になる漢字番号がいくつかあります。通常、差し込み印刷を手動で行う場合、それを .csv として保存すると、差し込み文書に漢字の数字が表示されます。ただし、マルコスを .csv に保存することはできません。したがって、マージされた Word ドキュメントに漢字の数字が表示されるように、誰かがマクロの解決策を提供できれば幸いです。

私はこのコードを次から使用します: Word Mail Mergeの実​​行

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
4

1 に答える 1

0

システム言語を中国語に変更してお試しください。かつて、私もこのような日本語の性格の問題に苦しんでいました。それは私を助けました、これもあなたを助けるかもしれません。

于 2013-12-24T10:03:02.993 に答える