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();