您正在查看: 标签 唯一的 下的文章

InsertedTextColor 属性

InsertedTextColor 属性

当启用修订选项时,返回或设置插入文字的颜色。WdColorIndex,可读写。

    <tr>
      <td>WdColorIndex 可以是下列 WdColorIndex 常量之一:</td>
    <tr>
      <td><b>wdAuto</b></td>
    </tr>
    <tr>
      <td><b>wdBlack</b></td>
    </tr>
    <tr>
      <td><b>wdBlue</b></td>
    </tr>
    <tr>
      <td><b>wdBrightGreen</b></td>
    </tr>
    <tr>
      <td><b>wdByAuthor</b></td>
    </tr>
    <tr>
      <td><b>wdDarkBlue</b></td>
    </tr>
    <tr>
      <td><b>wdDarkRed</b></td>
    </tr>
    <tr>
      <td><b>wdDarkYellow</b></td>
    </tr>
    <tr>
      <td><b>wdGray25</b></td>
    </tr>
    <tr>
      <td><b>wdGray50</b></td>
    </tr>
    <tr>
      <td><b>wdGreen</b></td>
    </tr>
    <tr>
      <td><b>wdNoHighlight</b></td>
    </tr>
    <tr>
      <td><b>wdPink</b></td>
    </tr>
    <tr>
      <td><b>wdRed</b></td>
    </tr>
    <tr>
      <td><b>wdTeal</b></td>
    </tr>
    <tr>
      <td><b>wdTurquoise</b></td>
    </tr>
    <tr>
      <td><b>wdViolet</b></td>
    </tr>
    <tr>
      <td><b>wdWhite</b></td>
    </tr>
    <tr>
      <td><b>wdYellow</b></td>
    </tr>
  
</table>

expression.InsertedTextColor

expression 必需。该表达式返回一个 Options 对象。

说明

如果将 InsertedTextColor 属性设置为 wdByAuthor,Microsoft Word 会自动为文档的前八个审阅者各赋予唯一的颜色。

示例

本示例将插入文本的颜色设置为深红色。

Options.InsertedTextColor = wdDarkRed

本示例返回“选项”对话框中“修订”选项卡上的“修订选项”下的“颜色”选项的当前状态。

Dim lngColor As Long

lngColor = Options.InsertedTextColor

Convert 方法

Convert 方法

应用于 Diagram 对象的 Convert 方法。

将某种类型的图表转换为另一种类型的图表。

expression.Convert(Type)

expression 必需。该表达式返回一个 Diagram 对象。

Type MsoDiagramType,必需。转换后的图表类型。

MsoDiagramType 可以是下列 MsoDiagramType 常量之一:
msoDiagramCycle 显示连续循环的过程。
msoDiagramMixed 不应用于该方法。
msoDiagramOrgChart 显示等级关系。
msoDiagramPyramid 显示基于基础的关系。
msoDiagramRadial 显示核心元素的关系。
msoDiagramTarget 显示达到目标的步骤。
msoDiagramVenn 显示元素间重叠的区域。

应用于 EndnotesFootnotes 对象的 Convert 方法。

将尾注转换为脚注,或将脚注转换为尾注。

expression.Convert

expression 必需。该表达式返回以上的一个对象。

应用于 ListTemplate 对象的 Convert 方法。

将多级列表转换为单级列表,或将单级列表转换为多级列表。

expression.Convert(Level)

expression 必需。该表达式返回一个 ListTemplate 对象。

Level Variant 类型,可选。新列表格式中的级别。将多级列表转换为单级列表时,该参数可以是 1 至 9 之间的数字。将单级列表转换为多级列表时,1 是唯一的有效值。如果忽略该参数,则默认值为 1。

说明

不能在来源于 ListGalleries 集合的列表模板上使用 Convert 方法。

示例

当应用于 Diagram 对象时。

本示例创建一个三维棱锥图,然后将其转换为雷达图。

Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
'Add pyramid diagram to current document
Set shpDiagram = ThisDocument.Shapes.AddDiagram( _
    Type:=msoDiagramPyramid, Left:=10, _
    Top:=15, Width:=400, Height:=475)

'Add four child nodes to the diagram
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
For intCount = 1 To 3
    dgnNode.AddNode
Next intCount

With dgnNode.Diagram

    'Automatically formats the diagram
    .AutoFormat = msoTrue

    'Converts the diagram from a pyramid to a radial diagram
    .<b>Convert</b> Type:=msoDiagramRadial
End With

End Sub

当应用于 Endnotes 对象时。

本示例将活动文档中所有的尾注转换为脚注。

Set endDocEndnotes = ActiveDocument.Endnotes
If endDocEndnotes.Count > 0 Then myEndnotes.Convert

当应用于 Footnotes 对象时。

本示例将选定内容的脚注转换为尾注。

If Selection.Footnotes.Count > 0 Then Selection.Footnotes.Convert

当应用于 ListTemplate 对象时。

本示例转换活动文档中第一个列表模板。如果是多级列表模板,则将其转换为单级。如果是单级列表模板,则将其转换为多级。

ActiveDocument.ListTemplates(1).Convert

AfterEffect 属性

AfterEffect 属性

应用于 EffectInformation 对象的 AfterEffect 属性。

返回一个 MsoAnimAfterEffect 常数,它表示动画播放后效果是变暗、隐藏,还是不改变。只读。

      <tr>
        <td>MsoAnimAfterEffect 可以是下列 MsoAnimAfterEffect 类型常数之一。
  </table>
<div>

expression.AfterEffect

expression 必选。该表达式返回一个 EffectInformation 对象。

应用于 AnimationSettings 对象的 AfterEffect 属性。

返回或设置一个 PpAfterEffect 常数,它表示在创建指定的形状之后该形状是变暗、隐藏,还是不改变。可读写。

msoAnimAfterEffectDim
msoAnimAfterEffectHide
msoAnimAfterEffectHideOnNextClick
msoAnimAfterEffectMixed
msoAnimAfterEffectNone
      <tr>
        <td>PpAfterEffect 可以是下列 PpAfterEffect 类型常数之一。</td>
      <tr>
        <td><b>ppAfterEffectDim</b></td>
      </tr>
      <tr>
        <td><b>ppAfterEffectHide</b></td>
      </tr>
      <tr>
        <td><b>ppAfterEffectHideOnClick</b></td>
      </tr>
      <tr>
        <td><b>ppAfterEffectMixed</b></td>
      </tr>
      <tr>
        <td><b>ppAfterEffectNothing</b></td>
      </tr>
    
  </table>
<div>

expression.AfterEffect

expression 必选。该表达式返回一个 AnimationSettings 对象。

说明

除非带有动画播放后效果的形状播放动画,且幻灯片上至少有另一个形状在其播放后播放动画;否则无法看到为该形状设置的动画播放后效果。对于要动画显示的形状,该形状的 AnimationSettings 对象的 TextLevelEffect 属性必须设为除 ppAnimateLevelNone 以外的值,或者 EntryEffect 属性必须设为 ppEffectNone 以外的常数。且 Animate 属性必须设为 True。若要更改一张幻灯片中形状的创建顺序,请使用 AnimationOrder 属性。

示例

本示例指定当前演示文稿中第一张幻灯片的标题在创建后变暗。但是,如果它是第一张幻灯片中最后的或唯一的形状,文本将不会变暗。

With ActivePresentation.Slides(1).Shapes.Title.AnimationSettings
    .Animate = True
    .TextLevelEffect = ppAnimateByAllLevels
    .AfterEffect = ppAfterEffectDim
End With

PageWindows 属性

PageWindows 属性

返回指定的 PageWindowEx 对象。

expression.PageWindows

expression 必选。返回“应用于”列表中的对象之一的表达式。

示例

本示例获得包含网页 Spain.htm 的网页窗口,并将视图模式设置为“预览”。

注意 若要运行本过程,必须有一个打开的站点,并且其中包含一个已打开的名为 Spain.htm 的网页,或者也可以用您所选择的文件来代替。

Private Sub SetPagePreview()
    Dim myPage As PageWindowEx
Set myPage = ActiveWebWindow.<B>PageWindows</B>(&quot;Spain.htm&quot;)
myPage.ViewMode = fpPageViewPreview

End Sub

pageContentElement 属性

pageContentElement 属性

返回 IhtmlElement 对象,该对象代表当前文档的网页内容。

expression.pageContentElement

expression 必选。返回 DispFPhtmlDocument 对象的表达式。

示例

下列示例创建对 IHTMLElement 对象的引用,并显示其相应的 HTML 标记名称。

Sub PageContent()
'Returns the tag name of the page content element
Dim objApp As FrontPage.Application
Dim objDoc As DispFPHTMLDocument
Dim objContent As IHTMLElement

Set objApp = FrontPage.Application
Set objDoc = objApp.ActiveDocument

Set objContent = objDoc.<b>pageContentElement</b>
'Display message to user.
MsgBox &quot;The tag name of the current page element is: &quot; _
       &amp; objContent.tagName &amp; &quot;.&quot;

End Sub