Sub aaa()
ActiveDocument.Shapes("Text Box 3").TextFrame.TextRange.Text = ActiveDocument.Shapes("Text Box 2").TextFrame.TextRange.Text
End Sub
文档中有3个文本框,录制一个空白宏的快捷键,执行上面宏代码,将会把文本框3的内容等于文本框2的内容。
复制粘贴,简单实用,搞得那么复杂,有什么意义吗
word能有这么智能么???
这种要求不可以通过复制来完成么??
留意瞅瞅.