Actor-network theory is drawn on as a theoretical lens through which to critically consider how this concept is articulated, and in particular to explore the way it positions and controls mobile devices as technologies for learning. & "var sqannot = this.How is the link between learner and technology made in mobile learning? What is the value of the concept of 'affordances'? And how does research articulating this concept act to position mobile devices as 'technologies for learning'? This literature review used both unstructured and structured search samples of pub-lished research on mobile learning to critically evaluate the prevalence and influ-ence of the concept of the affordances of mobile technologies. '// write and execute js to mark permanent (to lazy to translate to jso)Įx = " // set annot for text selection " &vbLf _ Msgbox("left:" &rect.Left &" bot:" &rect.bottom &" right:"&rect.Right &" top:" &rect.Top)ĪVDoc.SetTextSelection(wordHl) '// highlight the word (not really needed)ĪVDoc.ShowTextSelect() '// show highlighted text (not really needed) Set wordHl = PdfPage.CreateWordHilite(wordToHl) WordToHl.Add i, 1 'Hilite the word Reinhard Msgbox("add:""" &word &"""") Set wordToHl = CreateObject("AcroExch.HiliteList") '// created to get the word on list
If instr(word, wordTF) then '// used instr because the "word" you may get as "word " PdfText = pdfText & word '// gather words on page Word = PageSel.getText(i) '// get one word Set PageSel = PdfPage.CreatePageHilite(PageHL)įor i = 0 to PageSel.Getnumtext - 1 '// start the word loop on current page PageHLRes = PageHL.Add(0,9000) '<<-SET in FILE! (Start,END) Set PageHL = CreateObject("AcroExch.HiliteList") '// created to get the page text Set PdfPage = PDDoc.AcquirePage(p) '// p = Pagenumber (zero based) Set AForm = CreateObject("AFormAut.App") 'connect to Form API for later useįor p = 0 to maxPages - 1 '// start the page loop Set AcroApp = CreateObject("AcroExch.App") Set WshShell = CreateObject ("Wscript.Shell") '// Acrobat must be opend before with an active document!! -otherwise error. So you can copy it direct into your IDE.Įnjoy, Reinhard '// Save this as xxx.vbs and start with Double Click In the AcroJS help file you can find some options for the markers outfit. It can easily be changed to mark also more as only one word.
Devonthink pro search keywords in pdf cant search code#
Ok, played a little bit around with the code I already have had and js annots.Īttached you will find a VBScript which can mark/highlight a word permanent. PS: It would also be nice to be able to use OCR on image pdfs. I am only reading it into Excel to search for the text and see if its in the PDF, since I don't know how else to do this. I don't want to highlight the text in excel, I want to highlight it on the PDF. Some of the vbs that I saw involved finding text letter by letter and then drawing rectangles around it and colouring with javascript and that just seemed unnecessarily complicated (couldn't get the port to work anyway.). I've got adobe acrobat X, so there must be some sort of API that will allow me to do this with excel vba? Am I going to have to use some sort of opensource library like iText I would prefer not to. What I'm trying to do is open up PDF docs, search them for keywords and then highlight those words and save. I have managed to import the pdf text into sheets and search it, which is good but this won't allow me to actually highlight the pdf obviously. Found some vbs that I tried to port over but no luck. Right, so after hours of searching I've come up with nothing for excel vba, which I find surprising.
0 kommentar(er)
