BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  WinWord : Find doesn't match          BorlandTalk.com Forum Index -> Delphi OLE Automation View previous topic :: View next topic   Author Message Sylvain Epic Guest Posted: Wed Dec 15, 2004 5:35 pm    Post subject: WinWord : Find doesn't match Hello I want to find a text in a Winword document and replace it by picture. And it's ok ! Except if text is in "text area" ( I'm not sure of english translation. Please Tell me if it's wrong). Can somebody help me ? Thanks S. Back to top Deborah Pate (TeamB) Guest Posted: Thu Dec 16, 2004 11:54 am    Post subject: Re: WinWord : Find doesn't match < I want to find a text in a Winword document and replace it by picture. And it's ok ! Except if text is in "text area" Quote: You can search the wdTextFrameStory storyrange. Unfortunately if it doesn't exist because there are no textboxes, you get an exception, so you need to trap that. try SearchRng := Doc.StoryRanges.Item(wdTextFrameStory); SearchRng.Find.Execute('Text to find', Wrap := wdFindContinue); if SearchRng.Find.Found then begin SearchRng.Text := ''; Doc.InlineShapes.AddPicture('K:PicsHills.bmp', EmptyParam, EmptyParam, SearchRng); end; except on E: EOleSysError do begin end; else raise; end; -- Deborah Pate (TeamB) http://delphi-jedi.org TeamB don't see posts sent via Google or ISPs Use the real Borland server: newsgroups.borland.com http://www.borland.com/newsgroups/genl_faqs.html Back to top Sylvain Epic Guest Posted: Thu Dec 16, 2004 2:16 pm    Post subject: Re: WinWord : Find doesn't match Thanks Deborah But I've tried this : try Wrap := wdFindContinue; MatchAllWordForms := False; SelectRange := ActiveDocument.StoryRanges.Item(wdTextFrameStory); // SelectRange.Find.Execute ( SearchText, Wrap := wdFindContinue); Compilation error : "not enough parameters" SelectRange.Find.Execute ( SearchText,//alse,False,True,False,False,OleForward,0,False,False); MatchCase, MatchWholeWord, MatchWildcards, emptyParam,MatchAllWordForms, emptyParam, wrap, Format, emptyParam, emptyParam ); if SelectRange.Find.Found then begin SelectRange.Select; result := True; end else result:= False; And text is never found... Do you have an idea ? "Deborah Pate (TeamB)" <d.pate (AT) blueyonder (DOT) co.not-this-bit.uk> a écrit dans le message de news: [email]VA.00001fb4.00ae102e (AT) blueyonder (DOT) co.not-this-bit.uk[/email]... Quote: Sylvain Epic: I want to find a text in a Winword document and replace it by picture. And it's ok ! Except if text is in "text area" You can search the wdTextFrameStory storyrange. Unfortunately if it doesn't exist because there are no textboxes, you get an exception, so you need to trap that. try SearchRng := Doc.StoryRanges.Item(wdTextFrameStory); SearchRng.Find.Execute('Text to find', Wrap := wdFindContinue); if SearchRng.Find.Found then begin SearchRng.Text := ''; Doc.InlineShapes.AddPicture('K:PicsHills.bmp', EmptyParam, EmptyParam, SearchRng); end; except on E: EOleSysError do begin end; else raise; end; -- Deborah Pate (TeamB) http://delphi-jedi.org TeamB don't see posts sent via Google or ISPs Use the real Borland server: newsgroups.borland.com http://www.borland.com/newsgroups/genl_faqs.html Back to top Deborah Pate (TeamB) Guest Posted: Thu Dec 16, 2004 2:44 pm    Post subject: Re: WinWord : Find doesn't match < SelectRange.Find.Execute ( SearchText, Wrap := wdFindContinue); Compilation error : "not enough parameters" Quote: Sorry, I should have made it clear that my SearchRng variable was a variant. Microsoft recommends using late binding (i.e. variants) with the Find.Execute method anyway, because of bugs in early binding. -- Deborah Pate (TeamB) http://delphi-jedi.org TeamB don't see posts sent via Google or ISPs Use the real Borland server: newsgroups.borland.com http://www.borland.com/newsgroups/genl_faqs.html Back to top Sylvain Epic Guest Posted: Thu Dec 16, 2004 3:05 pm    Post subject: Re: WinWord : Find doesn't match Thanks : I did it ! But one restriction : it works only if document gets one page. If frame is on second page, find doesn't match... Any tip ? "Deborah Pate (TeamB)" <d.pate (AT) blueyonder (DOT) co.not-this-bit.uk> a écrit dans le message de news: [email]VA.00001fb8.014b7053 (AT) blueyonder (DOT) co.not-this-bit.uk[/email]... Quote: Sylvain Epic: SelectRange.Find.Execute ( SearchText, Wrap := wdFindContinue); Compilation error : "not enough parameters" Sorry, I should have made it clear that my SearchRng variable was a variant. Microsoft recommends using late binding (i.e. variants) with the Find.Execute method anyway, because of bugs in early binding. -- Deborah Pate (TeamB) http://delphi-jedi.org TeamB don't see posts sent via Google or ISPs Use the real Borland server: newsgroups.borland.com http://www.borland.com/newsgroups/genl_faqs.html Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi OLE Automation All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.