انتقال متن

[Delphi2010]

با سلام و درود
به نظر شما توی دلفی چطور می تونیم متن موجود در فرم مثلا Richedit با راست کلیک کردن امکانات زیر را به فرم مورد نظر اظافه کنیم :
انتقال به سند جاری (منظور از سند فایل وورد می باشد)
انتقال به سند جدید (آدرس بخواهد)
و هم چنین سند های که باز است نام انها را نمایش بدهد هر چند تا که باشد.

این امکان را در برخی نرم افزار ها دیدم به نظرتان چطور این کار را می کنند.
لطفا راهنمایی کنید .

[meysam_212]

سلام
منظورت از سند فایل ورود چی هست؟ ادرس چی رو بخواد؟ میتونی از پاپ آپ استفاده کنی

[Delphi2010]

منظور از فایل وورد اینه که فرض کنید متنی در فرم انتخاب (select) شده می خوهید این متن به فایل ووردی هم اکنون باز هست وارد بشه منظور از آدرس اینه که اگر چندتا فایل وورد باز باشه برنامه تشخیص بده که چه فایل هایی ووردی باز هست تا متن را وارد آن فایل وورد بشه .
منظور از پاپ آپ چیه ؟

[Delphi2010]

کسی با توابع ms word آشناییی داره
CreateOLEobject('Word.Application')


می خوام فایل وورد فعال را تشخیص بدم یا فایل های وورد که توسط کاربر باز شده است.

[Delphi2010]

معادل کد زیر به زبان دلفی می خواستم ،
خیلی جستجو کردم نتونستم پیدا کنم همه ی کدهای موجود به زبان سی شارپ هست
لطفا راهنمایی کنید try
{
Microsoft.Office.Interop.Word.Application WordObj;
WordObj = (Microsoft.Office.Interop.Word.Application)System. Runtime.InteropServices.Marshal.GetActiveObject("Word.Application");

x = "";
for (int i = 0; i < WordObj.Windows.Count; i++)
{
object idx = i + 1;
Microsoft.Office.Interop.Word.Window WinObj = WordObj.Windows.get_Item(ref idx);

// doc_list.Add(WinObj.Document.FullName);


x = x + "," + WinObj.Document.FullName;

//x = WinObj.Document.FullName;
}

}
catch (Exception ex)
{

// No documents opened
}