首先引入類庫
Microsoft
Office
Interop
Word
然後進行編程
代碼如下
using System;
using System
Collections
Generic;
using System
ComponentModel;
using System
Data;
using System
Drawing;
using System
Text;
using System
Windows
Forms;
using Microsoft
Office
Interop
Word;
namespace WordTest
{
public partial class Form
: Form
{
object strFileName;
Object Nothing;
Microsoft
Office
Interop
Word
Application myWordApp = new Microsoft
Office
Interop
Word
ApplicationClass();
Document myWordDoc;
string strContent =
;
public Form
()
{
InitializeComponent();
}
private void button
_Click(object sender
EventArgs e)
{
createWord();
//openWord();
}
private void createWord()
{
strFileName = System
Windows
Forms
Application
StartupPath +
test
doc
;
if (System
IO
File
Exists((string)strFileName))
System
IO
File
Delete((string)strFileName);
Object Nothing = System
Reflection
Missing
Value;
myWordDoc = myWordApp
Documents
Add(ref Nothing
ref Nothing
ref Nothing
ref Nothing);
#region 將數據庫中讀取得數據寫入到word文件中
strContent =
你好\n\n\r
;
myWordDoc
Paragraphs
Last
Range
Text = strContent;
strContent =
這是測試程序
;
myWordDoc
Paragraphs
Last
Range
Text = strContent;
#endregion
//將WordDoc文檔對象的內容保存為DOC文檔
myWordDoc
SaveAs(ref strFileName
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing
ref Nothing);
//關閉WordDoc文檔對象
myWordDoc
Close(ref Nothing
ref Nothing
ref Nothing);
//關閉WordApp組件對象
myWordApp
Quit(ref Nothing
ref Nothing
ref Nothing);
this
richTextBox
Text = strFileName +
\r\n
+
創建成功
;
}
private void openWord()
{
fontDialog
ShowDialog();
System
Drawing
Font font = fontDialog
Font;
object filepath =
D:\\asp
docx
;
object oMissing = System
Reflection
Missing
Value;
myWordDoc = myWordApp
Documents
Open(ref filepath
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing
ref oMissing);
myWordDoc
Content
Font
Size = font
Size;
myWordDoc
Content
Font
Name = font
Name;
myWordDoc
Save();
richTextBox
Text = myWordDoc
Content
Text;
myWordDoc
Close(ref oMissing
ref oMissing
ref oMissing);
myWordApp
Quit(ref oMissing
ref oMissing
ref oMissing);
}
}
From:http://tw.wingwit.com/Article/program/net/201311/12464.html