VSTO中Word转换Range为Image的方法

VSTO中Word转换Range为Image的方法

前言

VSTO是一套用于创建自定义Office应用程序的Visual Studio工具包,通过Interop提供的增强Office对象,可以对Word文档进行编程操作。Range是Word中执行操作的一个单元,可以理解成文档中一个选中的部分或者区域,针对这个选中部分,可以应用格式、修改文字和颜色等功能。出于各种业务的需求,常常需要将Word文档或者Word文档的一部分变成图片。本文对常见的Range转换为Image的方法进行了讨论和分析,并提出一些改良的地方。

剪贴板作为中介

原理很简单,就是将Range.Copy()到剪贴板中,剪贴板是windows进程间通信的一种方式,然后从剪贴板中获取metafile的信息还原成一个图片。

//原理示意

//source为Word.Range对象
//range.Copy()会将range中的内容复制到剪贴板中。
source.Copy();

//从剪贴板中获取metafile的数据
var metaData = GetMetaFileFromCicpBoard();

//根据metafile的信息构建出一个图片对象
Image image = GetImageFromMetaData(metaData);

这种方法在网上很常见,效果和手动在Word文档中复制一段文字,然后粘贴在<画图>软件上一样。然而在程序中,这个效果比较差。实际过程中,从剪贴板中获取数据,经常会失败,无法获取数据,推测是其他进程操作了剪贴板,数据丢失了。而且解析剪贴板的数据,需要引入的库已经很多年没维护了,经常出异常。

通过EnhMetaFileBits生成图片

这是最正常的方法了,直接通过API生成图片,效果好,速度快,图片的内容就是Word文档中的显示内容。

/// <summary>
/// 获取原生的range变为图片的方式
/// </summary>
/// <param name="range">选中部分</param>
/// <returns>图片,Image对象</returns>
public static Image GetRangeRealImage(Word.Range range)
{
    if (range == null)
    {
        throw new Exception("range is empty");
    }
    
    var bits = (byte[])range.EnhMetaFileBits;
    System.IO.MemoryStream ms = new System.IO.MemoryStream(bits);
    var ret = Image.FromStream(ms);
    return ret;
}

在实际使用过程中,发现这种方法也存在缺陷。在不足一页的range中,可以显示全部内容;在多页的range中,生成的图片只能显示第一页的内容。

获取多页Range的图片

为了解决这个问题,一个通常的思路是:既然可以获取一页的图片,把多页分成一页一页的,获取每一页的图片,然后合并起来,就是多页内容的图片了。

//伪代码
/// <summary>
/// 将range转换为完全的image图片
/// </summary>
/// <param name="range">选中部分</param>
/// <returns>图片</returns>
public Image RangeToImage(Word.Range range)
{
    var ret = RangeImage.GetRangeRealImage(range);
    //如果图片高度小于一页,直接返回
    var limitHeight = 2000;

    if (ret.Height < limitHeight)
    {
        return ret;
    }
    
    //可能大于一页
    return GetBigRangePic(range);
}

从range中按页切割其实很困难,然而页是Word文档中的一个单位。可以把range复制到一个新文档B中,获取B文档的页数,获取B文档的每一页,然后就可以获取每一页的range部分了。

//伪代码
/// <summary>
/// 一种生成range大图的方法。word中range只能显示一页的区域,
/// range超过一页,也只能显示一页。
/// 将range复制到新文档中,拼接文档中
/// 每一页的图片,可以生成range的全图。
/// </summary>
/// <param name="source">需要生成图片的range</param>
/// <returns>生成好的image对象</returns>
public Image GetBigRangePic(Word.Range source)
{
    Image ret = null;
	var wordDoc = newTmpDoc();
	
	//将source的内容复制的新文档中
	addRangeToDoc(wordDoc, source);
	
	//获取新文档的页数
    var num = wordDoc.ComputeStatistics(Word.WdStatistic.wdStatisticPages);

	//获取每一页的图片,并合并
    for (int i= 1; i<=num; i++)
    {
        object page_num = i;
        wordDoc.Application.Selection.GoTo(Word.WdGoToItem.wdGoToPage, Word.WdGoToDirection.wdGoToAbsolute, num, page_num);
        var pageRange = wordDoc.Application.Selection.Bookmarks[@"\Page"].Range;

        var pageImage = RangeImage.GetRangeRealImage(pageRange);
		
		//第一页等于图片,第二页以后合并前面的部分
        if (ret == null)
        {
            ret = pageImage;    
        }else
        {
            ret = MergeImageVertical(ret, pageImage);
        }
    }

	//手动GC
    GC.Collect();

    //保证线程安全
    lock (objlock)
    {
        //关闭文档
        try
        {
            object saveChange = Word.WdSaveOptions.wdDoNotSaveChanges;
            wordDoc.Close(ref saveChange, ref Nothing, ref Nothing);
        }
        catch (System.Runtime.InteropServices.COMException e)
        {
            Log.GetInstance().Error("close err:" + e.Message);
        }
    }

    return ret;
}

这种方式成功获取了多页range的图片。其缺点在于是合并多页的图片,多页间的部分合并了看起来起来不自然;还有合并多页的图片,转换为多个Bitmap,然后开始合并,cpu负载高,消耗的内存大。

range替换为image的shape

将特定部分的range直接替换成一个图片,并删除原内容。打个比方,就像是魔术表演中,魔术师把手中的帽子变成兔子一样。
由于在Word中插入一个图片,必须是本地文件系统中的图片文件,range获取到的图片必须先存储在本地的临时目录,然后再插入到Word的相应位置中。

//处理流程
Range->图片->保存在本地,以png格式->插入到文档中->删除原先range的内容
//伪代码
//range为Word.Range对象

//获取图片
var image = RangeImage.GetRangeRealImage(range);

//保存图片到本地
var FileName = Config.GetInstance().Get("runtimePath") + System.IO.Path.DirectorySeparatorChar + "tmpTable.png";
image.Save(FileName, System.Drawing.Imaging.ImageFormat.Png);

//在原位置插入图片
object SaveWithDocument = true;
object LinkToFile = false;
var wordDoc = range.Document;

object Anchor = wordDoc.Range(range.Start);

var t = wordDoc.Application.ActiveDocument.InlineShapes.AddPicture(FileName, ref LinkToFile, ref SaveWithDocument, ref Anchor);

//删除原内容
range.Delete();
posted @ 2018-07-18 10:11  senhtry  阅读(1000)  评论(1编辑  收藏  举报