vb.net 如何創(chuàng)建一個(gè)word文檔

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

創(chuàng)新互聯(lián)公司專注于網(wǎng)站建設(shè)|網(wǎng)站維護(hù)|優(yōu)化|托管以及網(wǎng)絡(luò)推廣，積累了大量的網(wǎng)站設(shè)計(jì)與制作經(jīng)驗(yàn)，為許多企業(yè)提供了網(wǎng)站定制設(shè)計(jì)服務(wù)，案例作品覆蓋宴會(huì)酒店設(shè)計(jì)等行業(yè)。能根據(jù)企業(yè)所處的行業(yè)與銷售的產(chǎn)品，結(jié)合品牌形象的塑造，量身定制品質(zhì)網(wǎng)站。

System.IO.Directory.CreateDirectory("C:\我的文件夾") '創(chuàng)建目錄,路徑就自己改吧,如果路徑存在,就沒(méi)必要?jiǎng)?chuàng)建了

System.IO.File.Create("C:\我的文件夾\我的文件.doc") '在指定目錄下創(chuàng)建word文檔

End Sub

VB.NET RichTextBox 保存為 Word文檔

將Word文檔嵌入到WinForm窗體顯示W(wǎng)ord文檔內(nèi)容

private void 打開(kāi)ToolStripMenuItem_Click(object sender, EventArgs e)

{

OpenFileDialog P_GetFile = new OpenFileDialog();//創(chuàng)建打開(kāi)文件對(duì)話框?qū)ο?/p>

DialogResult P_dr = P_GetFile.ShowDialog();//顯示打開(kāi)文件對(duì)話框

if (P_dr == DialogResult.OK)//是否點(diǎn)擊確定

{

WebBrowser.Navigate(P_GetFile.FileName);//打開(kāi)Word文檔并顯示

}

}

//在Word文檔中插入圖片

private void btn_New_Click(object sender, EventArgs e)

{

btn_New.Enabled = false;//停用新建按鈕

ThreadPool.QueueUserWorkItem(//使用線程池

(P_temp) =//使用lambda表達(dá)式

{

G_wa = new Word.Application();//創(chuàng)建Word應(yīng)用程序?qū)ο?/p>

Word.Document P_wd = G_wa.Documents.Add(//建立新文檔

ref G_missing, ref G_missing, ref G_missing, ref G_missing);

Word.Range P_Range = P_wd.Paragraphs[1].Range;//得到段落范圍

object P_Ranges = P_Range;//創(chuàng)建ojbect對(duì)象

P_wd.InlineShapes.AddPicture(//向文檔中插入圖片

G_OpenFileDialog.FileName, ref G_missing, ref G_missing, ref P_Ranges);

G_str_path = string.Format(//計(jì)算文件保存路徑

@"{0}\{1}", G_FolderBrowserDialog.SelectedPath,

DateTime.Now.ToString("yyyy年M月d日h時(shí)s分m秒fff毫秒") + ".doc");

P_wd.SaveAs(//保存Word文件

ref G_str_path,

ref G_missing, ref G_missing, ref G_missing, ref G_missing,

ref G_missing, ref G_missing, ref G_missing, ref G_missing,

ref G_missing, ref G_missing, ref G_missing, ref G_missing,

ref G_missing, ref G_missing, ref G_missing);

((Word._Application)G_wa.Application).Quit(//退出應(yīng)用程序

ref G_missing, ref G_missing, ref G_missing);

this.Invoke(//開(kāi)始執(zhí)行窗體線程

(MethodInvoker)(() =//使用lambda表達(dá)式

{

btn_Display.Enabled = true;//啟用顯示按鈕

MessageBox.Show("成功創(chuàng)建Word文檔！", "提示！");

}));

});

}

如何在VB中建立word文檔，并寫入文字和圖片？

首先說(shuō)明，你這樣是寫TXT，不是DOC，雖然Word可以打開(kāi)，但根本就不是Word文件。當(dāng)然不能存儲(chǔ)圖片了。請(qǐng)參考我以下的代碼。建一個(gè)Command1。

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

Dim

ap

As

Word.Application,

doc

As

Document

Private

Sub

Form_Load()

'這個(gè)過(guò)程不必做修改，是建立一個(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

其他問(wèn)題再找我。

怎樣用VB.NET生成一個(gè)復(fù)雜的word表格？

轉(zhuǎn)換表格的時(shí)候應(yīng)該有選項(xiàng)的（光標(biāo)一般放置在外層表格區(qū)域），如圖，取消 轉(zhuǎn)換嵌套表格。

當(dāng)然，對(duì)于特別復(fù)雜及不規(guī)則的表格（粘貼過(guò)程中也可能導(dǎo)致表格錯(cuò)亂），用FRONTPAGE調(diào)整一下也是不錯(cuò)的主意。

參考文獻(xiàn)：OFFICE XP測(cè)試