关于在word的表格中插入图片

没人的？把我的代码写一下，请老师修改，关闭程序后，第一次运行正常，第二次运行时出错，提示：远程服务器不存在或不可用。

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

   Dim WordObj As Word.Application
   Dim WordDoc As Word.Document
   Dim Tabdoc As Word.Tables
       Set WordObj = CreateObject("Word.Application")
             WordObj.Visible = True
       Set WordDoc = WordObj.Documents.Open("D:\123.doc")
 ActiveDocument.Tables(1).Cell(2, 1).Range.Select
  Selection.InlineShapes.AddPicture FileName:= _
   D:\Backup\My Pictures\1\IMG_1308.jpg"
          WordDoc.SaveAs "d:\1.doc"
         WordObj.Quit SaveChanges:=wdDoNotSaveChanges
    Set WordDoc = Nothing
    Set WordObj = Nothing
Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
  
End Sub