vb.net操作word最后一步求解

2025-04-19 21:40:10
推荐回答（1个）
回答1：
我试着按我自己的思路给你改一下，你看看成不成型！
......
End if

Dim WDAPP As Object,Wd1 as object,Wd2 as object
wdapp = new word.application
wdapp.visible = true
wd1 = WDAPP.Documents.open(FileName:=TextBox1.Text)
wd2 = WDAPP.Documents.open(FileName:=TextBox2.Text)
For j = 0 To q - 1
    Wd1.activate
    WDAPP.Selection.Find.ClearFormatting()
                With WDAPP.Selection.Find.text = p(j)
                    WDAPP.Selection.Find.Execute(p(j))
                    Dim i As String
                    i = WDAPP.Selection.Information(3)


                    Dim missing = System.Reflection.Missing.Value
                    Dim unit = Word.WdUnits.wdStory
                    wd2.Activate
                    WDAPP.Selection.EndKey(unit, missing)
                    WDAPP.Selection.TypeText(text:=p(j))
                    WDAPP.Selection.MoveDown(Unit:=4, Count:=1)
                    WDAPP.Selection.EndKey()

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

                    WDAPP.Selection.TypeText(Text:=vbTab)

                    WDAPP.Selection.TypeText(Text:=i)

                    WDAPP.Selection.TypeText(Text:=vbCrLf)
                    If WDAPP.ActiveDocument.Saved = False Then

WDAPP.ActiveDocument.Save()
                    End If

                End With
            Next
            WDAPP.Quit()
            WDAPP = Nothing
        End If
End If