See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
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
|How to add contact name to VBA code to automate emails in outlook using a Template||11||58|
|VBS file using code from 2nd file (txt or vbs)||4||25|
|Have the information on the "B" and "C" column displayed/input on the third box||4||27|
|Convert MS Word document to a PDF file||9||27|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!