推 rock04rock: 我執行後 還是有一樣的狀況。執行第二次的話，在工作 10/06 12:07
→ rock04rock: 管理員的背景處理程序會卡Word程式，應該是這樣導致46 10/06 12:07
→ rock04rock: 2出現。請問這樣還有解嗎 10/06 12:07
沒有真的測試，你可以試看看下面的修改
※ 引述《rock04rock (CarlosChiang)》之銘言：
: 軟體:Microsoft 365 企業應用版
: 我編寫了一個駐留在 Excel 工作簿中的 VBA 巨集。執行時，它將開啟一個現有的Word文
: 件（與Excel工作簿儲存在同一目錄中），將Excel工作簿中的儲存格中的一些內容複製到
: Word文件中，以新名稱儲存Word文件（在相同的目錄中）目錄）並刪除原始 Word 文件。
: 此過程在第一次運行時按預期工作。但在第二次運行時，我收到運行時誤 462。
: (都卡在ActiveDocument.Content.Delete)。因為我還是新手，想請教怎麼修改會比較好。
: Sub CopyDataToWord()
: Dim wdApp As Word.Application
: Dim myRange As Range
: Dim i As Long
: Set wdApp = New Word.Application
: With wdApp
: .Documents.Open Filename:=ThisWorkbook.Path & "\123.docx"
: ActiveDocument.Content.Delete
: For i = 1 To 1
: Set myRange = Worksheets("合併").UsedRange
: myRange.Copy
: With .Selection
: .TypeParagraph
: .Paste
: End With
: Next i
: .ActiveDocument.Save
.ActiveDocument.Close
: wdApp.Visible = True
: End With
: Application.CutCopyMode = False
wdApp.Quit
: Set wdApp = Nothing
: Set myRange = Nothing
: Set docRange = Nothing
: Set docApp = Nothing
: End Sub
: 第一個提供解決方法成功，會提供500P做感謝。
: 謝謝大家
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.58.193 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1696423269.A.B5D.html