Word VBA教程:WholeStory方法

扩展某一区域或选定内容,使其包含整个文字部分。

expression.WholeStory

expression   必需。该表达式返回一个 Range 或 Selection对象。

说明

下列指令在功能上是等价的。其中myRange 是有效的 Range对象。


myRange.WholeStory
myRange.Expand Unit:=wdStory

VBA示例

本示例扩展myRange,使其包含文档的整个当前部分,再将该区域的字体设为 Arial(斜体)。


Set myRange = Selection.Range
myRange.WholeStory
myRange.Font.Name = "Arial"

本示例扩展myRange,使其包含文档整个备注部分 (wdCommentsStory),再将该批注部分复制到新文档。


If ActiveDocument.Comments.Count >= 1 Then
    Set myRange = Activedocument.Comments(1).Range
    myRange.WholeStory
    myRange.Copy
    Documents.Add.Content.Paste
End If

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号