Dim wordDoc As New Word.Document
Dim WordApp As Word.Application
Dim pag As Integer
Set WordApp = New Word.Application
Set wordDoc = WordApp.Documents.Open("c:\123.doc")
WordApp.Visible = False
WordApp.DisplayAlerts = False
For pag = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo what:=wdGoToPage, Name:=pag
If pag = 1 Then
ActiveDocument.Shapes.AddPicture FileName:="C:\yz.gif", Left:=300, Top:=480, Anchor:=Selection.Range
ElseIf pag = 5 Then
ActiveDocument.Shapes.AddPicture FileName:="C:\yz.gif", Left:=180, Top:=590, Anchor:=Selection.Range
End If
Next
wordDoc.Save
wordDoc.Close
WordApp.Quit
Set WordApp = Nothing
Set wordDoc = Nothing
第一次呼叫的時候能正常插入圖片到WORD中，第二次呼叫的時候就在
For pag = 1 To Selection.Information(wdNumberOfPagesInDocument)
報錯，報錯資訊：遠程服務器不存在或不能使用。
不擅長VBA，搞了很久都沒頭緒，請高手看看，謝謝
uj5u.com熱心網友回復：
word的vba很少用的。
我猜可能是和selection有關系。插入完成后嘗試修改一下selection試試，或者：第一次插入完成后保存再打開執行一次看看能不能成功，如果成功說明就是selection的問題。
uj5u.com熱心網友回復：
樓上的辦法都試過了，還這樣，所以才在CSDN問大牛們。uj5u.com熱心網友回復：
Selection替換為activedocument.shapesuj5u.com熱心網友回復：
在Word 2003中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/78318.html
標籤：VB基礎類
上一篇：PopupMenu 想右鍵彈出 FileMenu選單，結果卻出現一個不知道哪來的沒見過的選單
下一篇：同時連接兩資料庫問題