I am starting to get the feeling it is the Find/Replace code that is causing the problem.
I'm not using bookmarks, just a code in text i.e. "$Date", then doing a find/replace all... I'll try a Find, then Typetext... From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Jason Coley Sent: Tuesday, 16 June 2009 8:01 a.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] MS Word replacement text Hey Dave, yeah still in Palmy, still doing the same thing, the Outlook addins, Envelopes & Labels, Office Documents and CategorieZ. When I add text to a bookmark, I use the following to replace the text using sFieldData, which is a string. oleApp.Selection.Range.Start := bmStart; oleApp.Selection.Text := Trim(sFieldData); oleApp.Selection.Range.End := bmStart; And when I build the string I use #13 + #10 as a carriage return. So it may be because of the table, have you tried doing this in document outside of the table to see if it has the same issue. I will create some test documents here and use my addin to add an address to a table cell and see what happens. What version of Office 2007, what service packs installed. Jason From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Dave O'Brien Sent: Monday, 15 June 2009 3:56 p.m. To: Jason Subject: Re: [DUG] MS Word replacement text Hi Jason, long time no see... Are you still in PN? Yes, tried all combinations of #10 & #13. The text I'm replacing is in a table cell, so that may be something to do with it. Using Office 2007 if that make's a difference. I've also tried using a stringlist with multiple lines and this has the same effect (two spaces rather than a new line). The code I'm using is: procedure Replace(This, That: OLEVariant) ; begin WA.Selection.Find.ClearFormatting ; WA.Selection.Find.Text := This ; WA.Selection.Find.Replacement.Text := That ; WA.Selection.Find.Forward := True ; WA.Selection.Find.MatchAllWordForms := False ; WA.Selection.Find.MatchCase := False ; WA.Selection.Find.MatchWildcards := False ; WA.Selection.Find.MatchSoundsLike := False ; WA.Selection.Find.MatchWholeWord := False ; WA.Selection.Find.MatchFuzzy := False ; WA.Selection.Find.Wrap := wdFindContinue ; WA.Selection.Find.Format := False ; WA.Selection.Find.Execute(Replace := wdReplaceAll) ; end; Where WA is: WA := CreateOLEObject('Word.Application') ; From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Jason Coley Sent: Monday, 15 June 2009 3:26 p.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] MS Word replacement text Have you tried using just #10 (or is it just #13) Jason From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Dave O'Brien Sent: Monday, 15 June 2009 1:54 p.m. To: Jason Subject: [DUG] MS Word replacement text I'm working with Word templates, replacing markers with text. I'm having trouble with new lines in the text, i.e. I want a new line, but the Word document doesn't want to play. I have tried #13#10, but this just puts two spaces in the text. Is there another code I need to use to force a new line? Regards, Dave.
_______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: unsubscribe
