PowerPoint文件字体提取工具

来源:互联网 时间:2016-01-03

很多人工作学习中经常需要做演示报告,如果自己没有笔记本,那么准备好的PPT文件就得手动转移了。这个过程中如果不能将文件中使用的特殊字体一起带走,到演示机器上的效果可能会让你的精心准备大打折扣。正是因为自己碰到过这个问题,所以希望做个简单的小工具将 PPT文件中使用到的字体都提取出来,方便携带到其他机器上安装。

简单介绍一下这个小工具制作的过程~

工作原理设想

很简单,分三步:

1. 解析PPT文件,收集其中的所有文字使用到的字体名称;

2. 通过这些字体名称,去系统的字体文件存放目录将相应的字体文件导出;

3. 生成一个字体安装脚本,以便在目标机器安装这些字体。

具体实现

有了这个简单设计,就用c#去着手实现了,可即使设计这么简单了,还是碰到一些问题:)

1. PPT文件解析

由于.net对office应用已经做了良好封装,这步做起来没有什么困难,基本只要查一查需要的查询接口就可以。只有一点需要注意一下,因为PPT文字格式的任意性,每一个文字都可以设置字体,所以我们需要让字体提取的粒度保持在单个的字符上,这样才不会有所遗漏。

首先在后台模式打开PPT文件:

PowerPoint.Application pptApplication = new PowerPoint.ApplicationClass();

PowerPoint.Presentation presentation = pptApplication.Presentations.Open2007(

_fileName,

Office.MsoTriState.msoTrue,

Office.MsoTriState.msoTrue,

Office.MsoTriState.msoFalse,

Office.MsoTriState.msoFalse);

然后遍历文字取得字体名,层次顺序是 slide > shape > text > character:

foreach (PowerPoint.Slide slide in presentation.Slides)

{

foreach (PowerPoint.Shape shape in slide.Shapes)

{

if (shape.HasTextFrame == Office.MsoTriState.msoTrue &&

shape.TextFrame.HasText == Office.MsoTriState.msoTrue)

{

PowerPoint.TextRange textRange = shape.TextFrame.TextRange;

for (int i = 0; i < textRange.Length; ++i)

{

PowerPoint.Font font = textRange.Characters(i, 1).Font;

if (!_fontNames.Contains(font.Name))

_fontNames.Add(font.Name);

}

}

}

}

这样就可以获得各种PPT文件中各种形式文本使用的每一个字体名(smartart形式的除外,因为微软没有开放相应的模型数据)。

别忘了关闭文件和PPT程序:

presentation.Close();

pptApplication.Quit();

 

相关阅读:
Top