多个文本框复制快速粘贴

勇往直钱

多个文本框复制快速粘贴，不要文本框，要文字 中国美术家人名辞典9－2.rar (311.85 KB, 下载次数: 23)

2016-7-20 12:44 上传

点击文件名下载附件

duquancai

没有看你附件（时间紧），请测试：

1. Sub shishi()
   
2. Dim i As Shape, x As Frame
   
3. If ActiveDocument.Shapes.Count + ActiveDocument.Frames.Count > 0 Then
   
4.      For Each i In ActiveDocument.Shapes
   
5.          If i.Type = msoTextBox And i.Type = 17 Then
   
6.              i.TextFrame.TextRange.Select
   
7.              Selection.Copy
   
8.              i.Delete
   
9.              Selection.Paste
   
10.          End If
    
11.      Next
    
12.     For Each x In ActiveDocument.Frames
    
13.         x.Delete
    
14.      Next
    
15. End If
    
16. End Sub

复制代码

勇往直钱

duquancai 发表于 2016-7-20 12:50
没有看你附件（时间紧），请测试：

怎么录宏，再细点说说，谢谢

13907933959

勇往直钱 发表于 2016-7-20 13:09
怎么录宏，再细点说说，谢谢

网友好！
这个是413191246se 前辈写的，在下借花献佛，希望能帮到你！

录制宏——操作步骤：
1、新建空白文档，键入一些文字，并用鼠标选定。
2、点击“工具”菜单——宏——录制新宏——
3、宏名：可以更改为“我的第一个宏”
4、在“将宏指定到”下面，点击“工具栏”前面的按钮
5、在“自定义”对话框中点击右面的“命令”框下面的品字图标（写着 Normal.NewMacros.我的第一个宏）
6、鼠标左键按住品字图标不放松，将其拖动到工具栏上，
7、这时工具栏上就有了一个新的宏按钮——Normal.NewMacros.我的第一个宏
8、点击自定义对话框下面的“关闭”按钮
9、这时可以看到文档界面左侧，有一个宏录制器对话框，可以开始录制了（就像录音机录音一样）：
（因为文字已经选定了，所以，可以进行下面的具体动作）
10、点击字体颜色按钮，选定红色
点击字号下拉按钮，设为二号
再点击一下 B 按钮（加粗按钮）
再按一下 CTRL+HOME 键，目的是不再选定文字，光标打到文首。

好，这时进行了3 个动作：红色、二号、加粗，可以结束了，请按宏录制器对话框（其实是工具栏）中的左面的■按钮，停止录制。宏就录制好了。

为了观看刚才所录制的宏的使用效果，请再新建一个空白文档，键入一些文字，并选定文字。然后，用鼠标按一下刚才工具栏上的那个“我的第一个宏”的按钮，看看，发生了什么？——是不是和刚才手动操作效果是一样的？——这样，录制宏的初次体验就完毕了，感觉怎么样？各位朋友会了吗？经常练习录制宏，慢慢的就会融会贯通，渐渐达到会编程的目的，解决很多机械、疑难问题了！

勇往直钱

没有答案吗