collapseword,collapses
【分享成果collapseword，随喜正能量】为什么对人性失望collapseword了呀？因为当你弱小collapseword的时候collapseword，坏人最多，为什么了解人性了呀？因为当你强大的时候，好人最多，坏人都不见了。你可以相信某一个人，但是不要相信人性，人性是善变的
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、 *** ，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第五章“Word中的Range对象（上）”第7节collapseword：Word文档中Range内容的复制。
第八节 Range对象的 *** （二）大家好，我们这节继续学习Range对象的 *** ，在上一节中我们学习了利用对象的 *** 进行信息的统计及对象范围的调整，这节的内容是对象内容的复制。
1 Range.Copy ***这个 *** 将指定范围复制到剪贴板。
语法：expression.Copy
其中expression 是必需的，是一个代表 Range 对象的变量。
2 Range.CopyAsPicture ***这个 *** 和Copy *** 类似。
语法：expression. CopyAsPicture
其中expression 是必需的，是一个代表 Range 对象的变量。
3 Range.Cut ***这个 *** 将指定对象从文档中移到剪贴板上。
语法：expression.Cut
其中expression 是必需的，是一个代表 Range 对象的变量。
4 实例：内容复制的应用最后给大家讲解一个实例，在这个实例中我们给大家介绍一下Copy *** 、CopyAsPicture *** 、Cut *** 的实例应用。我们看下面的代码：
Sub mynzG()
[代码见教程]
End Sub
代码解读：
1）ActiveDocument.Paragraphs(4).Range.Cut 将文档的第四段进行剪切
2）Set myRange = ActiveDocument.Range _
(Start:=ActiveDocument.Content.End - 1, End:=ActiveDocument.Content.End - 1)
myRange.Paste
设置myRange变量，然后粘贴剪切的内容
3）Set myRange = Nothing 清空内存
4）ActiveDocument.Paragraphs(3).Range.Copy 复制第三段
5）ActiveDocument.Paragraphs.Add 添加一个新的段落
6）With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count - 1).Range以上设置对象为最后一个段落，（最后的段落为空，所以用ActiveDocument.Paragraphs.Count - 1）
7）CopyAsPicture 复制为图片
8）Collapse Direction:=wdCollapseEnd
PasteSpecial DataType:=wdPasteMetafilePicture
以上代码粘贴这个图片。
最后，我们看代码的运行：
今日内容回向：
1 Word中Range对象的Copy *** 、CopyAsPicture *** 、Cut *** 的意义是什么？
2 如何实现内容的复制？
本讲内容参考程序文件：Doc 005文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】少掺合和别人的事情，那个跟你无关，无钱莫入，众言轻莫劝人，吃人嘴短，拿人手软，做好自己的事情比什么都强。别人的任何事情都和你无关，除非你能够从中获取利益，否则不要掺合别人的事情，这个世界上本质上来说，就只有你一个人，别人的存在都是虚幻的，都是虚无缥缈的，你把别人当做电影或者游戏里的设定就行了，只有你一个主角。
