Question

我目前正在构建一个PowerPoint插件，用于创建带有文本格式信息的.xml文件。
其中一个任务是保存字符范围的项目符号设置，因为我手动拆分文本。我正在努力重新装配子弹：
如何设置我的子弹点数（每个代码）？我试图做的时候

<TextRange>.ParagraphFormat.Bullet.Number = X

我得到错误“ReadOnly属性”。
还有比手动分割文本更好的方法吗？我通过检查Font.size，样式，颜色，名称等的差异来划分它。<TextRange>.Paragraphs(i)返回很多空段落。
谢谢！

*修改一个例子是

那
1. A
2. 测试

我会有3个TextRanges（多数民众赞成，A，测试），并希望创建与上面相同的项目符号。

Answer 1

像这样的东西，使用当前选择的形状作为例子：

Dim oSh As Shape
Dim x As Long

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange
    For x = 1 To .Paragraphs.Count
        ' is it an empty paragraph?
        If Len(.Paragraphs(x).Text) > 0 Then
            .Paragraphs(x).ParagraphFormat.Bullet.Style = ppBulletArabicPeriod
        End If
    Next
End With

子弹的编号设置

1 个答案: