vb.net操作word求解

[q411139597]

Public Sub Textbox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Dim p As String = InputBox("请输入")
Dim WDAPP As Object
WDAPP = New Word.Application
WDAPP.visible = True
WDAPP.Documents.Add(TextBox1.Text)
WDAPP.Selection.Find.ClearFormatting()
With WDAPP.Selection.Find.Text = p
Dim i As String
i = WDAPP.Selection.Information(wdActiveEndPageNumber)
Dim WDAPP1 As Object
WDAPP1 = New Word.Application
WDAPP1.visible = True
WDAPP1.documents.Add(TextBox2.Text)
WDAPP1.Selection.TypeText(text:=p)
WDAPP1.Selection.MoveDown(Unit:=4, Count:=1)

WDAPP1.Selection.EndKey()

WDAPP1.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP1.CentimetersToPoints(15.24), Alignment:=2, Leader:=2)

WDAPP1.Selection.TypeText(Text:=vbTab)

WDAPP1.Selection.TypeText(Text:=i)

WDAPP1.Selection.TypeText(Text:=vbCrLf)



End With
End If
End Sub
这段代码我想完成给textbox1文件中的扫描关键字，然后把扫描到的关键字输出给textbox2的文件中，以目录形式输出。但测试出来目录不对总是输出1，而且也不是输出给textbox2中的文件中。求指点

[q411139597]

来大神啊

[於黾]

WDAPP1.documents.Add(TextBox2.Text) 你这是把textbox2.text当做文档名称来添加的,跟文件名是俩概念 你在执行save的时候,应该按你输入的内容拼接个路径然后再save到这个路径下