关于按模板生成word文件遇到的问题

鱼生

在B站看到了版主的一个教学视频，正好对我目前工作有些帮助，所以就进行了了借鉴

其中也做了一些改动，但也没怎么大改，可就是无法运行
我在引用中勾选了“Microsoft Word 16.0 Object Library”
而且这个word不知道为什么总是提示被锁定，右键点击属性它也不是只读文件呀？
不知道什么原因，还请各位老师指点
目标：就是将excel数据填掉word中，之前是用邮件合并解决的

test.zip (29.33 KB, 下载次数: 1)

2023-4-30 01:55 上传

点击文件名下载附件

3190496160

Sub 生成word()
Application.ScreenUpdating = False
Dim Str1, Str2, curpath, wordname, wordpathname, i, j, myPath As String '导出文件名wordname, 导出路径文件名wordpathname
Dim Nsht As FileDialog '打开保存对话框
Application.ScreenUpdating = False
Set wdapp = CreateObject("Word.Application")
i = ThisWorkbook.Path & "\设计费情况说明.docx"
wordname = "设计费情况说明"
wordpathname = "\" & wordname & "_" & Right(Sheet1.Range("B2"), Len(Sheet1.Range("B2")) - 9) & ".docx" '拼接word的名字
wdapp.Visible = True '可见
Set wdoc = wdapp.Documents.Open(i) '打开word
With wdoc.Tables(1)
    .cell(3, 2).Range.Text = Sheet1.Cells(2, 1)
    .cell(4, 2).Range.Text = Sheet1.Cells(2, 2)
    .cell(10, 2).Range.Text = Sheet1.Cells(2, 3)
    .cell(11, 2).Range.Text = Sheet1.Cells(2, 4)
End With
'导出文件
Set Nsht = Application.FileDialog(msoFileDialogFolderPicker)
With Nsht
    If .Show = -1 Then
    ' 如果单击了确定按钮，则将选取的路径保存在变量中
    myPath = .SelectedItems(1)
    End If
End With
wdoc.SaveAs Filename:=myPath & wordpathname
wdapp.Quit
Application.ScreenUpdating = True
End Sub

3190496160

3190496160

test.rar (28.86 KB, 下载次数: 11)

2023-4-30 08:08 上传

点击文件名下载附件

3190496160

wdapp.Visible = True '打开的word文档是可见的
wdapp.Visible = false'打开的word文档是不可见的，
所以，在测试代码时，最好是设置为可见，因为，一旦代码出错，word文档是可见的，你可以手动关闭它，如果设置为不可见，文件已经打开了，只是你看不到，所以，再次运行代码时，就会提示文件不占用，只能以只读方式打开