Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

創(chuàng)新互聯公司專注于臨河網站建設服務及定制,我們擁有豐富的企業(yè)做網站經驗。 熱誠為您提供臨河營銷型網站建設,臨河網站制作、臨河網頁設計、臨河網站官網定制、重慶小程序開發(fā)公司服務,打造臨河網絡公司原創(chuàng)品牌,更為您提供臨河網站排名全網營銷落地服務。
System.IO.Directory.CreateDirectory("C:\我的文件夾") '創(chuàng)建目錄,路徑就自己改吧,如果路徑存在,就沒必要創(chuàng)建了
System.IO.File.Create("C:\我的文件夾\我的文件.doc") '在指定目錄下創(chuàng)建word文檔
End Sub
首先說明,你這樣是寫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、工程--引用,選Microsoft Word 11.0 Object Library
2、聲明并賦值word程序相關變量,注意步驟不能亂。
Dim appObj As New Word.Application '新建一個word程序對象
Dim docObj As Word.Document '聲明文檔對象,也可以用new新建
Dim strFile As String = "D:\MyDocu.doc"
docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打開文檔
docObj.Activate()'激活文檔
.......
With docObj
.Save()
.Close()
End With
docObj = Nothing
appObj = Nothing
注意:聲明word對象和文檔對象,應該提示錯誤,你只需要點擊“示警”圖標,在展打的選項里選第1項導入就可以了。
‘首先,創(chuàng)建一個VB.NET項目,再點擊菜單”項目“-”添加引用“,在”Com“-”類型庫“里,選擇Microsoft.Word?14.0?Object?Library(對應Office版本為2010),將以下代碼復制粘貼到Form1窗體替換原代碼。
’PS:以下代碼僅創(chuàng)建表格,將第行2至4列合并,添加1個文字,其他的你自己分析。
Imports?Microsoft.Office.Interop
Imports?Microsoft.Office.Interop.Word??'引入Word
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document?'定義Word及文檔對象
DDoc?=?DWrd.Documents.Add?'新增文檔
Dim?DTbl?As?Word.Table??'定義表格對象
DTbl?=?DDoc.Tables.Add(DDoc.Range,?7,?4)??'新增表格
DTbl.Style?=?"網格型"??'表格的樣式
DTbl.Cell(1,?2).Select()??'選擇起始單元格為第1行/第2列
DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)??'向右擴展兩個單元格(即選擇第1行的第2至4列)
DWrd.Selection().Cells.Merge()??'單元格合并
DTbl.Cell(1,?1).Range.Text?=?1??'在第1個單元格填寫文本
DWrd.Visible?=?True?'顯示Word
End?Sub
End?Class
本文標題:vb.net新建word vb中新建文件的代碼
本文路徑:http://www.yijiale78.com/article28/ddocojp.html
成都網站建設公司_創(chuàng)新互聯,為您提供域名注冊、手機網站建設、電子商務、搜索引擎優(yōu)化、企業(yè)網站制作、網頁設計公司
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯