ole_text.Object.SelStart = ole_text.object.TableCellStart(Table_Id,10,1) - 1
ole_text.Object.SelLength = ole_text.Object.TableCellLength(Table_Id, 10, 1)
ole_text.Object.ForeColor = RGB(255,0,0)
ole_text.Object.clip(2)
界面发现所选择的字体会变成红色,但是clip(2)没有将所选择的复制到剪贴板,用Ctrl+V并不能复制所要的位置。 |