vba有没有把某个段落的所有格式写入一个数组的方法

pujizhongxue

请问，在word里，有没有把某个段落的所有格式写入一个数组的方法，请大家指点一下。

jiangxiaoyun

代表段落的所有格式。

使用 ParagraphFormat 对象
使用 Format 属性可返回一个或多个段落的 ParagraphFormat 对象。ParagraphFormat 属性返回所选内容、区域、样式、Find 对象或 Replacement 对象的 ParagraphFormat 对象。下列示例将活动文档中的第三段居中。

ActiveDocument.Paragraphs(3).Format.Alignment = _
    wdAlignParagraphCenter
下列示例查找所选内容之后的下一个两倍行距的段落。

With Selection.Find
    .ClearFormatting
    .ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
    .Text = ""
    .Forward = True
    .Wrap = wdFindContinue
End With
Selection.Find.Execute
说明
可以使用 Visual Basic 的 New 关键词新建单独的 ParagraphFormat 对象。下列示例创建一个 ParagraphFormat 对象，为其设置部分格式属性，然后将其所有属性应用于活动文档中的第一个段落。

Dim myParaF As New ParagraphFormat
myParaF.Alignment = wdAlignParagraphCenter
myParaF.Borders.Enable = True
ActiveDocument.Paragraphs(1).Format = myParaF

pujizhongxue

jiangxiaoyun 发表于 2019-3-23 17:37
代表段落的所有格式。

使用 ParagraphFormat 对象

谢谢帮忙，但我想要的是某个段落的所有格式，把它写入某个变量里面，例如myparaf=ActiveDocument.Paragraphs(1).Format这种情况，（当然，这种写法好像实现不了），请问，有什么好方法吗？

413191246se

    楼主，格式包括字体格式和段落格式。具体还有内置样式自带格式，用户手动设置格式。只要改动一个元素，格式就变为新的格式。所以，除非，想把某个段落按字符逐个进行循环，否则难以记录该段落所有格式。
    楼主，这样做有什么目的呢？

pujizhongxue

413191246se 发表于 2019-3-23 21:03
楼主，格式包括字体格式和段落格式。具体还有内置样式自带格式，用户手动设置格式。只要改动一个元素， ...

谢谢回答。我在教学中有时需要考察学生会不会使用格式刷把一个段落的格式变成和另一个段落的格式一样，不知你有没有简单的方法。

daibao88

ActiveDocument.Paragraphs(2).ParagraphFormat.LeftIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.RightIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.SpaceBefore
ActiveDocument.Paragraphs(2).ParagraphFormat.SpaceBeforeAuto
ActiveDocument.Paragraphs(2).ParagraphFormat.SpaceAfter
ActiveDocument.Paragraphs(2).ParagraphFormat.SpaceAfterAuto
ActiveDocument.Paragraphs(2).ParagraphFormat.LineSpacingRule
ActiveDocument.Paragraphs(2).ParagraphFormat.Alignment
ActiveDocument.Paragraphs(2).ParagraphFormat.WidowControl
ActiveDocument.Paragraphs(2).ParagraphFormat.KeepWithNext
ActiveDocument.Paragraphs(2).ParagraphFormat.KeepTogether
ActiveDocument.Paragraphs(2).ParagraphFormat.PageBreakBefore
ActiveDocument.Paragraphs(2).ParagraphFormat.NoLineNumber
ActiveDocument.Paragraphs(2).ParagraphFormat.Hyphenation
ActiveDocument.Paragraphs(2).ParagraphFormat.FirstLineIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.OutlineLevel
ActiveDocument.Paragraphs(2).ParagraphFormat.CharacterUnitLeftIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.CharacterUnitRightIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.CharacterUnitFirstLineIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.LineUnitBefore
ActiveDocument.Paragraphs(2).ParagraphFormat.LineUnitAfter
ActiveDocument.Paragraphs(2).ParagraphFormat.AutoAdjustRightIndent
ActiveDocument.Paragraphs(2).ParagraphFormat.DisableLineHeightGrid
ActiveDocument.Paragraphs(2).ParagraphFormat.FarEastLineBreakControl
ActiveDocument.Paragraphs(2).ParagraphFormat.WordWrap
ActiveDocument.Paragraphs(2).ParagraphFormat.HangingPunctuation
ActiveDocument.Paragraphs(2).ParagraphFormat.HalfWidthPunctuationOnTopOfLine
ActiveDocument.Paragraphs(2).ParagraphFormat.AddSpaceBetweenFarEastAndAlpha
ActiveDocument.Paragraphs(2).ParagraphFormat.AddSpaceBetweenFarEastAndDigit
ActiveDocument.Paragraphs(2).ParagraphFormat.BaseLineAlignment
自己玩吧

413191246se

    楼主，你好！——我试验发现：使用“格式刷”把某个段落的格式运用于另一个段落上，样式会复制，但是格式，取决于第一个中文字符，和第一个西文字符，后面再有什么格式已经没有用了。另外，你怎么判断你的学生是使用了“格式刷”，而不是批量设置的格式的呢？用 VBA 判断恐怕不容易。
    一般来说，用“格式刷”不必多想，先选定某个段落，再点击一下格式刷图标，再选定另一个段落即可。

pujizhongxue

daibao88 发表于 2019-3-24 21:29
ActiveDocument.Paragraphs(2).ParagraphFormat.LeftIndent
ActiveDocument.Paragraphs(2).ParagraphForma ...

谢谢回答，不过这种方法我就是嫌这种方法太麻烦了，所以来寻求大家的帮助

pujizhongxue

413191246se 发表于 2019-3-25 00:35
楼主，你好！——我试验发现：使用“格式刷”把某个段落的格式运用于另一个段落上，样式会复制，但是格 ...

谢谢帮忙，虽然问题没有完全解决，但是，我还是从你那里学到了许多新东西。顺便想请教一下，有简单比对两段样式的方法吗？

ming0018

pujizhongxue 发表于 2019-3-25 15:36
谢谢帮忙，虽然问题没有完全解决，但是，我还是从你那里学到了许多新东西。顺便想请教一下，有简单比对两 ...

样式　是可以对比的
但我猜你肯定不是指的样式