VB轻松控制Word

VB轻松控制Word
今天，我们将制作一个能够控制Word文件的建立和打开的应用程序。

我们可以在文本框中输入文件名，单击“新建”按钮即可新建一个Word文档，或者打开一个Word历史记录文件。

程序运行结果如图1所示。

图1 运行结果
技术要点
●添加Word库引用
●建立Word对象
●读取Word历史记录文件
实现过程
■新建项目
打开Visual ，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ControlWord”，然后选择保存路径。

单击“确认”。

■添加引用和控件
选择菜单“项目|添加引用”，在弹出的“添加引用”对话框中选择COM选项卡，选中“Microsoft Word 10.0 Object Library”，单击“选择”按钮，即可将Word库加入到当前项目中。

添加时的界面如图2所示。

然后，给窗体上添加两个Label控件和两个Button控件，一个TextBox控件和一个ComboBox控件。

图2 添加Word引用
■设置属性
对窗体上的控件设置属性，如表所示。

窗体及控件的属性值
窗体/控件属性值
Form1 Text 轻松控制Word
TextBox1 Text 空
ComboBox Text 空
Button1 Text 新建
■添加代码
Public Sub New()
MyBase.New()
'程序启动时，添加Word历史记录文件
'This call is required by the Windows Form Designer.
InitializeComponent()
Dim i As Short
Dim tempword As New Word.Application()
For i = 1 To tempword.RecentFiles.Count
ComboBox1.Items.Add(tempword.RecentFiles.Item(i).Name)
Next
'ComboBox1.Text = ComboBox1.Items.IndexOf(ComboBox1).ToString
'combobox1.Items.GetTy
tempword.Quit()
'Add any initialization after the InitializeComponent() call
End Sub
'打开word文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim b As New Word.Application()
b.Documents.Open(ComboBox1.Text)
b.Visible = True
End Sub
'新建word文件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim word As New Word.Application()
word.NewDocument.Add(TextBox1.Text)
word.Visible = True
End Sub
■运行程序
单击菜单“调试|启动”或单击图标运行程序。

小结
本实例我们先引用了Word库，然后新建Word对象，这样就可以实现与Word的连接了。

其余对象的引用类似。