Question

我有一个包含所有信息的Excel工作表，用于撰写电子邮件
我正在运行宏以打开一个Word模板，该模板是.Docx 文件并用Excel工作表中的数据填充书签。
当宏尝试打开Word Doc时，它说ole正在使用中，并且单词提示带有三个选项（只读，合并到本地等），并且消息说文件被我的名字锁定了。
我使用close并退出以在每个循环中关闭模板，但无法修复它。我是否缺少某些东西来正确关闭文档，以便在不使用文件的情况下正确打开文档。

For iRow = 9 to rng

if ws.cells(iRow,6).value <> Nullstring and ws.cells(iRow, 7).value = "" then

Set objword = createobject("word.application")

bsent = false

objword.visible = true

set objdoc = objword.documents.open(Templatename()) '****here i'm getting error *****

objDoc.bookmarks("applicationname").range.text = ws.cells(iRow,2).value

set olmailitem = olfolder.items.add("IPM.Note")
set olMailitem = objDoc.mailenvelope.item

with olmailitem
 .To = ws.cells(iRow,29).value
.CC = ws.cells(iRow,52).value
.Subject = "some text here"
.attachments.add (filepath)
if bsent = false then .send
.display

end with

<* if open correctly without locking, then it fill in my bookmarks first time>

objdoc.close
objword.quit

set objdoc = nothing
Set objword = nothing 

end if

Next iRow

Excel VBA宏使用Word模板撰写Outlook电子邮件，将打开的Word模板设为只读

0 个答案: