MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Option Explicit Dim accapp, acavdocu Dim pdf_path, bReset, Wrd_count pdf_path="C:\LS\Test\Invoices\02_2011_PDF\rpt_Invoice_1.pdf" 'AcroExch is acrobat application object Set accapp=CreateObject("AcroExch.App") accapp.Show() 'Need to create one AVDoc object par displayed document Set acavdocu=CreateObject("AcroExch.AVDoc") 'Opening the PDF If acavdocu.Open(pdf_path,"") Then acavdocu.BringToFront() bReset=1 : Wrd_count = 0 'Find Text Finds the specified text, scrolls so that it is visible, and highlights it Do While acavdocu.FindText("Invoice#", 1, 1, bReset) bReset=0 : Wrd_count=Wrd_count+1 'Wait 0, 200 Loop End If accapp.CloseAllDocs() accapp.Exit() msgbox "The word 'Invoice#' was found " & Wrd_count & "times" Set accap=nothing : Set accapp=nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Concatenate multiple document properties||1||38|
|Need help Creating PowerShell Script||5||81|
|MS ACCESS 2010 Clear Form Button||4||71|
|Get average for unknown number of cells per degree..||3||37|
Join the community of 500,000 technology professionals and ask your questions.