office限制复制问题

1.word，循环执行，使得选择无法进行

 

Application.Selection.End = Application.Selection.Start

 

2.excel，循环执行如下脚本可去掉粘帖版中内容

Application.CutCopyMode = False