Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),儀征企業(yè)網(wǎng)站建設(shè),儀征品牌網(wǎng)站建設(shè),網(wǎng)站定制,儀征網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,儀征網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長(zhǎng)自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
System.IO.Directory.CreateDirectory("C:\我的文件夾") '創(chuàng)建目錄,路徑就自己改吧,如果路徑存在,就沒必要?jiǎng)?chuàng)建了
System.IO.File.Create("C:\我的文件夾\我的文件.doc") '在指定目錄下創(chuàng)建word文檔
End Sub
按你說的方式,需要用到鉤子
建議你用File類進(jìn)行操作,保存為TXT文件
祝好運(yùn),望采納
在窗體上放一個(gè)按鈕,一個(gè)Webbrowser
簡(jiǎn)單代碼如下,其他排錯(cuò)處理自己來:
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?open?As?New?OpenFileDialog
open.ShowDialog()
WebBrowser1.Navigate(open.FileName)
End?Sub
效果如圖:
msdn的幫助文檔都會(huì)在微軟中文官網(wǎng)附加在Visual Studio的開發(fā)環(huán)境中
1 使用Shell函數(shù)直接調(diào)用
語法:Shell (pathname[,windowstyle]).Pathname是指要執(zhí)行的程序的名字和任何必須的參數(shù)或命令行開關(guān),可以包括目錄和驅(qū)動(dòng)器名;Windowstyle是執(zhí)行程序的窗口風(fēng)格的數(shù)字。
使用Shell調(diào)用Word比較簡(jiǎn)單,編程量小,但必須明確指定Word所在路徑,這不利于移植,而且,不能對(duì)Word進(jìn)行控制,不利于程序和Word之間的數(shù)據(jù)交換。
2 使用OLE自動(dòng)化控制Microsoft Word
2.1 使用方法
(1)Word為OLE自動(dòng)化提供一種稱為“Basic”的對(duì)象,要在VB中控制Word ,首先要定義一個(gè)引用Word中“Basic”對(duì)象的對(duì)象變量:Dim Wordobj as Object
(2)將Word 中的“Basic”對(duì)象賦給該對(duì)象:Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多數(shù)WordBasic語句和函數(shù)控制Word或Word文檔,使用方法和在Word宏中使用WordBasic指令的方法基本相同。
(4)關(guān)閉Word:Set Wordobj =Nothing。
注意:“Basic”對(duì)象不支持關(guān)閉它自己的一個(gè)方法。即若在OLE自動(dòng)化中關(guān)閉了Word,則對(duì)象被置為Nothing,便不能再對(duì)對(duì)象進(jìn)行操作,程序出錯(cuò)。
2.2 VB指令與WordBasic指令的差異
(1)有一些語句和函數(shù)不能使用,包括:控制結(jié)構(gòu),如While…Wend和If…Then…Else;聲明語句,如Dim;定制對(duì)話框相關(guān)的語句:FileExit語句;要求數(shù)組變量作為參數(shù)的語句或函數(shù)。
(2)也有一些指令使用方法不同。①返回字符串以一個(gè)美元符($)結(jié)束的WordBasic函數(shù)的關(guān)鍵字必須括在方括號(hào)中。例如,在WordBasic宏中的GetBookmark$()語句:mark$=GetBookmark$("Address"),若用VB調(diào)用,必須這樣寫mark$=Wordobj.[Ge-tBookmark$]("Address")。②選擇一個(gè)命令按鈕用“True”,不選擇用“False”
2.3 對(duì)OLE自動(dòng)化的說明
Word可以為OLE自動(dòng)化給另一個(gè)應(yīng)用提供對(duì)象,但是它不能使用OLE自動(dòng)化訪問其它應(yīng)用中的對(duì)象。例如:VB和Excel可以使用OLE自動(dòng)化訪問Word,但是Word不能使用OLE自動(dòng)化訪問它們。
3 在包容器中嵌入Word對(duì)象
在VB中,要訪問在包容器中嵌入的Word對(duì)象,首先要在項(xiàng)目中插入對(duì)象。做法如下:在窗體中插入OLE控件,對(duì)象類型選擇“MicrosoftWord圖片”或“Microsoft Word文檔”,再按“確定”。
然后用Object屬性訪問文檔或圖片,并使用WordBasic語句和函數(shù)作用于它。嵌入的對(duì)象必須在可被訪問之前被激活,可以使用Action屬性激活OLE控件。例如,使用下面指令訪問一個(gè)嵌入在稱為OLE1的OLE控件中的文檔:
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面,使用方法同OLE自動(dòng)化。使用在包容器中嵌入的Word對(duì)象,Word顯示的窗口大小、位置與OLE控件定義的大小、位置相同,而且工具欄顯示位置與Word脫離。這一點(diǎn)與OLE自動(dòng)化相比,是個(gè)不足。
總之,要想在Microsoft Visual Basic中控制Microsoft Word,最好使用OLE自動(dòng)化,通過使用WordBasic指令對(duì)Word進(jìn)行全面控制,而且,用戶使用起來與使用Microsoft Word一樣,非常方便。
首先說明,你這樣是寫TXT,不是DOC,雖然Word可以打開,但根本就不是Word文件。當(dāng)然不能存儲(chǔ)圖片了。請(qǐng)參考我以下的代碼。建一個(gè)Command1。
================
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'這個(gè)過程不必做修改,是建立一個(gè)新的Word文檔
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="請(qǐng)輸入你要輸入的內(nèi)容"
'插入文字,請(qǐng)使用這種格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入圖片,請(qǐng)使用這種格式,路徑自己寫
End
Sub
其他問題再找我。