从Xcel Vba中从一个Word文档中选择一系列文本，然后复制到另一个Word文档中

Question

Very new to this: Please Help!

I saw the following code from one of the answers (thanks to those who provided it). The code works in Word VBA, I tested it.

Sub RevisedFindIt()
' Purpose: display the text between (but not including)
' the words "Title" and "Address" if they both appear.
    Dim rng1 As Range
    Dim rng2 As Range
    Dim strTheText As String

    Set rng1 = ActiveDocument.Range
    If rng1.Find.Execute(FindText:="Title") Then
        Set rng2 = ActiveDocument.Range(rng1.End, ActiveDocument.Range.End)
        If rng2.Find.Execute(FindText:="Address") Then
            strTheText = ActiveDocument.Range(rng1.End, rng2.Start).Text
            MsgBox strTheText
        End If
    End If
End Sub

I want to run the same code from EXCEL VBA, by calling it as a sub from a main excel vba sub and passing some arguments to it, as I need to use the data within EXCEL. My attempt below failed with a Compiler error:

Argument not optional

in relation to the .Find.Execute(FindText:= .

Sub FindIt(ftext, text1, text2, texto)
' Purpose: display the text between (but not including)
' the words "Title" and "Address" if they both appear.

    'Dim wdDoc As Object, wdApp As Object

    Dim wdApp As Object
    Dim wdDoc As Object
    'Set wdApp = CreateObject("Word.application")
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open(ftext)
    wdApp.Visible = True

    Dim rng1 As Range
    Dim rng2 As Range
    Dim strTheText As String

With wdDoc

    Set rng1 = ActiveDocument.Range
    If rng1.Find.Execute(FindText:=text1) Then
        Set rng2 = ActiveDocument.Range(rng1.End, ActiveDocument.Range.End)
        If rng2.Find.Execute(FindText:=text2) Then
            strTheText = ActiveDocument.Range(rng1.End, rng2.Start).Text
            MsgBox strTheText
            texto = strTheText
        End If
    End If

End With

wdDoc.Close savechanges:=False
wdApp.Quit
Set wdDoc = Nothing

Set wdApp = Nothing

End Sub

Answer 1

Argument not optional means just that. You have omitted some arguments. Use Intellisense: Type rng1.Find( ... and you will se the arguments