从excel打开word文档，在同一页面上打印选择和字符串(Opening a word doc from excel, print a selection and a string on the same page)

 我有一个数据库与Word文档。 文件名像000001,000002 ...... 
 
 我已成功编写了一个宏，用于打开这些文档，直到找到值为止进行选择，然后打印该选择，然后再次关闭文档并转到下一个文档。 （见下面的代码） 
 
 有一件事我想额外做，但我无法弄清楚。 我希望在此选项下打印“End”（在同一页上）。 但是我想在不改变文件的情况下做到这一点。  
 
 我不想更改文档，因为需要使用选择打印的值来自用户窗体文本框，并且每次都会有所不同。 但是如果有人能够帮助我，你可以举一个例子来结束这个词 
 
 添加了一张图片，上面有我在找的东西 
 
 这是我现在的代码： 
 
Dim i As Long, wdApp As Object, wdDoc As Object, wdRng As Object
Set wdApp = CreateObject("Word.Application")
With wdApp
  .Visible = True
  For i = 1 To 9
    Set wdDoc = .Documents.Open("\\path\" & Format(i, "000000") & ".NET", False, True, False)
With wdDoc
  Set wdRng = .Range(0, 0)
  With .Range
    With .Find
      .Text = "ENDLIST"
      .Forward = True
      .MatchWholeWord = True
      .MatchCase = True
      .Execute
    End With
    If .Find.found = True Then
      wdRng.End = .Duplicate.Start
      wdRng.Select
      wdDoc.PrintOut , Range:=1
    End If
  End With
  .Close False
End With
  Next
  .Quit
End With
Set wdRng = Nothing: Set wdDoc = Nothing: Set wdApp = Nothing

End Sub
 
 这是可能的，如果是的话，是否有人可以帮助我去 

I have a database with word docs. The filenames are like 000001, 000002...... 
 
I have successfully written a macro that opens these documents, makes a selection until a value is found, print this selection and then close the document again and move on to the next. (see code below )
 
There is one thing I want to do extra, but I can't figure it out. I want the word "End" printed under this selection (on the same page). But I want to do this without making any change in the documents. 
 
I don't want to change the documents because the value that needs to be printed with the selection comes from an userform textbox and is different every time. But if someone can help me, you can give an example with the word end
 
Added a picture above off what im looking for
 
this is my code now:
 
Dim i As Long, wdApp As Object, wdDoc As Object, wdRng As Object
Set wdApp = CreateObject("Word.Application")
With wdApp
  .Visible = True
  For i = 1 To 9
    Set wdDoc = .Documents.Open("\\path\" & Format(i, "000000") & ".NET", False, True, False)
With wdDoc
  Set wdRng = .Range(0, 0)
  With .Range
    With .Find
      .Text = "ENDLIST"
      .Forward = True
      .MatchWholeWord = True
      .MatchCase = True
      .Execute
    End With
    If .Find.found = True Then
      wdRng.End = .Duplicate.Start
      wdRng.Select
      wdDoc.PrintOut , Range:=1
    End If
  End With
  .Close False
End With
  Next
  .Quit
End With
Set wdRng = Nothing: Set wdDoc = Nothing: Set wdApp = Nothing

End Sub
 
Is this possible, and if it is can someone please help me going

原文：https://stackoverflow.com/questions/41116050