拷贝粘贴
CurrentTable.EditCopyDim str = ClipBoard.GetTextmsgbox(str)
http://www.foxtable.com/webhelp/scr/0345.htm