vb點虐 生成word vb生成文件

vb點虐 如何創(chuàng)建一個word文檔

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

十多年的屏南網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。營銷型網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整屏南建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)公司從事“屏南網(wǎng)站設(shè)計”,“屏南網(wǎng)站推廣”以來，每個客戶項目都認(rèn)真落實執(zhí)行。

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

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

End Sub

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

首先說明，你這樣是寫TXT，不是DOC，雖然Word可以打開，但根本就不是Word文件。當(dāng)然不能存儲圖片了。請參考我以下的代碼。建一個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:="請輸入你要輸入的內(nèi)容"

'插入文字，請使用這種格式

doc.Shapes.AddPicture

FileName:="D:\a.jpg"

'插入圖片，請使用這種格式，路徑自己寫

End

Sub

其他問題再找我。

VB.NET RichTextBox 保存為 Word文檔

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

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

{

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

DialogResult P_dr = P_GetFile.ShowDialog();//顯示打開文件對話框

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

{

WebBrowser.Navigate(P_GetFile.FileName);//打開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對象

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

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

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

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

DateTime.Now.ToString("yyyy年M月d日h時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(//開始執(zhí)行窗體線程

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

{

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

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

}));

});

}

網(wǎng)站題目：vb點虐 生成word vb生成文件
本文來源：http://bm7419.com/article2/ddejhoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、小程序開發(fā)、標(biāo)簽優(yōu)化、營銷型網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)