From: Doug Robbins - Word MVP on 16 Dec 2009 05:26 I did test the macro before I sent it. Exactly what type of Text boxes are you talking about? How were they inserted into the document? -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message news:15D35822-C51F-404F-9279-D31734AEB4B1(a)microsoft.com... > Doug, thanks again for your reply. I read the article and I was able to > figure it out. However, I created a document with 20 boxes. The search > macro that is listed here doesn't take me from box to box. Is that the > fault > of the macro? Could you try a simple test and let me know please? Thank > you. Chad. > > "Doug Robbins - Word MVP" wrote: > >> See the article "What do I do with macros sent to me by other newsgroup >> readers to help me out?” at: >> http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm >> >> >> -- >> Hope this helps, >> >> Doug Robbins - Word MVP >> >> Please reply only to the newsgroups unless you wish to obtain my services >> on >> a paid professional basis. >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message >> news:6C8A71E8-11FB-466A-8AB3-6125AFC5A1AC(a)microsoft.com... >> > Doug, thank you for your response -- however, I don't understand you. >> > When I >> > do a scan cleanup --sometimes using Omnipro-- I want to be able to >> > search >> > for >> > all the text boxes in the document. How do I run the macro you posted >> > below? >> > Do I go to "Tools", "Macros" and then do something? If possible, >> > please >> > explain. Thanks, Chad. >> > >> > "Doug Robbins - Word MVP" wrote: >> > >> >> What do you want to do when you find them. >> >> >> >> Running the following macro will find them >> >> >> >> Dim i As Long >> >> With ActiveDocument >> >> For i = 1 To .Shapes.Count >> >> If .Shapes(i).Type = msoTextBox Then >> >> .Shapes(i).Select >> >> MsgBox "The selected shape is a text box." >> >> End If >> >> Next i >> >> End With >> >> >> >> >> >> -- >> >> Hope this helps, >> >> >> >> Doug Robbins - Word MVP >> >> >> >> Please reply only to the newsgroups unless you wish to obtain my >> >> services >> >> on >> >> a paid professional basis. >> >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in >> >> message >> >> news:C5ACF817-DFCF-4FC0-88A1-C122CC4466B6(a)microsoft.com... >> >> > Is there a way to search for text boxes within a word (Microsoft >> >> > Office >> >> > Professional Edition 2003 version) document? Searching for >> >> > "graphics" >> >> > does >> >> > not do the trick. I can't find anyone who can figure this out. >> >> > Thank >> >> > you! >> >> >>
From: Chad Williams on 16 Dec 2009 19:23 Doug, here's the problem. I have to convert huge documents from pdf into Word. I use Omni pro and the document ends up with many many text boxes and I want to be able to search for them going down the document from one to the next, in the same way that you would search for any word. The macro you gave me here did work. It would take me to a text box. But it kept going back to the same box. I want the macro to search for the first text box and then, when I run the macro again from that point, I want it to go to the next text box. It wasn't doing that. I don't know if that's the fault of the macro or of my ignorance in using it. Thanks, Chad. "Doug Robbins - Word MVP" wrote: > I did test the macro before I sent it. Exactly what type of Text boxes are > you talking about? How were they inserted into the document? > > -- > Hope this helps. > > Please reply to the newsgroup unless you wish to avail yourself of my > services on a paid consulting basis. > > Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > > "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message > news:15D35822-C51F-404F-9279-D31734AEB4B1(a)microsoft.com... > > Doug, thanks again for your reply. I read the article and I was able to > > figure it out. However, I created a document with 20 boxes. The search > > macro that is listed here doesn't take me from box to box. Is that the > > fault > > of the macro? Could you try a simple test and let me know please? Thank > > you. Chad. > > > > "Doug Robbins - Word MVP" wrote: > > > >> See the article "What do I do with macros sent to me by other newsgroup > >> readers to help me out?” at: > >> http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm > >> > >> > >> -- > >> Hope this helps, > >> > >> Doug Robbins - Word MVP > >> > >> Please reply only to the newsgroups unless you wish to obtain my services > >> on > >> a paid professional basis. > >> > >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message > >> news:6C8A71E8-11FB-466A-8AB3-6125AFC5A1AC(a)microsoft.com... > >> > Doug, thank you for your response -- however, I don't understand you. > >> > When I > >> > do a scan cleanup --sometimes using Omnipro-- I want to be able to > >> > search > >> > for > >> > all the text boxes in the document. How do I run the macro you posted > >> > below? > >> > Do I go to "Tools", "Macros" and then do something? If possible, > >> > please > >> > explain. Thanks, Chad. > >> > > >> > "Doug Robbins - Word MVP" wrote: > >> > > >> >> What do you want to do when you find them. > >> >> > >> >> Running the following macro will find them > >> >> > >> >> Dim i As Long > >> >> With ActiveDocument > >> >> For i = 1 To .Shapes.Count > >> >> If .Shapes(i).Type = msoTextBox Then > >> >> .Shapes(i).Select > >> >> MsgBox "The selected shape is a text box." > >> >> End If > >> >> Next i > >> >> End With > >> >> > >> >> > >> >> -- > >> >> Hope this helps, > >> >> > >> >> Doug Robbins - Word MVP > >> >> > >> >> Please reply only to the newsgroups unless you wish to obtain my > >> >> services > >> >> on > >> >> a paid professional basis. > >> >> > >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in > >> >> message > >> >> news:C5ACF817-DFCF-4FC0-88A1-C122CC4466B6(a)microsoft.com... > >> >> > Is there a way to search for text boxes within a word (Microsoft > >> >> > Office > >> >> > Professional Edition 2003 version) document? Searching for > >> >> > "graphics" > >> >> > does > >> >> > not do the trick. I can't find anyone who can figure this out. > >> >> > Thank > >> >> > you! > >> >> > >>
From: Doug Robbins - Word MVP on 16 Dec 2009 21:21 The following might work for you Dim i As Long Dim myrange As Range Set myrange = Selection.Range myrange.End = ActiveDocument.Range.End With myrange If .ShapeRange.Count > 0 Then For i = 1 To .ShapeRange.Count If .ShapeRange(i).Type = msoTextBox Then .ShapeRange(i).Select MsgBox "The selected shape is a text box." Exit Sub End If Next i End If End With You will have to move the selection out of the text box before running it again and it will only pick up one shape per shape anchor location. -- Hope this helps, Doug Robbins - Word MVP Please reply only to the newsgroups unless you wish to obtain my services on a paid professional basis. "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message news:083E2130-AFCD-4814-87E7-BA2827C149C6(a)microsoft.com... > Doug, here's the problem. I have to convert huge documents from pdf into > Word. I use Omni pro and the document ends up with many many text boxes > and > I want to be able to search for them going down the document from one to > the > next, in the same way that you would search for any word. The macro you > gave > me here did work. It would take me to a text box. But it kept going back > to > the same box. I want the macro to search for the first text box and then, > when I run the macro again from that point, I want it to go to the next > text > box. It wasn't doing that. I don't know if that's the fault of the macro > or > of my ignorance in using it. > > Thanks, > Chad. > > "Doug Robbins - Word MVP" wrote: > >> I did test the macro before I sent it. Exactly what type of Text boxes >> are >> you talking about? How were they inserted into the document? >> >> -- >> Hope this helps. >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> services on a paid consulting basis. >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message >> news:15D35822-C51F-404F-9279-D31734AEB4B1(a)microsoft.com... >> > Doug, thanks again for your reply. I read the article and I was able >> > to >> > figure it out. However, I created a document with 20 boxes. The >> > search >> > macro that is listed here doesn't take me from box to box. Is that the >> > fault >> > of the macro? Could you try a simple test and let me know please? >> > Thank >> > you. Chad. >> > >> > "Doug Robbins - Word MVP" wrote: >> > >> >> See the article "What do I do with macros sent to me by other >> >> newsgroup >> >> readers to help me out?” at: >> >> http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm >> >> >> >> >> >> -- >> >> Hope this helps, >> >> >> >> Doug Robbins - Word MVP >> >> >> >> Please reply only to the newsgroups unless you wish to obtain my >> >> services >> >> on >> >> a paid professional basis. >> >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in >> >> message >> >> news:6C8A71E8-11FB-466A-8AB3-6125AFC5A1AC(a)microsoft.com... >> >> > Doug, thank you for your response -- however, I don't understand >> >> > you. >> >> > When I >> >> > do a scan cleanup --sometimes using Omnipro-- I want to be able to >> >> > search >> >> > for >> >> > all the text boxes in the document. How do I run the macro you >> >> > posted >> >> > below? >> >> > Do I go to "Tools", "Macros" and then do something? If possible, >> >> > please >> >> > explain. Thanks, Chad. >> >> > >> >> > "Doug Robbins - Word MVP" wrote: >> >> > >> >> >> What do you want to do when you find them. >> >> >> >> >> >> Running the following macro will find them >> >> >> >> >> >> Dim i As Long >> >> >> With ActiveDocument >> >> >> For i = 1 To .Shapes.Count >> >> >> If .Shapes(i).Type = msoTextBox Then >> >> >> .Shapes(i).Select >> >> >> MsgBox "The selected shape is a text box." >> >> >> End If >> >> >> Next i >> >> >> End With >> >> >> >> >> >> >> >> >> -- >> >> >> Hope this helps, >> >> >> >> >> >> Doug Robbins - Word MVP >> >> >> >> >> >> Please reply only to the newsgroups unless you wish to obtain my >> >> >> services >> >> >> on >> >> >> a paid professional basis. >> >> >> >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in >> >> >> message >> >> >> news:C5ACF817-DFCF-4FC0-88A1-C122CC4466B6(a)microsoft.com... >> >> >> > Is there a way to search for text boxes within a word (Microsoft >> >> >> > Office >> >> >> > Professional Edition 2003 version) document? Searching for >> >> >> > "graphics" >> >> >> > does >> >> >> > not do the trick. I can't find anyone who can figure this out. >> >> >> > Thank >> >> >> > you! >> >> >> >> >>
From: Chad Williams on 16 Dec 2009 22:06 Hi Doug. Thanks again for the effort. I used the macro you put here... but it's the same problem. It does find the first text box. Then I move the cursor after that first text box and hit "Alt+F8" "Run" and that's where the snag is. It doesn't take me to the next text box. It takes me to the last text box. And actually it doesn't take me anywhere... in other words, the cursor simply disappears. I then click on the page where I am and hit "Shift F5" to go to the previous location -- this was my workaround to find where the cursor was last.... and that's when it takes me to the last text box. I wish the macro simply took me to the text boxes in the order that they are in the document. Any further tweaking of that macro would be helpful. Thanks. Chad. "Doug Robbins - Word MVP" wrote: > The following might work for you > > Dim i As Long > Dim myrange As Range > Set myrange = Selection.Range > myrange.End = ActiveDocument.Range.End > With myrange > If .ShapeRange.Count > 0 Then > For i = 1 To .ShapeRange.Count > If .ShapeRange(i).Type = msoTextBox Then > .ShapeRange(i).Select > MsgBox "The selected shape is a text box." > Exit Sub > End If > Next i > End If > End With > > You will have to move the selection out of the text box before running it > again and it will only pick up one shape per shape anchor location. > > -- > Hope this helps, > > Doug Robbins - Word MVP > > Please reply only to the newsgroups unless you wish to obtain my services on > a paid professional basis. > > "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message > news:083E2130-AFCD-4814-87E7-BA2827C149C6(a)microsoft.com... > > Doug, here's the problem. I have to convert huge documents from pdf into > > Word. I use Omni pro and the document ends up with many many text boxes > > and > > I want to be able to search for them going down the document from one to > > the > > next, in the same way that you would search for any word. The macro you > > gave > > me here did work. It would take me to a text box. But it kept going back > > to > > the same box. I want the macro to search for the first text box and then, > > when I run the macro again from that point, I want it to go to the next > > text > > box. It wasn't doing that. I don't know if that's the fault of the macro > > or > > of my ignorance in using it. > > > > Thanks, > > Chad. > > > > "Doug Robbins - Word MVP" wrote: > > > >> I did test the macro before I sent it. Exactly what type of Text boxes > >> are > >> you talking about? How were they inserted into the document? > >> > >> -- > >> Hope this helps. > >> > >> Please reply to the newsgroup unless you wish to avail yourself of my > >> services on a paid consulting basis. > >> > >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > >> > >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message > >> news:15D35822-C51F-404F-9279-D31734AEB4B1(a)microsoft.com... > >> > Doug, thanks again for your reply. I read the article and I was able > >> > to > >> > figure it out. However, I created a document with 20 boxes. The > >> > search > >> > macro that is listed here doesn't take me from box to box. Is that the > >> > fault > >> > of the macro? Could you try a simple test and let me know please? > >> > Thank > >> > you. Chad. > >> > > >> > "Doug Robbins - Word MVP" wrote: > >> > > >> >> See the article "What do I do with macros sent to me by other > >> >> newsgroup > >> >> readers to help me out?” at: > >> >> http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm > >> >> > >> >> > >> >> -- > >> >> Hope this helps, > >> >> > >> >> Doug Robbins - Word MVP > >> >> > >> >> Please reply only to the newsgroups unless you wish to obtain my > >> >> services > >> >> on > >> >> a paid professional basis. > >> >> > >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in > >> >> message > >> >> news:6C8A71E8-11FB-466A-8AB3-6125AFC5A1AC(a)microsoft.com... > >> >> > Doug, thank you for your response -- however, I don't understand > >> >> > you. > >> >> > When I > >> >> > do a scan cleanup --sometimes using Omnipro-- I want to be able to > >> >> > search > >> >> > for > >> >> > all the text boxes in the document. How do I run the macro you > >> >> > posted > >> >> > below? > >> >> > Do I go to "Tools", "Macros" and then do something? If possible, > >> >> > please > >> >> > explain. Thanks, Chad. > >> >> > > >> >> > "Doug Robbins - Word MVP" wrote: > >> >> > > >> >> >> What do you want to do when you find them. > >> >> >> > >> >> >> Running the following macro will find them > >> >> >> > >> >> >> Dim i As Long > >> >> >> With ActiveDocument > >> >> >> For i = 1 To .Shapes.Count > >> >> >> If .Shapes(i).Type = msoTextBox Then > >> >> >> .Shapes(i).Select > >> >> >> MsgBox "The selected shape is a text box." > >> >> >> End If > >> >> >> Next i > >> >> >> End With > >> >> >> > >> >> >> > >> >> >> -- > >> >> >> Hope this helps, > >> >> >> > >> >> >> Doug Robbins - Word MVP > >> >> >> > >> >> >> Please reply only to the newsgroups unless you wish to obtain my > >> >> >> services > >> >> >> on > >> >> >> a paid professional basis. > >> >> >> > >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in > >> >> >> message > >> >> >> news:C5ACF817-DFCF-4FC0-88A1-C122CC4466B6(a)microsoft.com... > >> >> >> > Is there a way to search for text boxes within a word (Microsoft > >> >> >> > Office > >> >> >> > Professional Edition 2003 version) document? Searching for > >> >> >> > "graphics" > >> >> >> > does > >> >> >> > not do the trick. I can't find anyone who can figure this out. > >> >> >> > Thank > >> >> >> > you! > >> >> >> > >> >> >
From: Graham Mayor on 17 Dec 2009 01:27 It might be simpler with an application that formats with text boxes to scan to plain text (which does not support then) and add your own formatting - or to use an OCR software package that does not use text boxes such as FineReader. Doesn't OmniPage have an option not to use text boxes? Attempting to remove the formatting by simply removing the text boxes (which may not be text boxes but frames) will result in a hell of a lot of work and cannot readily be achieved with a macro. -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message news:D4BAF6CC-24E6-49CA-8809-C1D3DE5819F8(a)microsoft.com... > Hi Doug. Thanks again for the effort. I used the macro you put here... > but > it's the same problem. It does find the first text box. Then I move the > cursor after that first text box and hit "Alt+F8" "Run" and that's where > the > snag is. It doesn't take me to the next text box. It takes me to the > last > text box. And actually it doesn't take me anywhere... in other words, the > cursor simply disappears. I then click on the page where I am and hit > "Shift > F5" to go to the previous location -- this was my workaround to find where > the cursor was last.... and that's when it takes me to the last text box. > I > wish the macro simply took me to the text boxes in the order that they are > in > the document. Any further tweaking of that macro would be helpful. > Thanks. > Chad. > > "Doug Robbins - Word MVP" wrote: > >> The following might work for you >> >> Dim i As Long >> Dim myrange As Range >> Set myrange = Selection.Range >> myrange.End = ActiveDocument.Range.End >> With myrange >> If .ShapeRange.Count > 0 Then >> For i = 1 To .ShapeRange.Count >> If .ShapeRange(i).Type = msoTextBox Then >> .ShapeRange(i).Select >> MsgBox "The selected shape is a text box." >> Exit Sub >> End If >> Next i >> End If >> End With >> >> You will have to move the selection out of the text box before running it >> again and it will only pick up one shape per shape anchor location. >> >> -- >> Hope this helps, >> >> Doug Robbins - Word MVP >> >> Please reply only to the newsgroups unless you wish to obtain my services >> on >> a paid professional basis. >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message >> news:083E2130-AFCD-4814-87E7-BA2827C149C6(a)microsoft.com... >> > Doug, here's the problem. I have to convert huge documents from pdf >> > into >> > Word. I use Omni pro and the document ends up with many many text >> > boxes >> > and >> > I want to be able to search for them going down the document from one >> > to >> > the >> > next, in the same way that you would search for any word. The macro >> > you >> > gave >> > me here did work. It would take me to a text box. But it kept going >> > back >> > to >> > the same box. I want the macro to search for the first text box and >> > then, >> > when I run the macro again from that point, I want it to go to the next >> > text >> > box. It wasn't doing that. I don't know if that's the fault of the >> > macro >> > or >> > of my ignorance in using it. >> > >> > Thanks, >> > Chad. >> > >> > "Doug Robbins - Word MVP" wrote: >> > >> >> I did test the macro before I sent it. Exactly what type of Text >> >> boxes >> >> are >> >> you talking about? How were they inserted into the document? >> >> >> >> -- >> >> Hope this helps. >> >> >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> >> services on a paid consulting basis. >> >> >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in >> >> message >> >> news:15D35822-C51F-404F-9279-D31734AEB4B1(a)microsoft.com... >> >> > Doug, thanks again for your reply. I read the article and I was >> >> > able >> >> > to >> >> > figure it out. However, I created a document with 20 boxes. The >> >> > search >> >> > macro that is listed here doesn't take me from box to box. Is that >> >> > the >> >> > fault >> >> > of the macro? Could you try a simple test and let me know please? >> >> > Thank >> >> > you. Chad. >> >> > >> >> > "Doug Robbins - Word MVP" wrote: >> >> > >> >> >> See the article "What do I do with macros sent to me by other >> >> >> newsgroup >> >> >> readers to help me out?" at: >> >> >> http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm >> >> >> >> >> >> >> >> >> -- >> >> >> Hope this helps, >> >> >> >> >> >> Doug Robbins - Word MVP >> >> >> >> >> >> Please reply only to the newsgroups unless you wish to obtain my >> >> >> services >> >> >> on >> >> >> a paid professional basis. >> >> >> >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in >> >> >> message >> >> >> news:6C8A71E8-11FB-466A-8AB3-6125AFC5A1AC(a)microsoft.com... >> >> >> > Doug, thank you for your response -- however, I don't understand >> >> >> > you. >> >> >> > When I >> >> >> > do a scan cleanup --sometimes using Omnipro-- I want to be able >> >> >> > to >> >> >> > search >> >> >> > for >> >> >> > all the text boxes in the document. How do I run the macro you >> >> >> > posted >> >> >> > below? >> >> >> > Do I go to "Tools", "Macros" and then do something? If possible, >> >> >> > please >> >> >> > explain. Thanks, Chad. >> >> >> > >> >> >> > "Doug Robbins - Word MVP" wrote: >> >> >> > >> >> >> >> What do you want to do when you find them. >> >> >> >> >> >> >> >> Running the following macro will find them >> >> >> >> >> >> >> >> Dim i As Long >> >> >> >> With ActiveDocument >> >> >> >> For i = 1 To .Shapes.Count >> >> >> >> If .Shapes(i).Type = msoTextBox Then >> >> >> >> .Shapes(i).Select >> >> >> >> MsgBox "The selected shape is a text box." >> >> >> >> End If >> >> >> >> Next i >> >> >> >> End With >> >> >> >> >> >> >> >> >> >> >> >> -- >> >> >> >> Hope this helps, >> >> >> >> >> >> >> >> Doug Robbins - Word MVP >> >> >> >> >> >> >> >> Please reply only to the newsgroups unless you wish to obtain my >> >> >> >> services >> >> >> >> on >> >> >> >> a paid professional basis. >> >> >> >> >> >> >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote >> >> >> >> in >> >> >> >> message >> >> >> >> news:C5ACF817-DFCF-4FC0-88A1-C122CC4466B6(a)microsoft.com... >> >> >> >> > Is there a way to search for text boxes within a word >> >> >> >> > (Microsoft >> >> >> >> > Office >> >> >> >> > Professional Edition 2003 version) document? Searching for >> >> >> >> > "graphics" >> >> >> >> > does >> >> >> >> > not do the trick. I can't find anyone who can figure this >> >> >> >> > out. >> >> >> >> > Thank >> >> >> >> > you! >> >> >> >> >> >> >> >>
First
|
Prev
|
Next
|
Last
Pages: 1 2 3 4 5 Prev: .asd files created by Word 2007 Next: my word 2007 is locked |