文秘

PPT设计中的数学知识

@古到西峰

      玩PPT设计，一定要懂一点数学知识如此会让PPT漂亮起来。最常用的是黄金比例，最理想的比例是1.618，在PPT的页面中将中心线的位置设置在0.618:1（左边窄右宽）即可，如此就可以获得一个自然的感觉；斐波那契数列也用的多，其原理是，用后一项除以前一项，比例会越来越接近1.618:1，例如在三栏式布局中，三栏的宽度分别设置为是180,270,720，看上去非常协调；坤德里几何，画一个正方形，然后画两条对角线。连接正方形每条边的中点就可以得到坤德里图，这种布局在高级PPT中比较常见，可以显得更大气、更有立体感。

董师傅点评：常见的页面布局还有十字法、三分法（九宫格），还有一些图文混排的不规则布局。

删除Word空行深度研究

@TIAN独角兽

      网上下载的TXT文档、Word文档中经常有多余的空行，一行一行的删除费时费力，怎么快速删除全部空行呢？方法如下。在Word中（如果是TXT文档，也选择这个打开）点击“编辑”，选择“替换”，将光标定位在“查找内容”输入框中，点击“"高级”按钮，选择“特殊字符”中的“段落标记(P)”两次，在输入框中就会显示^P^P，然后在“替换为”输入框中用上面的方法插入一个^P，再点击“全部替换”多余的空行就会被删除。

      大多数情况下，这么操作就搞定了，可有的文档比较复杂，还需要进一步操作，例如删除后还留有许多空白行，可以循环使用^P^P命令删除；有的文档是直接复制的网页文章，现段落标记后有一些空格，因此命令要修改为^P加一个个空格再加上^P。

      如果用了上面的方法还有空行，那就要细心看一下换行段落标记，是自动换行(页面行末显示的符号是回车符)，还是手动换行(页面行末显示的符号是↓)，前面的方法针对的是自动换行符，要碰到手动换行的情况，就需要点击“特殊字符”，选择“人工换行(L)”两次，即用^l^l替换成^l。

     董师傅点评：一些小说网站提供的TXT文档，用了上述方法还是有空行无法删除，欢迎大家提供更多的解决思路并我们投稿，投稿邮箱是285845949@q*.c*m。

Office三个版本完美共存

@高雪茹

      电脑上同时安装Office 2003、Office2007、Office2016三个版本，有的时候会出现配置错误的提示，这个问题怎么解决呢？如果你也碰到这个问题，可以采用下面的方法可以解决同时安装多个版本的Office的冲突。在系统中点击“开始”→“运行”，在弹出的“运行”对话框中输入三条命令：

第一条命令是针对Office 2003的：reg add HKCU\Software\Microsoft\Office\11.0\Word\Options /v NoReReg /t REG_DWORD /d 1

第二条命令是针对Office 2007和：reg add HKCU\Software\Microsoft\Office\12.0\Word\Options /v NoReReg /t REG_DWORD /d 1

第三条命令是针对Office 2016的：reg add HKCU\Software\Microsoft\Office\16.0\Word\Options /v NoReReg /t REG_DWORD /d 1

      看到这里，是不是想到，用同样的方法可以兼容更多的Office版本！是的，只要知道Office对应的版本号，相应修改命令即可，例如Office2010的版本号是14.0，那么对应的命令就是reg add HKCU\Software\Microsoft\Office\14.0\Word\Options /v NoReReg /t REG_DWORD /d 1。

     董师傅点评：分别输入命令哟，不能一次全输入。

数字按小数点对齐

@御风乐行

      在Word 表格中经常会碰到这样的情况：一列或者多列数字带有不同位数的小数时，例如一列下有3.432、4.5、1.24三个数字就看上去怪怪的，如果它们能够按小数点对齐，那么看上去就协调人。方法如下：选中整个表格列，单击“开始”选项卡，然后单击“段落”组的对话框启动器，在“段落”对话框中单击“制表位”按钮，在“制表位位置”框中为新制表位键入适当的度量值，度量值以“字符”为单位，1个字符位可以容纳两个数字，在“对齐方式”标题下，选中“小数点对齐”复选钮，在“前导符”标题下，选中“无”复选钮，最后单击“确定”按钮即可。对了，在制表位处对齐小数点后，文字或没有小数点的数字会向制表位左侧扩展。

     董师傅点评：需要注意的是在设置数字按小数点对齐之前，要将这些数字设定为两端对齐或分散对齐，而不能是居中对齐，否则设置无效。

财会

固定表格 字再多也不变形

@癫狂的驴子

      在Word的表格中添加过多文字，文字就会超出表格的宽度导致表格变形，如果表格上给自己看或者给朋友看就无所谓，如果是给公司制作的、需要给领导或者客户看那就不行了，就需要手动调整表格解决变形都是问题，有没有方法可以固定表格？让文字能够根据单元格的大小而自动调整自身的大小就好，如下所示：打开需要调整的表格，选择要调整的区域，点击菜单栏上的“表格”→“表格属性”，在弹出的表格属性对话框中的“表格”选项卡中点击“选项”，在弹出的表格选项对话框中把“自动重调尺寸以适应内容”前面的钩去掉，最后再在表格属性对话框中点击“选项”，在弹出窗口中选择“适应文字”即可。

董师傅点评：手动调整的话鼠标右击表格，选择“自动调整”→“根据窗口调整内容”。

一次性合并多薄多表

@太阳多肉

     一个文件夹下有多个Excel工作簿，每个Excel工作簿里面又有多可工作表，有什么方法可以一次性合并文件夹内多薄多表中的内容吗？可以借助VBA代码实现，在文件夹内新建一个Excel，然后输入VBA代码：

    Dim Arr, MyPath$, MyName$, R&, Col%, aR_n&,shname

    Dim Wb As Workbook '定义源文件,同目录下其它文件

    Dim Ws As Worksheet '定义目标文件,当前文件

    Dim F As Object

    shname=activesheet.name   '定义合并的工作表名

    Application.ScreenUpdating = False

    MyPath = ActiveWorkbook.Path & "\"

    MyName = Dir(MyPath & "*.xls")

    For Each Ws In ActiveWorkbook.Sheets

        '清除原有记录

        Set F = Cells.Find("*", , , , , xlPrevious)

        If Not F Is Nothing Then

            Ws.Rows("2:" & F.Row + 1).Delete '多加一防止只有一行标题行时删除标题

        End If

    Next Ws

    '逐个打开文件相同表名合并

    Do While MyName <> ""

        If MyName <> ActiveWorkbook.name Then

            Set Wb = GetObject(MyPath & MyName)

            For Each Ws In Wb.Sheets

                With Ws

                     if ws.name=shname then

                    Set F = .Cells.Find("*", , , , , xlPrevious) '求源文件最大行

                    If Not F Is Nothing Then

                        R = F.Row

                        If R > 1 Then '如果只有一行或空表不合并

                            Col = F.Column

                            Arr = .Range(.Cells(2, 1), .Cells(R, Col))

                            Set F = Sheets(Ws.name).Cells.Find("*", , , , , xlPrevious) '求目标文件最大行

                            If F Is Nothing Then

                                aR_n = 2

                                Else

                                aR_n = F.Row + 1

                            End If

                            Sheets(Ws.name).Cells(aR_n, 1).Resize(UBound(Arr), Col) = Arr

                            Sheets(Ws.name).Cells(aR_n, Col + 1).Resize(UBound(Arr)) = MyName '填充文件名

                        End If

                    End If

                   endif

                End With

            Next Ws

            Wb.Close False

            Set Wb = Nothing

            Set Ws = Nothing

        End If

        MyName = Dir

    Loop

    Application.ScreenUpdating = True

End Sub

最后，就是为新增加的宏命令指定一个按钮，今后点击按钮就可以自动进行多薄多表的合并。

董师傅点评：其实可以借助Excel插件工具——多薄多表合并mergebooks.dll，省去输入代码这个过程且操作更丰富，例如可以进行分类汇总合并。  

迷你图清晰展现数据变化

@星兔粑粑

      为了直观展示数据变化，经常要在Excel销售表格中使用“图表”中的“折线图”，不过Excel生成的“折线图”比较大很占空间，有没有更好的方法呢？在一个单元格中可以绘制出简洁的小图表吗？使用迷你图功能就可以做到，方法如下：

      在Excel工作表中，切换到“插入”选项卡，就可以看到“迷你图”选项卡，点击其中的“折线图”按钮，在弹出的“创建迷你图”对话框的“数据范围”处输入一个数据区域，例如A2~H2，在“位置范围”处输入放置图表的目标单元格位置，例如J2单元格，最后点击“确定”就可以创建一张折线迷你图，用同样的方式可以为设置一系列的折线迷你图。

      为了让折线迷你图更美观，点击“迷你图工具”选项卡在的“设计”，再在“样式”中选择“其他”，打开迷你图样式库，之后选择一个自己喜欢的样式，再在“显示”选项组中点击“高点”和“低点”，以便在图表中突出显示最高值和最低值，最后可以通过更改“标记颜色”让图表中的最高值和最低值更好的被识别。 

董师傅点评：Excel 2010及以上的版本才有迷你图功能。

请关注董师傅微博

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