文秘

一键删除所有动画效果

@冷月清辉

       最近做了一个新产品的推荐PP，交给领导审核后，得知 A 客户不喜花里胡哨的动画，而B 客户喜欢比较酷炫的动画，怎么办？一页一页删除吗?经过摸索，找到了答案：点击“幻灯片放映”，选择“设置放映方式”，勾选“放映时不加动画”即可解决这个问题。

       董师傅点评：这样处理可以一个模板满足不同客户的需求。

避免尴尬 提前检查兼容性

@摩羯十三

       在商务环境播放PPT最怕的就是出现兼容性问题，这并不是杞人忧天，例如我们电脑上制作 PPT 用的是PPT 2016，而现场的PPT版本是2003，就可能存在一些小问题，例如一些效果无法正常显示。因此，我们可以使用点击“信息”，在“检查问题”的下拉菜单中选择“检查兼容性”，这样就能够提前发现一些兼容性导致的问题，早点解决避免尴尬。

       董师傅点评：PPT 2016新增了一下好看的图表效果，这些效果PPT 2003根本就没有，你让PPT 2003怎么显示？所以做PPT的时候，必须要考虑到“最大兼容性”。

Office 2016支持手写公式

@虚空大爆炸

       买了新电脑，用上了Office 2016，发现一个神奇功能——Office 2016居然支持手写公式，对我们科研工作者来说这个太方便了，以前输入复杂公式费时费力，现在手写速度快多了，下面给大家分享一下自己的经验，启动Word 2016，再选择“插入”选项卡，在选项卡的最右侧的“符号”命令组中，找到“公式”，在命令右侧的下拉箭头中，选择“墨迹公式”，

       此时弹出手写输入的对话框，可以通过触摸屏或鼠标手写输入公式即可。

       董师傅点评：书写的过程中，如果出现了识别错误，可以点选下方的“选择和更正”按钮，Word 会弹出与字迹接近的其他候选符号供选择修正。如果修正候选列表中仍然没有正确的选项，可以点选下方的“擦除”按钮，对错误的字迹进行擦除。鼠标指针将变为一块橡皮擦的形状，对准要擦除的字迹点击、拖动，即可擦除相应的字迹。

文档横竖打印不用愁

 @幸福耳朵

       有的时候文档中会穿插几页特殊的表格，表格要求横向打印，如此一来一篇文档就既要横向打印，又要竖向打印，那应该怎么办呢？方法如下：将光标放在要改变方向的页面，最点击“文件”，选择“页面设置”，在弹出的页面设置窗口中的“页边距”选项卡处，将纸张方向设置为“横向”，且将底部的“应用于”设置为“插入点之后”即可。

       董师傅点评：如果需要横向打印的页面在中间，不要忘记将光标放到要改回竖向的页面最开始，用同样的方法将后面几页再竖过来。

财会

备份文件 自动生成

@青春不打烊

       在编辑月度汇总表格时，为了图方便都是打开上个月的表格再修改，并最后保存为本月的汇总表格，这样操作虽然速度快，但一不小心忘记另存为了，而是直接保存将原来的文件覆盖了，那就后悔莫及了。吃过亏上过当后，琢磨怎么解决这个问题，经过摸索找到了方法：先创建一份文件执行“保存”命令，然后点击“另存为”对话框左下角“工具”旁边的小三角形按钮，在下拉列表中选择“常规选项”，接下来在弹出的对话框中勾选“生成备份文件”复选项，最后点击“确定”按钮即可。

       董师傅点评：这么设置后，Excel就会自动给该文件建立一份备份文件，且备份文件的文件名名为“原文件名+的备份”，如果今后出错了，就可以将备份文件修改为上个月的月度汇总表格。

自动统计三个关键词同时出现的次数

@游鸿无明

       每个月都要统计入库数据，现在想做到在同一行三种产品同时出现的的次数，并自动统计它们的采购数量和采购金额，这个怎么实现呢？方法如下：按下组合键“Alt+F8”打开宏窗口，输入宏名“另存为TXT文件，点击“创建”按钮，在打开的VBA窗口中输入如下代码：

Sub test()

    Dim LastRow As Long, i As Long, j As Long, k As Long

    Dim m As Long, n As Long

    Dim Str As String, TempStr As String

    Dim d As Object

    Dim Data, Result()

    Set d = CreateObject("scripting.dictionary")

    LastRow = Cells(Rows.Count, 2).End(xlUp).Row

    Data = Range("B2:F" & LastRow)

    ReDim Result(1 To LastRow, 1 To 4)

    For i = 1 To UBound(Data)

        For j = 1 To 2

            For k = j + 1 To 3

                If Data(i, j) < Data(i, k) Then

                    TempStr = Data(i, j)

                    Data(i, j) = Data(i, k)

                    Data(i, k) = TempStr

                End If

            Next k

        Next j

        Str = Data(i, 1) & " " & Data(i, 2) & " " & Data(i, 3)

        Str = Trim(Str)

        If d.exists(Str) = False Then

            n = n + 1

            d(Str) = n

            Result(n, 1) = Str

            m = n

        Else

            m = d(Str)

        End If

        Result(m, 2) = Result(m, 2) + 1

        Result(m, 3) = Result(m, 3) + Data(i, 4)

        Result(m, 4) = Result(m, 4) + Data(i, 5)

    Next i

    Range("I2").Resize(n, 4) = Result

End Sub

       最后，为新增加的宏命令指定一个按钮，今后在Excel内点击按一下该钮即可自动统计

关键词出现的次数、采购的数量和金额了。

       董师傅点评：要使用宏功能，需要在“工具”→“宏” →“安全性”中降低安全级别。

自动生成多联票据

@冬雪小夜

       在Word 中只填写第一联票据，剩下的二、三联单据由系统根据第一联内容自动填写，这个怎么实现呢？方法如下：根据公司需求设计好第一联票据，在最后处回车插入一个空行作为与下一联的间隔，再按组合键“Ctrl+A”全选第一联票据内容，复制出第二联票据、第三联，适当调整一下页边距让三联单据显示在同一页中即可。

       通常三联单必需在每一联旁边或上面标注“第X联 XX联”之类的备注，现在我们来添加这个备注，切换到“插入”选项卡，单击“页眉”选择“编辑页眉”进入页眉编辑区，在“插入”选项卡中单击“文本框”选择“竖排文本框”，在第一联票据右侧拖动插入一个文本框。在文本框中输入说明文字“第一联 记帐联”，再选中文本框切换到“绘图工具”的“格式”选项卡，单击“形状轮廓”选择为“无轮廓”以消除文本框的边线。最后复制文本框，再分别粘贴到二、三联的右侧，并把说明文字分别改成相应的“第二联 回执联”、“第三联 存根联”即可。

       董师傅点评：备注不能直接插入，否则在填写后第二三联的标注会全部自动变成第一联的标注，只能提供页眉或页脚中插入各联标注来解决。

请关注董师傅微博

       怎么办公最有效率？怎么办公最轻松？来看看董师傅的珍藏，相信你一定会有意外的收获。顺带也可以听听董师傅的理财心得，倾听财富的声音！同时有问题也可以微博私信董师傅。