返回当前运行内所有元素的所有字体名
这种方法没有任何参数
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.AddText ("这只是样本文本)oParagraph.AddElement(oRun)!ORun=Api.CreateRunORUN.SetFontFormORUN.AddTextoParagraph.AddElement(oRun)!oParagraph.AddLineBreak()!var aFont名ssssun.getFont名sodeptes = Api.Createlementsodtext (运行字体名 :oParagraph.AddLineBreak()!开始i=0< aontNames.++/odec.adTextoParagraph.AddLineBreak()!} oDocContent.Push(oParagraph)!oSlide.AddObject(oShape)!builder.SaveFile("pptx", "GetFontNames.pptx")!builder.CloseFile();