VBA控件直接打开相对路径下的WORD文件

gcf0937

'文件名必须包括“.doc”的文件扩展名，如没有则自动加上
    If Not strFileName Like "*.doc" Then strFileName = strFileName & ".doc"
    '如果文件已存在，则删除已有文件
    If Dir(strFileName) <> "" Then Kill strFileName
    '打开模板文件
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objApp.Documents.Open(strTemplates, , False)

各位大侠，以上代码是找到包括“.doc”的文扩展名，打开选择文件的对话框，我要求以上代杩不要打开选择文件的对话框,而是直接打开当前文件夹路指定的word文件（如：文件名为“模板.doc")后执行下一步的代码,请大侠们指教帮忙改一下下上面的代码。
下一步代码：
'开始替换模板预置变量文本
   With objApp.Application.Selection
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        With .Find
             .Text = "{$责停编号}"
             .Replacement.Text = side_A
        End With
        .Find.Execute Replace:=wdReplaceAll

        With .Find
             .Text = "{$单位名称}"
             .Replacement.Text = side_B
        End With
        .Find.Execute Replace:=wdReplaceAll

       With .Find
            .Text = "{$驾驶员姓名}"
            .Replacement.Text = side_C
       End With
       .Find.Execute Replace:=wdReplaceAll

limonet

  Set objDoc = objApp.Documents.Open(Filename:=模板.doc.Path)

gcf0937

limonet 发表于 2023-5-8 15:18
Set objDoc = objApp.Documents.Open(Filename:=模板.doc.Path)

大侠，你这段代码无法执行

zjzyj

    Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objApp.Documents.Open(ThisWorkbook.Path & "\模板.doc")

gcf0937

zjzyj 发表于 2023-5-8 19:31
Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objAp ...

大侠，还是不能直接打开“模板.doc”文件

杨建营

Set wrd = CreateObject("Word.Application")
    wrd.Visible = True
    wrd.documents.Open FileName:="文件地址\.模板.doc"
    Set wrd = Nothing

gcf0937

zjzyj 发表于 2023-5-8 19:31
Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objAp ...

Private Sub CommandButton2_Click()
    Dim objApp As Object 'Word.Application
    Dim objDoc As Object 'Word.Document
    Dim strTemplates As String '模板文件路径名
    Dim strFileName As String '将数据导出到此文件
    Dim i As Integer
    Dim side_A As String
    Dim side_B As String
    Dim side_C As String
    i = ActiveCell.Row
    side_A = CStr(Format(Cells(i, 1), "000"))
    side_B = Cells(i, 2)
    side_C = Cells(i, 6)
    side_d = Cells(i, 15)
    If Cells(i, 16) <> "" Then
             side_E = "（" & Cells(i, 16) & "）"
        End If
    side_F = Cells(i, 17)
    If Cells(i, 18) <> "" Then
            side_G = "/"
        End If
    side_H = Cells(i, 18)
    If Cells(i, 19) <> "" Then
             side_i = "（" & Cells(i, 19) & "）"
        End If
    side_J = Cells(i, 20)
    side_K = Cells(i, 30)
    side_L = Cells(i, 31)
    side_M = Cells(i, 32)
    side_N = Cells(i, 33)
   
    With Application.FileDialog(msoFileDialogFilePicker)
         .Filters.Add "word文件", "*.doc*", 1
         .AllowMultiSelect = False
         If .Show Then strTemplates = .SelectedItems(1) Else Exit Sub
    End With
   
  '通过文件对话框生成另存为文件名
    With Application.FileDialog(msoFileDialogSaveAs)
        '.InitialFileName = CurrentProject.Path & "\" & side_d & ".doc"
        .InitialFileName = side_d & ".doc"
        If .Show Then strFileName = .SelectedItems(1) Else Exit Sub
    End With

    '文件名必须包括“.doc”的文件扩展名，如没有则自动加上
    If Not strFileName Like "*.doc" Then strFileName = strFileName & ".doc"
    '如果文件已存在，则删除已有文件
    If Dir(strFileName) <> "" Then Kill strFileName
    '打开模板文件
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objApp.Documents.Open(strTemplates, , False)


请大侠帮我看一下下，这里帮我改一下下看

zjzyj

gcf0937 发表于 2023-5-8 21:32
大侠，还是不能直接打开“模板.doc”文件

供参考      

杨建营

请楼主参考。

gcf0937

杨建营 发表于 2023-5-9 07:47
请楼主参考。

大侠，你这个代码是提取WORD文件中的字符，把打开文件的代码放到我的代码无法执法