Searching for text boxes
in [Document Management]
|
From: Peter T. Daniels on 18 Dec 2009 09:30 Note that in none of your responses have you said what you actually want to _do_ with each of the text boxes! If you reveal that information, someone like Graham might be able to create a macro that does it. (Once you seemed to indicate that you want to convert boxed text to plain text, which is what my procedure will do.) On Dec 18, 4:10 am, Chad Williams <ChadWilli...(a)discussions.microsoft.com> wrote: > Thank you Peter, but that's not what I want. I just want to be able to go > from one text box to another. "Ctrl-A, Ctrl-Q" doesn't do that. But I do > appreciate your trying to help. > > > > "Peter T. Daniels" wrote: > > A while ago, I exported some text from a pdf into a Word file, and a > > lot of it was in text boxes (or maybe frames), and someone here > > suggested Ctrl-A, Ctrl-Q. It worked. > > > On Dec 17, 10:42 pm, Chad Williams > > <ChadWilli...(a)discussions.microsoft.com> wrote: > > > Graham, thanks for your response. > > > > Actually, I simply want to find all the text boxes and then delete them. A > > > lot of the times they are in footers, as well. Being able to search for text > > > boxes, the same way you can search for, say, any word or any style would be > > > so helpful. I know that you can search for graphics in a document. I wonder > > > why an option for searching for text boxes isn't also available? Anyhow, I > > > guess I'll just have to live with it as is. > > > > "Graham Mayor" wrote: > > > > 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 sitewww.gmayor.com > > > > Word MVP web sitehttp://word.mvps.org > > > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > > > > > "Chad Williams" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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 18 Dec 2009 18:24 I honestly thank you for your help, Peter. Maybe you didn't read my very first post where I simply was asking for help in how to simply search for text boxes within a document, in the same way you would search for a word. I never really specified the reason. Maybe you came in later in the thread. But I do appreciate your help and anyone's help here. As you know, there's a lot to know when it comes to heavy-duty Word document work. Chad. "Peter T. Daniels" wrote: > Note that in none of your responses have you said what you actually > want to _do_ with each of the text boxes! If you reveal that > information, someone like Graham might be able to create a macro that > does it. (Once you seemed to indicate that you want to convert boxed > text to plain text, which is what my procedure will do.) > > On Dec 18, 4:10 am, Chad Williams > <ChadWilli...(a)discussions.microsoft.com> wrote: > > Thank you Peter, but that's not what I want. I just want to be able to go > > from one text box to another. "Ctrl-A, Ctrl-Q" doesn't do that. But I do > > appreciate your trying to help. > > > > > > > > "Peter T. Daniels" wrote: > > > A while ago, I exported some text from a pdf into a Word file, and a > > > lot of it was in text boxes (or maybe frames), and someone here > > > suggested Ctrl-A, Ctrl-Q. It worked. > > > > > On Dec 17, 10:42 pm, Chad Williams > > > <ChadWilli...(a)discussions.microsoft.com> wrote: > > > > Graham, thanks for your response. > > > > > > Actually, I simply want to find all the text boxes and then delete them. A > > > > lot of the times they are in footers, as well. Being able to search for text > > > > boxes, the same way you can search for, say, any word or any style would be > > > > so helpful. I know that you can search for graphics in a document. I wonder > > > > why an option for searching for text boxes isn't also available? Anyhow, I > > > > guess I'll just have to live with it as is. > > > > > > "Graham Mayor" wrote: > > > > > 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 sitewww.gmayor.com > > > > > Word MVP web sitehttp://word.mvps.org > > > > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > > > > > > > "Chad Williams" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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: Suzanne S. Barnhill on 18 Dec 2009 22:35 Peter was pointing out that you didn't say why you wanted to search for text boxes. A little more detail would have helped us fine-tune our advice because some of the questions that come up are, for example, "Are these really text boxes, or might they be frames instead?" and "Do you want to find them in order to delete them entirely, or do you want to preserve their content but remove it from the text boxes and then delete the text boxes?" and "Do you want to find the text boxes in order to apply some sort of consistent formatting?" And so on. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message news:DCEFEDF6-D562-4869-98E1-E85042607D72(a)microsoft.com... >I honestly thank you for your help, Peter. Maybe you didn't read my very > first post where I simply was asking for help in how to simply search for > text boxes within a document, in the same way you would search for a word. > I > never really specified the reason. Maybe you came in later in the thread. > But I do appreciate your help and anyone's help here. As you know, > there's a > lot to know when it comes to heavy-duty Word document work. Chad. > > "Peter T. Daniels" wrote: > >> Note that in none of your responses have you said what you actually >> want to _do_ with each of the text boxes! If you reveal that >> information, someone like Graham might be able to create a macro that >> does it. (Once you seemed to indicate that you want to convert boxed >> text to plain text, which is what my procedure will do.) >> >> On Dec 18, 4:10 am, Chad Williams >> <ChadWilli...(a)discussions.microsoft.com> wrote: >> > Thank you Peter, but that's not what I want. I just want to be able to >> > go >> > from one text box to another. "Ctrl-A, Ctrl-Q" doesn't do that. But I >> > do >> > appreciate your trying to help. >> > >> > >> > >> > "Peter T. Daniels" wrote: >> > > A while ago, I exported some text from a pdf into a Word file, and a >> > > lot of it was in text boxes (or maybe frames), and someone here >> > > suggested Ctrl-A, Ctrl-Q. It worked. >> > >> > > On Dec 17, 10:42 pm, Chad Williams >> > > <ChadWilli...(a)discussions.microsoft.com> wrote: >> > > > Graham, thanks for your response. >> > >> > > > Actually, I simply want to find all the text boxes and then delete >> > > > them. A >> > > > lot of the times they are in footers, as well. Being able to >> > > > search for text >> > > > boxes, the same way you can search for, say, any word or any style >> > > > would be >> > > > so helpful. I know that you can search for graphics in a document. >> > > > I wonder >> > > > why an option for searching for text boxes isn't also available? >> > > > Anyhow, I >> > > > guess I'll just have to live with it as is. >> > >> > > > "Graham Mayor" wrote: >> > > > > 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 sitewww.gmayor.com >> > > > > Word MVP web sitehttp://word.mvps.org >> > > > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> >> > >> > > > > "Chad Williams" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" >> > > > > >> >> >> >> <ChadWilli...(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 20 Dec 2009 21:31 Thank you Suzanne and thank you Peter. Sorry, I thought I was clear and now I see the problem. Well, I simply would like a macro (if you can do it) to search for the next text box in the document and have the cursor bring me to that text box and then stop. Then, at that point, I would determine what I want to do with that text box. Then, I want to run the macro again from where my cursor is (at that point I would place it after the first text box) and then have the macro take my cursor to the next text box and stop. And so forth. (If you can do another macro for frames, that would be an added bonus.) But it's more the text box search that I would love to have. And I'm praying that I have been more clear here than previously. Thank you. Chad. "Suzanne S. Barnhill" wrote: > Peter was pointing out that you didn't say why you wanted to search for text > boxes. A little more detail would have helped us fine-tune our advice > because some of the questions that come up are, for example, "Are these > really text boxes, or might they be frames instead?" and "Do you want to > find them in order to delete them entirely, or do you want to preserve their > content but remove it from the text boxes and then delete the text boxes?" > and "Do you want to find the text boxes in order to apply some sort of > consistent formatting?" And so on. > > -- > Suzanne S. Barnhill > Microsoft MVP (Word) > Words into Type > Fairhope, Alabama USA > http://word.mvps.org > > "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message > news:DCEFEDF6-D562-4869-98E1-E85042607D72(a)microsoft.com... > >I honestly thank you for your help, Peter. Maybe you didn't read my very > > first post where I simply was asking for help in how to simply search for > > text boxes within a document, in the same way you would search for a word. > > I > > never really specified the reason. Maybe you came in later in the thread. > > But I do appreciate your help and anyone's help here. As you know, > > there's a > > lot to know when it comes to heavy-duty Word document work. Chad. > > > > "Peter T. Daniels" wrote: > > > >> Note that in none of your responses have you said what you actually > >> want to _do_ with each of the text boxes! If you reveal that > >> information, someone like Graham might be able to create a macro that > >> does it. (Once you seemed to indicate that you want to convert boxed > >> text to plain text, which is what my procedure will do.) > >> > >> On Dec 18, 4:10 am, Chad Williams > >> <ChadWilli...(a)discussions.microsoft.com> wrote: > >> > Thank you Peter, but that's not what I want. I just want to be able to > >> > go > >> > from one text box to another. "Ctrl-A, Ctrl-Q" doesn't do that. But I > >> > do > >> > appreciate your trying to help. > >> > > >> > > >> > > >> > "Peter T. Daniels" wrote: > >> > > A while ago, I exported some text from a pdf into a Word file, and a > >> > > lot of it was in text boxes (or maybe frames), and someone here > >> > > suggested Ctrl-A, Ctrl-Q. It worked. > >> > > >> > > On Dec 17, 10:42 pm, Chad Williams > >> > > <ChadWilli...(a)discussions.microsoft.com> wrote: > >> > > > Graham, thanks for your response. > >> > > >> > > > Actually, I simply want to find all the text boxes and then delete > >> > > > them. A > >> > > > lot of the times they are in footers, as well. Being able to > >> > > > search for text > >> > > > boxes, the same way you can search for, say, any word or any style > >> > > > would be > >> > > > so helpful. I know that you can search for graphics in a document. > >> > > > I wonder > >> > > > why an option for searching for text boxes isn't also available? > >> > > > Anyhow, I > >> > > > guess I'll just have to live with it as is. > >> > > >> > > > "Graham Mayor" wrote: > >> > > > > 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 sitewww.gmayor.com > >> > > > > Word MVP web sitehttp://word.mvps.org > >> > > > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > >> > > >> > > > > "Chad Williams" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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.
From: Graham Mayor on 21 Dec 2009 00:52 As I offered a few days ago, if you send me a sample of the document, I will see what needs to be done to locate the boxes it contains. -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> 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:2C334329-93BB-4B72-8876-A8648ED12D95(a)microsoft.com... > Thank you Suzanne and thank you Peter. Sorry, I thought I was clear and > now > I see the problem. Well, I simply would like a macro (if you can do it) > to > search for the next text box in the document and have the cursor bring me > to > that text box and then stop. Then, at that point, I would determine what > I > want to do with that text box. Then, I want to run the macro again from > where my cursor is (at that point I would place it after the first text > box) > and then have the macro take my cursor to the next text box and stop. And > so > forth. (If you can do another macro for frames, that would be an added > bonus.) But it's more the text box search that I would love to have. And > I'm praying that I have been more clear here than previously. Thank you. > Chad. > > "Suzanne S. Barnhill" wrote: > >> Peter was pointing out that you didn't say why you wanted to search for >> text >> boxes. A little more detail would have helped us fine-tune our advice >> because some of the questions that come up are, for example, "Are these >> really text boxes, or might they be frames instead?" and "Do you want to >> find them in order to delete them entirely, or do you want to preserve >> their >> content but remove it from the text boxes and then delete the text >> boxes?" >> and "Do you want to find the text boxes in order to apply some sort of >> consistent formatting?" And so on. >> >> -- >> Suzanne S. Barnhill >> Microsoft MVP (Word) >> Words into Type >> Fairhope, Alabama USA >> http://word.mvps.org >> >> "Chad Williams" <ChadWilliams(a)discussions.microsoft.com> wrote in message >> news:DCEFEDF6-D562-4869-98E1-E85042607D72(a)microsoft.com... >> >I honestly thank you for your help, Peter. Maybe you didn't read my >> >very >> > first post where I simply was asking for help in how to simply search >> > for >> > text boxes within a document, in the same way you would search for a >> > word. >> > I >> > never really specified the reason. Maybe you came in later in the >> > thread. >> > But I do appreciate your help and anyone's help here. As you know, >> > there's a >> > lot to know when it comes to heavy-duty Word document work. Chad. >> > >> > "Peter T. Daniels" wrote: >> > >> >> Note that in none of your responses have you said what you actually >> >> want to _do_ with each of the text boxes! If you reveal that >> >> information, someone like Graham might be able to create a macro that >> >> does it. (Once you seemed to indicate that you want to convert boxed >> >> text to plain text, which is what my procedure will do.) >> >> >> >> On Dec 18, 4:10 am, Chad Williams >> >> <ChadWilli...(a)discussions.microsoft.com> wrote: >> >> > Thank you Peter, but that's not what I want. I just want to be able >> >> > to >> >> > go >> >> > from one text box to another. "Ctrl-A, Ctrl-Q" doesn't do that. >> >> > But I >> >> > do >> >> > appreciate your trying to help. >> >> > >> >> > >> >> > >> >> > "Peter T. Daniels" wrote: >> >> > > A while ago, I exported some text from a pdf into a Word file, and >> >> > > a >> >> > > lot of it was in text boxes (or maybe frames), and someone here >> >> > > suggested Ctrl-A, Ctrl-Q. It worked. >> >> > >> >> > > On Dec 17, 10:42 pm, Chad Williams >> >> > > <ChadWilli...(a)discussions.microsoft.com> wrote: >> >> > > > Graham, thanks for your response. >> >> > >> >> > > > Actually, I simply want to find all the text boxes and then >> >> > > > delete >> >> > > > them. A >> >> > > > lot of the times they are in footers, as well. Being able to >> >> > > > search for text >> >> > > > boxes, the same way you can search for, say, any word or any >> >> > > > style >> >> > > > would be >> >> > > > so helpful. I know that you can search for graphics in a >> >> > > > document. >> >> > > > I wonder >> >> > > > why an option for searching for text boxes isn't also available? >> >> > > > Anyhow, I >> >> > > > guess I'll just have to live with it as is. >> >> > >> >> > > > "Graham Mayor" wrote: >> >> > > > > 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 sitewww.gmayor.com >> >> > > > > Word MVP web sitehttp://word.mvps.org >> >> > > > > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> >> >> > >> >> > > > > "Chad Williams" <ChadWilli...(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" <ChadWilli...(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" <ChadWilli...(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" >> >> > > > > >> >> >> <ChadWilli...(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.
First
|
Prev
|
Next
|
Last
Pages: 1 2 3 4 5 Prev: .asd files created by Word 2007 Next: my word 2007 is locked |