如何通過VB6插入一個標誌圖像到單詞？

Question

我在VB6項目上工作的步驟如下： - 點擊命令按鈕從目錄打開文件。或創建一個新的（word文檔.DOC） - 添加圖像JPEG作爲徽標... - 請保存結果 請任何人都可以幫助設計和編碼？

Answer 1

在Word的VBA中記錄這些步驟。 VBA是VB6的語言。

這就是你

Sub Macro10() 
' 
' Macro10 Macro 
' Macro recorded 7/12/2014 by Fred 
' 
     Documents.Open FileName:="Doc1.DOC", ConfirmConversions:=True, ReadOnly:= _ 
       False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ 
       "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ 
       Format:=wdOpenFormatAuto, DocumentDirection:=wdLeftToRight 
     ChangeFileOpenDirectory "C:\Users\Fred\Documents\Pictures\" 
     Selection.InlineShapes.AddPicture FileName:= _ 
       "C:\Users\Fred\Documents\Pictures\!cid_image001.gif", LinkToFile:= _ 
       False, SaveWithDocument:=True 
     ActiveDocument.SaveAs FileName:="Doc1.DOC", FileFormat:=wdFormatDocument, _ 
       LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ 
       :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ 
       SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ 
       False 
End Sub 

所以在VB6創建的文檔

Set Wrd = GetObject("Yourfile") 

然後適應VBA代碼到你的對象如參考; wrd.documents.open ...