在文本框中设置项目符号缩进的问题答案

【问题标题】：Problem with setting indent of bullet items in textframe在文本框中设置项目符号缩进的问题
【发布时间】：2019-02-24 23:02:09
【问题描述】：

我正在尝试将一些现有的 VBA 代码移植到 C#。一个例程控制项目符号的缩进，大致是：

indentStep = 13.5
For Each parag In shp.TextRange.Paragraphs()
    parag.Parent.Ruler.Levels(parag.IndentLevel).FirstMargin = indentStep * (parag.IndentLevel - 1)
    parag.Parent.Ruler.Levels(parag.IndentLevel).LeftMargin = indentStep * (parag.IndentLevel)
Next parag

代码有效，但似乎是令人毛骨悚然的黑魔法。特别是，每次设置特定标尺的边距时，实际设置了所有九个标尺边距。但不知何故，正在设置适当的信息。不幸的是，当您在 C# 中执行相同的操作时，结果会发生变化。以下代码没有可见效果：

const float kIndentStep = 13.5f;
foreach (PowerPoint.TextRange pg in shp.TextFrame.TextRange.Paragraphs())
{
pg.Parent.Ruler.Levels[pg.IndentLevel].FirstMargin = kIndentStep * (pg.IndentLevel - 1);
pg.Parent.Ruler.LevelS[pg.IndentLevel].LeftMargin = kIndentStep * pg.IndentLevel;
}

【问题讨论】：

标签： vsto powerpoint rulers

【解决方案1】：

这似乎是从 C# 自动化 PowerPoint 时的限制/错误。我确认它适用于 VBA。

我确实看到了代码运行后的效果：它会在每次运行时更改 first 级别，因此最后，第一级具有应该分配给最后一个级别的设置待处理，但其他级别似乎没有受到明显影响。我确实看到代码执行期间返回的值发生了变化，但仅此而已。

如果代码仅更改文本框架的一个特定级别，则它可以工作。仅在尝试更改多个级别时才会出现此问题。

我尝试了各种方法，包括后期绑定 (PInvoke) 并将更改放在单独的过程中，但结果始终相同。

这是我的最后一次迭代

Microsoft.Office.Interop.PowerPoint.Application pptApp = (Microsoft.Office.Interop.PowerPoint.Application) System.Runtime.InteropServices.Marshal.GetActiveObject("Powerpoint.Application"); // new Microsoft.Office.Interop.PowerPoint.Application();
//Change indent level of text
const float kIndentStep = 13.5f;
Microsoft.Office.Interop.PowerPoint.Shape shp = pptApp.ActivePresentation.Slides[2].Shapes[2];
Microsoft.Office.Interop.PowerPoint.TextFrame tf = shp.TextFrame;
object oTf = tf;
int indentLevelLast = 0;
foreach (Microsoft.Office.Interop.PowerPoint.TextRange pg in tf.TextRange.Paragraphs(-1, -1))
{
    int indentLevel = pg.IndentLevel;
    if (indentLevel > indentLevelLast)
    {
        Microsoft.Office.Interop.PowerPoint.RulerLevel rl = tf.Ruler.Levels[indentLevel];
        object oRl = rl;
        System.Diagnostics.Debug.Print(pg.Text + ": " + indentLevel + ", " + rl.FirstMargin.ToString() + ", " + rl.LeftMargin.ToString()) ;
        object fm = oRl.GetType().InvokeMember("FirstMargin", BindingFlags.SetProperty, null, oRl, new object[] {kIndentStep * (indentLevel - 1)});
        //rl.FirstMargin = kIndentStep * (indentLevel - 1);
        object lm = oRl.GetType().InvokeMember("LeftMargin", BindingFlags.SetProperty, null, oRl, new object[] { kIndentStep * (indentLevel) });
        //rl.LeftMargin = kIndentStep * indentLevel;
        indentLevelLast = indentLevel;
        System.Diagnostics.Debug.Print(pg.Text + ": " + indentLevel + ", " + tf.Ruler.Levels[indentLevel].FirstMargin.ToString() + ", " + tf.Ruler.Levels[indentLevel].LeftMargin.ToString()) ;
        rl = null;
    }
}

FWIW 问题中提供的代码 sn-p 均无法编译。缺少 VBA sn-p .TextFrame。 C# sn-p 不喜欢Parent.Ruler，所以我不得不将其更改为TextFrame.Ruler。

【讨论】：