请教一个关于word导入导出系列-替换方式导出的问题

我看了您给的例子，很有借鉴意义，也值得好好学习

其实，我最简单的想法是：以上面提供的替换例子为例，这个是指定了具体的文件模板名称（具体代码如下：    strTemplates = CurrentProject.Path & "\word模板\采购订单模板.doc"），我想知道的是，如果word模板文件夹下有多个模块，如果通过快速选择，指定相应模板，并将数据导出到word中（比如说：点击导出按钮后，打开相应的模板文件夹，点击模板文件夹内相应的文件，就能实现数据向特定模板的导出）？

Private Sub 导出word_Click()
On Error GoTo Err_cmdExportToWord_Click
    Dim objApp          As Object 'Word.Application
    Dim objDoc          As Object 'Word.Document
    Dim objTable        As Object 'Word.Table
    Dim strTemplates    As String '模板文件路径名
    Dim strFileName     As String '将数据导出到此文件
    Dim D_Price As Currency
        
    strTemplates = CurrentProject.Path & "\word模板\采购订单模板.doc"
    
    '通过文件对话框生成另存为文件名
    With FileDialog(2)  'msoFileDialogSaveAs
        .InitialFileName = CurrentProject.Path & "\" & Me.订单编号 & "-采购订单.doc"
        If .Show Then strFileName = .SelectedItems(1)
    End With
    
    '如果对话框被取消，则变量没有被赋值，退出过程
    If strFileName = "" Then Exit Sub
    
    '文件名必须包括“.doc”的文件扩展名，如没有则自动加上
    If Not strFileName Like "*.doc" Then strFileName = strFileName & ".doc"