最近改论文调格式，遇见这种Word中空格大小不一致，区别很大的情况，感觉不够美观，改成空格间距一致方法如下：

选中空格异常的段落，右键

段落 -> 中文版式 -> 勾选允许西文在单词中间换行 -> 取消勾选自动调整中文和西文的间距和自动调整中文和数字的间距。




需要注意的一个问题是这样可能会导致在英文单词中间换行，导致意思发生改变，如单词被分开请在第二行开头添加“ - ”表示单词连接。

下面是四种在□里打√的方法：
1、快捷键Alt+9745

这个是电脑系统自带的快捷组合键，我们只需按照键盘的Alt键不放，然后在小键盘输入数字9745即可打出此符号；



2、如果是笔记本电脑没有小键盘，首先需要在文档里输入数字2611，接着按照组合键Alt+x。刚才的数字即可转换为方框带勾的符号；



3、输入R转换字体
（一）首先我们在文档里输入大写的字母"R"；
（二）选中该字母以后将字体格式调整为"Wingdings 2"；
（三）然后就变成了我们需要的符号，如下图所示


4、通过百度、搜狗搜索复制粘贴

（一）在搜索引擎输入"方框打勾""打勾符号"等类似字眼；
（二）在网页内即可找到相关符号，我们将其复制粘贴到word文档即可；

网上搜了一些方法介绍，其中一种是用邮件合并功能，没看明白。目前的应用场景，经常需要把excel里头的几张财务报表，作为附表拷贝到word报告中，每次复制粘贴后，格式都变了，用“仅保留文本”的粘贴方式也不奏效，文字大小、数字对齐都不合要求，需要手动调一遍，费时且易出错，很痛苦。


以下过程的思路如下：由于每张表格的行列及表头内容都是一样的（财务报表嘛，标准格式），因而只需将完整的表格放在word文档中作为模板，然后拷贝数值部分的行列填充到word中的对应表格中即可。


实施要点：

1、在excel中用名称管理器定义数值区域，不要写死区域（如B3:E80），避免未来修改

2、在word表格中，定义书签以便快速定位，但标签要放在表头单元格中，如果放在数据单元格中，excel数据覆盖过来后就会丢失该书签

3、在excel中，要勾选对word的object library的引用（见代码注释），否则无法正常执行

4、在excel工作表里，放置一个按钮，关联到btn3_click()过程


操作非常简单：点击按钮，一键搞定。原来要几个小时，弄完后眼花头痛非常累，现在只需几秒钟，瞬间搞定！最重要的是，准确率100%，而原来再细心的人也难保在N次拷贝粘贴中不出错一次。


代码一个小问题留待读者扩展：点击按钮后，偶尔会报错抛异常，提示剪贴板为空，这时需要手动关闭word文件，重新再执行一次。所以代码中应该再加个异常捕获，抛异常后，自动关闭word文档，并提示用户重新执行一遍，就比较理想了。


希望对经常需要从excel中拷贝粘贴财务报表到word中的朋友有帮助。


<pre name="code" class="vb">Sub btn3_click()

    'On Error GoTo ret ' 错误处理（关闭文件句柄，避免内存泄露）

    'Dim mWord As New Word.Application

    'Dim mDoc As Document

    Set srcSheet = ActiveSheet

    Dim i, j, ret, dstFileName, arrTableName(1 To 7), arrReplaceText(1 To 2)

    

    dstFileName = srcSheet.Range(&quot;I1&quot;).Text '设置的输出word文件路径

    

    arrTableName(1) = &quot;Brief&quot; ' 首页简表

    arrTableName(2) = &quot;BS&quot; ' 资产

    arrTableName(3) = &quot;BSS&quot; ' 负债及所有者权益

    arrTableName(4) = &quot;IS&quot; ' 利润表

    arrTableName(5) = &quot;CF&quot; ' 现金流量表

    arrTableName(6) = &quot;CFF&quot; ' 现金流量表补充材料

    arrTableName(7) = &quot;Main&quot; ' 主要财务指标



    arrReplaceText(1) = &quot;#DIV/0!&quot;

    arrReplaceText(2) = &quot;#NUM!&quot;

    

    ' 需要在Tools - References... 找到Microsoft Word 14.0 Object Library并选中。否则会提示“书签不存在”

    Set mWord = CreateObject(&quot;Word.Application&quot;)

   

    With mWord

        .Visible = True ' word窗口可见

        '.Activate

        .Documents.Open Filename:=dstFileName

        

        For i = LBound(arrTableName) To UBound(arrTableName)

            'Application.Goto Reference:=arrTableName(i)

            'Selection.Copy

            srcSheet.Range(srcSheet.Names(arrTableName(i))).Copy

            

            .Selection.Goto What:=wdGoToBookmark, Name:=arrTableName(i)

            .Selection.MoveDown Unit:=wdLine, Count:=1

            .Selection.Paste

        Next

        

        ' 最后清空excel产生的无效字符，如&quot;#DIV/0!&quot;

        For j = LBound(arrReplaceText) To UBound(arrReplaceText)

            .Selection.Find.ClearFormatting

            With .Selection.Find

                .Text = arrReplaceText(j)

                .Replacement.Text = &quot;&quot;

                .Forward = True

                .Wrap = wdFindContinue

                .Format = False

                .MatchWholeWord = True

            End With

            .Selection.Find.Execute Replace:=wdReplaceAll

        Next

        

    End With

    

ret:

    Set mWord = Nothing

        

End Sub</pre>

<br />

1字符模板制作：

模板的要求是与要识别的字符的字体格式一致，实验中采用word上的标准字符，通过截图软件截图后按照3-6步的处理过程制作出需要的字符模板，从0到9共10个数字，A到Z共26个字母。

 

2 字符模板归一化

在满足识别率的条件下，尽量采用小模板识别可以提神运算速度，具体的模板大小，可以根据后面的与待识别字符的比较中调节。

 

3识别过程：

将待识别字符与字符模板做同样的归一化处理，然后遍历与字符模板比较，处理方法为先和字符模板做差，然后计算做差后的图像的总像素值，如果小于每一个阈值，则表示该待识别字符和该模板是同一个字符，这样就完成了一次识别。

循环对要识别的字符做同样的处理就可以识别出所有的字符，将结果保存在字符串中。