WEB开发网
开发学院软件教学办公软件其他办公 PowerPoint文件字体提取工具 阅读

PowerPoint文件字体提取工具

 2010-10-02 08:26:06 来源:WEB开发网   
核心提示:很多人工作学习中经常需要做演示报告,如果自己没有笔记本,PowerPoint文件字体提取工具,那么准备好的PPT文件就得手动转移了,这个过程中如果不能将文件中使用的特殊字体一起带走,就可以用之前得到的_fontNames(PPT文件中使用字体名称表)在此映射表中取出使用字体名称对应的那些字体文件名:foreach(st

很多人工作学习中经常需要做演示报告,如果自己没有笔记本,那么准备好的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();

2. 导出字体文件

在上一步中所有字体名称都已得到(存放于_fontNames中),那么现在就可以用这些名称导出相应的字体文件了。根据原先的设想,字体名称应该就是字体文件名称,然而事实上却没有想象的这么简单。打开系统字体文件目录(如c:\windows \fonts),可以看到很多字体文件的真实文件名并不是其中字体的名称,比如:

微软雅黑 –> MSYH.TTF

因此,这里还需要一步额外的步骤,建立(字体名称,字体文件名)的映射表。我的解决方案是从系统注册表中读取字体键值来建立这个映射,"HKLM\Software\Microsoft\Windows NT\CurrentVersion\Fonts" 这个键下的值记录了系统中每一个字体对应的字体文件名,因此将键下所有值的name和value取出建立关联即可:

RegistryKey fonts = Registry.LocalMachine.OpenSubKey(@"Software\Microsoft\Windows NT\CurrentVersion\Fonts");
string[] valueNames = fonts.GetValueNames();
List<KeyValuePair<string, string>> fontMappingTable = valueNames
    .Select(s => new KeyValuePair<string, string>(s, (string)fonts.GetValue(s)))
    .ToList();

建立了这个映射表之后,就可以用之前得到的_fontNames(PPT文件中使用字体名称表)在此映射表中取出使用字体名称对应的那些字体文件名:

foreach (string fontName in _fontNames)
{
    _fontFileNames.AddRange(fontMappingTable
        .FindAll(p => p.Key.Contains(fontName))
        .Select(p => p.Value)
        .ToList());
}

接着就可以将_fontFileNames中字体文件名称对应的字体文件从系统字体目录中导出:

string fontDir = Environment.GetEnvironmentVariable("systemroot") + @"\fonts";
_fontFileNames.ForEach(s => File.Copy(fontDir + '\\' + s, _fontOutputPath + '\\' + s, true));

3. 生成安装脚本

最后在字体导出目录中生成一个安装脚本,方便在目标机器上安装这些字体:

StreamWriter writer = File.CreateText(_fontOutputPath + @"\install.bat");
_fontFileNames.ForEach(s => writer.WriteLine("copy \"" + s + "\"" + @" %systemroot%\fonts\"));
writer.Close();

在目标机器上直接运行这个文件,就大功告成啦,再也不用担心你演示中的酷帅字体了

Tags:PowerPoint 文件 字体

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接