BorlandTalk.com

Rok Rejc · Guest

I want to write a function which finds some tag in Microsoft Word
document (like <#TAG>) and replaces the tag with a picture (picture must
be inserted at the tag position, and tag must be removed).

I have written this funciton:
for I:=0 to 11 do // all story ranges
begin
sSearchTag:='<#TAG>';
sSearchValue:='c:picture.jpg';
repeat
// Loop through all tags in a range
Range:=MSWord.ActiveDocument.StoryRanges.Item(I);
iPosStart:=Pos(sSearchTag, Range.text) - 1;
if iPosStart >= 0 then
begin
iPosEnd:=iPosStart + Length(sSearchTag);
Range.SetRange(iPosStart, iPosEnd);
if IsImageFile(sSearchValue) then
begin
// Image values
Range.Text:='';
Range.InlineShapes.AddPicture(sSearchValue);
end
else
// Text values
Range.Text:=sSearchValue;
end;
until (iPosStart < 0);
end;

But this function doesn't work because iPosStart isn't right. In
Range.Text there are also some "formating" chars like #$D, #1 ...
Anybody knows how to write function that will work. I have read all msdn
and similar sites but i dont have a clue. Thanks.

Oliver Townshend · Guest

Rok Rejc · Guest

Yes, i know about the search functionality. But how should i use it?
How can i get start position of tag ?

Range.Find.Execute method returns only boolean (found or not found).
For replacing text i can use this method:

procedure TrrWordReport.ReplaceTagInRange(ARange: Range; ATag, AValue:
WideString);
var
vFind: OleVariant;
vReplaceWith: OleVariant;
vMatchCase: OleVariant;
vMatchWholeWord: OleVariant;
vReplace: OleVariant;
begin
vFind:=ATag;
vReplaceWith:=AValue;
vMatchCase:=True;
vMatchWholeWord:=True;
vReplace:=wdReplaceAll;

ARange.Find.Execute(vFind, vMatchCase, vMatchWholeWord, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam,
vReplaceWith,
vReplace, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

Any idea ?

Oliver Townshend wrote:

Oliver Townshend · Guest

Rok Rejc · Guest

Yeah its working Smile

Thanks.

Oliver Townshend wrote: