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的连接了。其余对象的引用类似。