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 = CreateObject("Word.Application")
WDAPP.Documents.Add(TextBox1.Text)
WDAPP.Selection.Find.ClearFormatting()
With WDAPP.Selection.Find.Text = p
Dim i As String
i = WDAPP.Selection.Information(3)
WDAPP.Selection.TypeText(text:=p)
WDAPP.documents.add(TextBox2.Text)
WDAPP.Selection.MoveDown(Unit:=WDAPP.wdParagraph, Count:=1)
WDAPP.Selection.EndKey()
WDAPP.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP.CentimetersToPoints(15.24), Alignment:=WDAPP.wdAlignTabRight, Leader:=WDAPP.wdTabLeaderDashes)
WDAPP.Selection.TypeText(Text:=vbTab)
WDAPP.Selection.TypeText(Text:=i)
WDAPP.Selection.TypeText(Text:=vbCrLf)
End With
End If
两个textbox分别是读的文件地址,和写的文件地址。
写上去是没错的,执行的时候粗体的那行![图片说明](https://img-ask.csdn.net/upload/201501/02/1420168623_867857.jpg)就是图片的报错
应该怎么修改,还有我打开那个被写的文件时候说是被绑定了不能操作,这是什么情况
![图片说明](https://img-ask.csdn.net/upload/201501/02/1420168660_496589.jpg)