word文件样式【导入】功能，求帮助！

miarua

代码错误如图，求帮助，谢谢！

Sub 导入样式()
  d.Application.OrganizerCopy Source:=App.Path & "\模板样式.docx", _
        Destination:=ActiveDocument, Name:="正文-HNCIC", _
        object:=wdOrganizerObjectStyles
        d.Application.OrganizerCopy Source:=App.Path & "\模板样式.docx", _
        Destination:=ActiveDocument, Name:="表格文字-HNCIC", _
        object:=wdOrganizerObjectStyles
    d.Application.OrganizerCopy Source:=App.Path & "\模板样式.docx", _
        Destination:=ActiveDocument, Name:="标题1-HNCIC", _
        object:=wdOrganizerObjectStyles
    d.Application.OrganizerCopy Source:=App.Path & "\模板样式.docx", _
        Destination:=ActiveDocument, Name:="标题2-HNCIC", _
        object:=wdOrganizerObjectStyles
    d.Application.OrganizerCopy Source:=App.Path & "\模板样式.docx", _
        Destination:=ActiveDocument, Name:="标题3-HNCIC", _
        object:=wdOrganizerObjectStyles
    d.Application.OrganizerCopy Source:="D:\模板样式.docx", _
        Destination:=ActiveDocument, Name:="TOC1-HNCIC", _
        object:=wdOrganizerObjectStyles
    d.Application.OrganizerCopy Source:="D:\模板样式.docx", _
        Destination:=ActiveDocument, Name:="TOC2-HNCIC", _
        object:=wdOrganizerObjectStyles
    MsgBox "导入样式完成！"
End Sub

betelehe

路径错了，直接录制就可以了