新建小文本块插入当前段或表
这种方法没有任何参数
builder.CreateFile("pptx")!varoPresentation=api.GetpresentationvaroSlide=oPresentation.getSlideByIndex0oSlide.RemoveAllObjects()!varoFinll =api.CreateSolidFillvarostroke=api.CreatestrokeVar Oshape = Api.CreateShapeoShape.SetPosition(608400, 1267200)!varoccontent=oshape.getdoccontentvarodente=occontent.getEplement0var ORun=api.CreateRunoRun.SetFontSize(60)!ORun.AddText ("这只是样本文本)oParagraph.AddElement(oRun)!ORun=Api.CreateRunoRun.SetFontSize(60)!ORUN.SetFontFormORUN.AddTextoParagraph.AddElement(oRun)!oSlide.AddObject(oShape)!builder.SaveFile("pptx", "CreateRun.pptx")!builder.CloseFile();