VBA-PowerPoint宏-将文本框内容添加到大纲视图

解决方法是将Special Paste粘贴到新的占位符中，而不替换所有内容。因为我以相反的顺序遍历文本框，所以我只复制了每个TextBox，然后将Special Paste粘贴到位置0的占位符中（将所有当前内容保留在那里）。

我将代码转换为C＃，这是完整的解决方案：

private void FixPPTDocument()
    {
        PPT.Application pptApp = new PPT.Application();
        PPT.Shape currShp;
        PPT.Shape shp2;



        if (File.Exists((string)fileLocation))
        {
            DateTime today = DateTime.Now;
            PPT.Presentation pptDoc = pptApp.Presentations.Open(fileLocation, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, Microsoft.Office.Core.MsoTriState.msoFalse);

            foreach (PPT.Slide slide in pptDoc.Slides)
            {
                slide.CustomLayout = pptDoc.Designs[1].SlideMaster.CustomLayouts[2];
                for (int jCurr = slide.Shapes.Count; jCurr >= 1; jCurr--)
                {
                    currShp = slide.Shapes[jCurr];
                    if (jCurr == 3)
                    {
                        slide.Shapes.Placeholders[1].TextFrame.TextRange.Text = currShp.TextFrame.TextRange.Text;
                        slide.Shapes.Placeholders[1].Visible = Microsoft.Office.Core.MsoTriState.msoTrue;
                        currShp.Delete();
                    }
                    else if (jCurr > 3 && currShp.Type == Microsoft.Office.Core.MsoShapeType.msoTextBox)
                    {
                        currShp.TextFrame.TextRange.Copy();
                        slide.Shapes.Placeholders[2].TextFrame.TextRange.Characters(0, 0).PasteSpecial();
                        currShp.Delete();
                    }
                }
            }
            pptDoc.SaveAs(fileNewLocation);
            pptDoc.Close();
            MessageBox.Show("File created!");
        }
    }