匿名使用者 1級 2016-04-29 回答

首先說明，你這樣是寫TXT，不是DOC，雖然Word可以開啟，但根本就不是Word檔案。當然不能儲存圖片了。請參考我以下的程式碼。建一個Command1。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim ap As Word。Application， doc As Document

Private Sub Form_Load（） ‘這個過程不必做修改，是建立一個新的Word文件

Set ap = CreateObject（“word。application”）

ap。Visible = True

Set doc = ap。Documents。Add

End Sub

Private Sub Command1_Click（）

doc。Content。InsertAfter Text：=“請輸入你要輸入的內容” ’插入文字，請使用這種格式

doc。Shapes。AddPicture FileName：=“D：\a。jpg” ‘插入圖片，請使用這種格式，路徑自己寫

End Sub

其他問題再找我。

ー輩孓呿噯 1級 2016-04-30 回答

dim ap as word。application， doc as document

private sub form_load（） ’這個過程不必做修改，是建立一個新的word文件

set ap = createobject（“word。application”）

ap。visible = false

set doc = ap。documents。add

end sub

private sub command1_click（）

‘doc。content。insertafter text：=“請輸入你要輸入的內容” ’插入文字，請使用這種格式

doc。content。insertafter text1。text

doc。saveas app。path & “\a。doc”

doc。close

end sub