求助打開Word圖片編輯的代碼（已解決）

wang1950317

各位老師：
   在綁定對象框中添加Word圖片的操作是：右鍵單擊對象框>插入對象>Microsoft office Access>在對象類型（T）中選擇Microsoft word 圖片>確定
   然后就打開一個Word界面。
   上述操作可否在綁定對象框單擊事件的代碼中完成？
   Excel有宏剝制功能，Access沒有。試用在Excel剝制后代碼放到Access中，
        放在綁定對向框中提示：運行時錯誤‘91’  對象變量或with塊變量未設(shè)置。
         
    ActiveSheet.OLEObjects.Add(ClassType:="Word.Picture.8", Link:=False, _
        DisplayAsIcon:=False).Activate
  
小的代碼不行，請教各位老師！
謝謝！

tmtony

With Me.oleDoc
      .Class = "Word.Document"
      .OLETypeAllowed = acOLELinked
      .SourceDoc = strFullNameFile
      .Action = acOLECreateLink
   End With

wang1950317

謝謝tmtony老師指教！
出現(xiàn)以下提示：
      
請您再指點！謝謝！

tmtony

你得先有 oleDoc 這個OLE對象
然后 strFullNameFile 改成你的文件名

wang1950317

謝謝tmtony 老師
小的代碼很菜，不太懂，我的目的是在點擊綁定對象框后打開一個空的word圖片編輯器（用來編輯一個OLE對象，把這個對象添加到綁定對象框中）。不是先有一個OLE對象，然后把它添加到綁定對象框中。
  一樓附件：在綁定對象框中添加Word圖片的操作是：右鍵單擊綁定對象框>插入對象>Microsoft office Access>在對象類型（T）中選擇Microsoft word 圖片>確定，這樣就打開了一個word文檔，可以使用繪圖工具編輯一個需要的圖，退出后，它就自動添加到綁定對象框中啦。我需要的完成的紅字部分功能即可。不知代碼怎樣改？
請再指教！謝謝！

ly

wang1950317 發(fā)表于 2013-3-5 14:19
謝謝tmtony 老師
小的代碼很菜，不太懂，我的目的是在點擊綁定對象框后打開一個空的word圖片編輯器（用來編 ...

1. Dim obj As Word.Application
   
2. Set obj = New Word.Application
   
3. obj.Documents.Add Visible:=True
   
4. obj.Selection.InlineShapes.AddOLEObject ClassType:="Word.Picture.8", FileName _
   
5.         :="", LinkToFile:=False, DisplayAsIcon:=False
   

復制代碼

wang1950317

謝謝ly老師指教！
試過提示這一句：obj As Word.Application  編譯錯誤，用戶定義類型未定義。
請再費神指點！

wang1950317

引用的問題，已添加了。可以打開word。但還有問題:
     使用：右鍵單擊綁定對象框>插入對象>Microsoft office Access>在對象類型（T）中選擇Microsoft word 圖片>確定  打開word后，使用繪圖工具作圖，關(guān)閉、退出word后直接就保存在綁定對相框中啦，沒有提示保存位置。
    而使用6樓代碼打開word，使用繪圖工具作圖后，不能關(guān)閉word，提示要保存文檔保存位置，保存后Access綁定對相框中不顯示圖片。
   請樓上老師再幫忙！謝謝！

ly

wang1950317 發(fā)表于 2013-3-5 22:26
引用的問題，已添加了�？梢源蜷_word。但還有問題:
     使用：右鍵單擊綁定對象框>插入對象>Microsoft of ...

試一試

1. With Me.obj布點圖
   
2. .Action = acOLECreateEmbed
   
3. .Class = "Word.Picture.8"
   
4. .Action = acOLEActivate
   
5. End With
   

復制代碼

wang1950317

obj布點圖
這一句提示：
編譯錯誤
方法和數(shù)據(jù)成員未找到

謝謝！