Thread: Ms word find and paste into a new docuement

Hello naflas,

This 2003 Word VBA macro should work in 2007.

'Written: October 24, 2010
'Author:  Leith Ross (www.excelforum.com))

Sub FindAndCopy()

  Dim NewDoc As Document
  Dim Rng As Range
  
    Set NewDoc = Documents.Add
    
    Set Rng = ThisDocument.Content
    
    With Rng.Find
      .ClearFormatting
      .Forward = True
      .MatchCase = False
      .MatchAllWordForms = False
      .MatchFuzzy = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Text = "BUC-*  "
    End With
   
    Do
      Rng.Find.Execute
      If Not Rng.Find.Found Then Exit Do
      NewDoc.Content.InsertAfter Rng.Text & vbCrLf
      Rng.Move
    Loop
    
End Sub