我来帮你排查这段VBA代码里调用.Application.Quit False时Word崩溃的问题，常见的触发原因和对应的修复方案如下：

可能的故障原因 #

• 对象引用关联混乱：你通过嵌入OLE对象获取的objWord是Word文档实例，直接链式调用.Application.Quit时，Excel可能还持有对OLE对象的活跃引用，导致Word进程无法正常释放资源，触发崩溃。
• Undo操作与退出的时序冲突：在执行.Undo后立刻调用退出，Undo操作可能还在后台同步文档状态，此时强制退出会干扰Word的内部状态管理，引发错误。
• 对象释放顺序错误：退出Word应用前，你仍持有objWord等文档对象的引用，未先释放这些引用就强制终止应用，会导致Word进程无法正常关闭。

修复后的完整代码 #

Sub opentemplateWord()
 Dim sh As Shape
 Dim objOLE As OLEObject
 Dim objWord As Object 'Word.Document
 Dim objRng As Object 'Word.Range
 Dim objUndo As Object 'Word.UndoRecord
 Dim cell As Excel.Range
 Dim xlRng As Excel.Range
 Dim xlSht As Worksheet
 Dim wordApp As Object '新增：单独存储Word应用实例引用

 Set xlSht = Sheets("Main")
 With xlSht
 Set xlRng = .Range("E1", .Range("E" & Rows.Count).End(xlUp))
 End With

 ''获取嵌入Word模板的Shape对象
 Set sh = Worksheets("Templates").Shapes("WordFile")
 ''激活OLE对象内容
 sh.OLEFormat.Activate
 Set objOLE = sh.OLEFormat.Object
 Set objWord = objOLE.Object
 Set wordApp = objWord.Application '单独获取应用实例，避免链式引用问题

 With objWord
 Set objRng = .Range.Characters.Last
 Set objUndo = wordApp.UndoRecord
 objUndo.StartCustomRecord ("Doc Data")
 Set xlSht = Sheets("Main")
 '填充书签内容
 .Bookmarks("ProjectName1").Range.Text = xlSht.Range("B10").Value
 .Bookmarks("ProjectName2").Range.Text = xlSht.Range("B11").Value
 .Bookmarks("ProjectName3").Range.Text = xlSht.Range("B12").Value
 .Bookmarks("ProjectName4").Range.Text = xlSht.Range("B13").Value
 .Bookmarks("ProjectName5").Range.Text = xlSht.Range("B14").Value

 '插入并格式化段落
 For Each cell In xlRng
 objRng.InsertAfter vbCr & cell.Offset(0, -1).Text
 Select Case LCase(cell.Value)
 Case "title"
 objRng.Paragraphs.Last.Style = .Styles("Heading 1")
 Case "main"
 objRng.Paragraphs.Last.Style = .Styles("Heading 2")
 Case "sub"
 objRng.Paragraphs.Last.Style = .Styles("Heading 3")
 Case "sub-sub"
 objRng.Paragraphs.Last.Style = .Styles("Heading 4")
 Case "par"
 objRng.Paragraphs.Last.Style = .Styles("Normal")
 End Select
 Next cell

 '另存为新文档
 Set xlSht = Sheets("Main")
 .SaveAs2 ActiveWorkbook.Path & "\" & _
 xlSht.Range("B2").Value & ", " & _
 xlSht.Range("B3").Value & "_" & _
 xlSht.Range("B4").Value & "_" & _
 xlSht.Range("B5").Value & ".docx"
 objUndo.EndCustomRecord
 .Undo
 .Close False '先关闭模板文档，不保存（已另存为新文件）
 End With

 '按顺序释放对象，避免资源泄漏
 Set objWord = Nothing
 Set objRng = Nothing
 Set objUndo = Nothing
 wordApp.Quit False '退出Word应用
 Set wordApp = Nothing
 Set objOLE = Nothing
 Set sh = Nothing
End Sub

关键修改说明 #

1. 单独管理Word应用实例：新增wordApp变量单独存储Word应用引用，避免通过文档对象链式调用.Application带来的关联引用问题。
2. 先关闭文档再退出应用：在退出Word前先调用.Close False关闭嵌入的模板文档，确保文档状态先稳定，避免退出时的状态冲突。
3. 调整对象释放顺序：先释放所有文档相关的对象（objWord、objRng等），再退出应用，最后释放应用实例引用，让Word进程可以正常回收资源。
4. 消除Undo与退出的时序冲突：关闭文档后再执行退出操作，给Undo操作足够的时间完成状态同步，避免干扰Word内部逻辑。

内容的提问来源于stack exchange，提问作者10101