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

gcf0937

请大侠们帮帮忙，在这里谢谢啦

闻启学

楼主，上传文件 ，上面的代码 放在 那个位置

zjzyj

供参考         

txh30603866

您的代码的主要部分看起来很好，只需要将文件名指定为您需要的文件即可。在这种情况下，如果你想打开的文件名是“模板.doc”，你可以直接将 strFileName 设为 "模板.doc"。

以下是修改后的代码：

vba
Copy code
    ' 文件名必须包括“.doc”的文件扩展名，如没有则自动加上
    strFileName = "模板.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(strFileName, , False)
接下来的代码没有改变：

vba
Copy code
    ' 开始替换模板预置变量文本
    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
这样的修改将直接打开文件夹中的 "模板.doc" 文件，而不会打开选择文件的对话框。注意，这种情况下，"模板.doc" 文件需要存在于默认的工作目录中，否则你需要提供完整的文件路径。

例如，如果文件在 C:\Documents，那么 strFileName 应该是 "C:\Documents\模板.doc"。
问了下某AI

gcf0937

请大侠帮我看一下下，如何点了控件后不用打开控件去选择word模板，而是要直接打开指定的word模板后执行下步代码进行替换。

我先在此谢谢各位大侠！ AA.zip (87.57 KB, 下载次数: 2)

2023-5-19 14:02 上传

点击文件名下载附件

gcf0937

闻启学 发表于 2023-5-10 22:39
楼主，上传文件 ，上面的代码 放在 那个位置

大侠，我已上传文件，请大侠帮我解决一下下，谢谢！

gcf0937

请大侠们帮忙解决一下下，我在这里先谢谢各位大侠了！