Word dosyası içinde ara ve print

[tamer42]

Merhabalar,
Word belgemizde belirli bir içeriği bulmak için arama yaptığımızda;
yalnızca bu içeriğin bulunduğu sayfaların print alınması pratik olarak nasıl yapılabilir?

Örnek: 1000 sayfalık bir word belgesinde sadece "Find" içerisinde kelimesinin geçtiği sayfaların (farklı sıralardaki 80 sayfa) print alınması


iyi Çalışmalar.

 

[leumruk]

Selamlar,

Sub Makro1()
For x = 1 To Selection.Information(4)
Selection.GoTo What:=1, Which:=2, Name:=x
Set syf = ActiveDocument.Bookmarks("\page").Range
If syf.Find.Execute(FindText:="Find", Forward:=True) Then
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Pages:=CStr(x)
End If
Next
End Sub

 

[leumruk]

Merhaba,
Bu daha güzel oldu. Bir öncekine göre daha hızlı çalışacaktır.

Sub Sayfa_Bul_Yazdir()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  Set mtn = ActiveDocument.Range
  With mtn.Find
    .Text = "Find"
    While .Execute
    knt = x
    x = mtn.Information(wdActiveEndPageNumber)
    If x <> knt Then
      Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Pages:=CStr(x)
    End If
    Wend
  End With
End Sub

 

[tamer42]

Teşekkürler...

 

[leumruk]

Teşekkürler...

Rica ederim.