VBA自动替换字符的问题。

windy_dell

求助各位大佬，我现在弄了个邮件合并，然后通过VBA按照EXCEL中制定字段来批量存储WORD文档。但是现在遇到问题是对应字段中包含/导致无法保存。怎样把/替换成_后再保存文档。现在的代码如下，myname = .DataFields(3).Value为EXCEL中对应字段。



Sub myMailMerge()

Dim myMerge As MailMerge, i As Integer, myname As String
Application.ScreenUpdating = False
Set myMerge = ActiveDocument.MailMerge
With myMerge.DataSource
    If .Parent.State = wdMainAndDataSource Then
        .ActiveRecord = wdFirstRecord
        For i = 1 To .RecordCount
            .FirstRecord = i
            .LastRecord = i
            .Parent.Destination = wdSendToNewDocument
            
            myname = .DataFields(3).Value
            .ActiveRecord = wdNextRecord
            .Parent.Execute
            With ActiveDocument
   
                .SaveAs "C:\Users\lenovo\Desktop\导出文件\" & myname & ".doc"
                .Close
            End With
        Next
    End If
End With
Application.ScreenUpdating = True
End Sub

蜀中草莽

myname =Replace( .DataFields(3).Value,chr(47),"_")    试一下

windy_dell

蜀中草莽 发表于 2022-8-5 17:44
myname =Replace( .DataFields(3).Value,chr(47),"_")    试一下

问题已经解决，多谢您的指点与帮助，另外想请教您一下，我现在是用按钮来运行的宏代码，怎么能另存为的同时删除宏按钮。我尝试这样写可是无法运行，盼您解惑
                With Application.VBE.ActiveVBProject.VBComponents
                    .Remove .Item(vbc.Name)
                  End With