犹豫了好久，还是向守柔请教

moon929

守柔：

嘿嘿，有些难以启齿，你又该骂我了吧？找了好久好多你的讲义，还是没找到。现在我知道了上标是Font.Superscript 下标是Font.Subscript 阴影是Font.Shadow 。 可是不知道边框和底纹的关键字，拜托告诉一下！

还有关于段落格式的问题。

段前距是Paragraph.Format.SpaceBefore 行距是Paragraph.Format.LineSpacingRule，首行缩进是Paragraph.Format..FirstLineIndent可是不知道悬挂缩进、首字下沉（下沉行数、与正文距离）如何表示。烦请百忙中解答一下。

别骂我，别骂我哟。我真的找了很久。

[此贴子已经被作者于2005-10-10 16:03:06编辑过]

守柔

知之为知之，不知为不知，是知也。

没关系，但以后要慢慢学会正确使用VBA帮助文件。

关键字：底纹

Shading 属性

返回一个 Shading 对象，该对象指明指定对象的底纹格式。

expression.Shading

expression 必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例为所选内容的第一段设置黄色底纹。

With Selection.Paragraphs(1).Shading

.Texture = wdTexture12Pt5Percent

.BackgroundPatternColorIndex = wdYellow

.ForegroundPatternColorIndex = wdBlack

End With

本示例为表格 1 的第一行设置水平线底纹。

If ActiveDocument.Tables.Count >= 1 Then

With ActiveDocument.Tables(1).Rows(1).Shading

.Texture = wdTextureHorizontal

End With

End If

本示例将活动文档的第一个单词的底纹设置为 10%。

ActiveDocument.Words(1).Shading.Texture = wdTexture10Percent

关键字：边框

Borders 属性

该属性返回一个 Borders 集合，该集合代表指定对象的所有边框。

expression.Borders

expression 必需。该表达式返回“应用于”列表中的一个对象。

说明

有关返回集合中单独成员的信息，请参阅返回集合中的对象。

示例

本示例对活动文档中的第一个表格应用内部和外部边框。

Set myTable = ActiveDocument.Tables(1)

With myTable.Borders

.InsideLineStyle = wdLineStyleSingle

.OutsideLineStyle = wdLineStyleDouble

End With

本示例对所选内容中第一个字符应用边框。如果没有选定内容，则对插入点后的第一个字符应用边框。

Selection.Characters(1).Borders.Enable = True

本示例在活动文档中的所有居中段落底部应用下边框。

For Each para In ActiveDocument.Paragraphs

If para.Alignment = wdAlignParagraphCenter Then

para.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle

para.Borders(wdBorderBottom).LineWidth = wdLineWidth300pt

End If

Next para

本示例为当前节中的所有页面添加边框。

For Each aBorder In Selection.Sections(1).Borders

aBorder.ArtStyle = wdArtBasicBlackDots

aBorder.ArtWidth = 6

Next aBorder

用 Borders 属性可返回 Borders 集合。下面示例将默认的边框添加在活动文档首段的四周。

ActiveDocument.Paragraphs(1).Borders.Enable = True

不能在 Borders 集合中添加 Border 对象。在 Borders 集合中元素的数量是有限制的，并且因对象的类型不同而异。例如，在 Borders 集合中，表格有六个元素，而段落有四个元素。

用 Borders(index)，可返回单个 Border 对象，其中 index 用来标识边框。Index 可取下列 WdBorderType 常量之一：wdBorderBottom、wdBorderDiagonalDown、wdBorderDiagonalUp、wdBorderHorizontal、wdBorderLeft、wdBorderRight、wdBorderTop 或 wdBorderVertical。由于所选择或安装的语言支持（例如美国英语）不同，有些常量可能不可用。可用 LineStyle 属性设置 Border 对象的框线类型。下列示例在活动文档首段的底端添加一个双线边框。

With ActiveDocument.Paragraphs(1).Borders(wdBorderBottom)

.LineStyle = wdLineStyleDouble

.LineWidth = wdLineWidth025pt

End With

下列示例将单线边框加在选定内容的首字符四周。

With Selection.Characters(1)

.Font.Size = 36

.Borders.Enable = True

End With

下列示例在第一节中每一页的四周添加艺术型边框。

For Each aBorder In ActiveDocument.Sections(1).Borders

With aBorder

.ArtStyle = wdArtSeattle

.ArtWidth = 20

End With

Next aBorder

关键字：首行缩进/悬挂缩进

FirstLineIndent 属性

返回或设置首行缩进或悬挂缩进的大小（以磅值表示）。用正数设置首行缩进的尺寸，用负数设置悬挂缩进的尺寸。Single 类型，可读写。

示例

本示例为活动文档的首段设置 1 英寸的首行缩进。

ActiveDocument.Paragraphs(1).FirstLineIndent = _

InchesToPoints(1)

本示例为活动文档的第二段设置 0.5 英寸的悬挂缩进。InchesToPoints 方法用来将英寸转化为磅值。

ActiveDocument.Paragraphs(2).FirstLineIndent = _

InchesToPoints(-0.5)

关键字：首字下沉

DropCap 对象

代表段落开始处的下沉的大写首字母。没有 DropCaps 的集合，因为每个 Paragraph 对象只包含一个 DropCap 对象。

使用 DropCap 对象

用 DropCap 属性可返回 DropCap 对象。下列示例为活动文档首段设置首字下沉格式。

With ActiveDocument.Paragraphs(1).DropCap

.Enable

.Position = wdDropNormal

End With

DropCap 属性

返回一个 DropCap 对象，该对象代表指定段落中格式为首字下沉的大写字母。只读。

示例

本示例为活动文档首段设置首字下沉。

With ActiveDocument.Paragraphs(1).DropCap

.FontName = "Arial"

.Position = wdDropNormal

.LinesToDrop = 3

.DistanceFromText = InchesToPoints(0.1)

End With

本示例为活动文档的第一段的首字母设置首字下沉。距正文为 12 磅。

With ActiveDocument.Paragraphs(1).DropCap

.Enable

.FontName= "Arial"

.Position = wdDropNormal

.DistanceFromText = 12

End With

moon929

不知道用什么词语来表达我激动的心情！！！答复既层次分明又详实具体，让人一望便知晓。向伟大的守柔致敬！我爱你——守柔——我们大家都爱你！

moon929

怎么那么傻，居然没想到向VBA帮助文件求助。哦，原来我根本没安装VBA帮助文件。嘿嘿，真是的……