 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / July 2005find works for table but not textbox
I use find with selection object and it works when I do in a document with tables. (replace does not work. So I use typetext to replace). But it does not work when I do with text boxes. I am using vb6 in visual studio 6 and word 2000. Any help would be appreciated. Daniel See the article "Using a macro to replace text where ever it appears in a document including Headers, Footers, Textboxes, etc." at: http://word.mvps.org/FAQs/Customization/ReplaceAnywhere.htm  SignatureHope 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 >I use find with selection object and it works when I do in a document with > tables. (replace does not work. So I use typetext to replace). But it does [quoted text clipped - 4 lines] > > Daniel I read the link you provided. Is range available in vb6? Somehow it does not compile under vb6. I cannot declare range object. > See the article "Using a macro to replace text where ever it appears in a > document [quoted text clipped - 11 lines] > > > > Daniel Hi Daniel, once you got a word object (oWrd), you declare a range like that: Can't test it right now. Dim WrdRange as oWrd.range ' not just range set WrdRange = owrd.activedocument.range Greetings from Bavaria, Germany Helmut Weber, MVP, WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" I am getting a compile error: User-defined type not defined on Dim wdRng As loWord.Range in below codes. As I mentioned in previous post, I am using vb 6 in visual studio 6. I am also using ms word 2000. Any help would be appreciated. Set loWord = CreateObject("Word.Application") Set doc1 = loWord.Documents.Open("c:\abc.dot") Set loSel = loWord.Selection Dim wdRng As loWord.Range Set wdRng = doc1.Range > Hi Daniel, > [quoted text clipped - 10 lines] > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Hi Daniel, maybe it's not my day, as it's terribly hot in bavaria, but it seems, you want to define a range, that would be an application's range, instead of a range of a document of the application. HTH Greetings from Bavaria, Germany Helmut Weber, MVP, WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" It has been pretty hot here, too, in Chicago and not much rain. I got code samples as shown below from the site Doug Robbins posted. But when I define 'Dim myRange As Range', I am getting the same compile error. Is this because I am using vb6 in visual studio 6? Thanks Daniel Sub FindAndReplaceFirstStoryOfEachType() Dim myStoryRange As Range For Each myStoryRange In ActiveDocument.StoryRanges With myStoryRange.Find .Text = "findme" .Replacement.Text = "" .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With Next myStoryRange End Sub > Hi Daniel, > [quoted text clipped - 11 lines] > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Hi Helmut, It has been pretty hot here in Chicago, too. I got below sample codes from the site Doug Robbins posted. And when I try to define 'Dim myRange As Range', I am getting the same compile error I posted before. I am not sure whether it is because I am using vb6 in visual studio 6. Thanks for your reply. Daniel Sub FindAndReplaceFirstStoryOfEachType() Dim myStoryRange As Range For Each myStoryRange In ActiveDocument.StoryRanges With myStoryRange.Find .Text = "findme" .Replacement.Text = "" .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With Next myStoryRange End Sub > Hi Daniel, > [quoted text clipped - 11 lines] > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Do you have a reference set to the Word Object Model? SignatureHope 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 > Hi Helmut, > [quoted text clipped - 39 lines] >> Win XP, Office 2003 >> "red.sys" & Chr$(64) & "t-online.de" How can I check whether I have a reference set to the Word Object Model? Thanks Daniel > Do you have a reference set to the Word Object Model? > [quoted text clipped - 41 lines] > >> Win XP, Office 2003 > >> "red.sys" & Chr$(64) & "t-online.de" Hi Daniel in the VBA-Editor: Tools, References Greetings from Bavaria, Germany Helmut Weber, MVP, WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" I am not using vba editor. I am using vb6 in visual studio 6. I am using vba codes to build ocx and called by vbscript. If I used visual studio .net, will I have all the objects in word 2000. Then, I am not sure whether I can build ocx and use it in vbscript. Thanks Daniel > Hi Daniel > [quoted text clipped - 7 lines] > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Hi Daniel, if VB6 it is Project, References Greetings from Bavaria, Germany Helmut Weber, MVP, WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" After I added reference for word object, replace using range worked file. When I build cab file for distribution, it includes word object file 9 (word 2000). Will this work for word 2002, too? Thanks Daniel > Hi Daniel, > [quoted text clipped - 6 lines] > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Hi Daniel, I don't think so. In such cases "late binding" is often recommended. There may be people in the VB-groups, who know better. Greetings from Bavaria, Germany Helmut Weber, MVP "red.sys" & chr(64) & "t-online.de" Word 2002, Windows 2000 |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.