ارتباط بین دلفی با Bookmark مایکروسافت ورد

[حرفه ای]

دوستان گرامی
اگر اطلاعاتی راجع به طریقه نمایش اطلاعات فیلد و یا نتجه Query در Word با استفاده از Bookmark دارید در اختیار من هم بگذارید

متشکرم

[Touska]

ببین این کد :


uses ...... ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
WordApp: Variant;
Document: Variant;
Enum: IEnumVariant;
Bookmark: Variant;
begin
try
WordApp := GetActiveOleObject('Word.Application.8');
except
WordApp := CreateOleObject('Word.Application.8');
end;

WordApp.Visible := True;
Document := WordApp.Documents.Open('C:\My Documents\Bookmark.doc');

Memo1.Clear;
Enum := IUnknown(Document.Bookmarks._NewEnum) as IEnumVariant; // query for IEnumVariant interface
while Enum.Next(1, Bookmark, nil) = S_OK do
Memo1.Lines.Add(Bookmark.Name); // use this interface do enum items
end;

[Touska]

یا این لینک :

http://www.swissdelphicenter.ch/torry/showcode.php?id=1691

[Hsn.Zare]

سلام
من هم توی یه کاری از همین راه استفاده کردم. یه مشکلی توش برخوردم . من برای اینکه متنم فرمت خاصی داره، یعنی کاربر فونت و ... رو تغییر داده برای اینکه از به نرم افزار Word انتقال بدم این کار رو کردم
ابتدا محتوای RichEdit رو به ClipBoear بردم : RichEdit1.CopyToClipboard
بعد توی Word چسبوندمش : Word.Selection.PasteSpecial(DataType := $00000001)
اتفاقی که میفته اینه که برای متنی که داخلش اعداد قاطی داره و مخصوصا اسلش '/' داره به هم می ریزه
البته ربطی به راهی که رفتم نداره ولی این مشکل در متن های فارسی که اعداد و اسلش دارند وجود داره
راه آماده ای کسی نداره برای این کار؟