#define GMEM_MOVEABLE 2 #define GMEM_ZEROINIT 64 Declare Long GlobalAlloc in Win32API Long uFlags, Long dwBytes Declare Long GlobalFree in Win32API Long hMem Declare Long GlobalLock in Win32API Long hMem Declare Long GlobalUnlock in Win32API Long hMem Declare String lstrcpy in Win32API Long lpDest, String @ lpStr Declare Long OpenClipboard in Win32API Long Declare Long CloseClipboard in Win32API Declare Long EmptyClipboard in Win32API Declare Long RegisterClipboardFormat in Win32API String Declare Long SetClipboardData in Win32API Long uFormat, Long hMem strRTF = Mytable.RTFField If(OpenClipboard(0) != 0) h = GlobalAlloc(GMEM_MOVEABLE+GMEM_ZEROINIT, LEN(s)+1) ptr = GlobalLock(h) lstrcpy(ptr, strRTF) EmptyClipboard() cf = RegisterClipboardFormat("Rich Text Format") SetClipBoardData(cf, h) CloseClipboard() GlobalUnlock(h) GlobalFree(h) oWord.Selection.Paste EndIf>Hello,