文秘
提取PPT文字内容
@大雨吃小鱼
从网上下载了一些别人分享的PPT，想提取里面的文字，综合一下变成自己的，于是就想把下载的PPT转为Word。这个怎么实现呢？点击“文件”，选择“发送”，再选择“Microsoft Word”，弹出一个“将幻灯片添加到Microsoft Word文档”窗口，再点击“粘贴”即可。如果要将幻灯片链接到Word文档，点击“粘贴链接”，那么在PPT中修改了内容，这些内容也会在在Word中自动更新。
董师傅点评：如果是高版本Office，点击 “文件”，选择“另存为”，保存类型选为RTF文件，再设置一个保存路径，最后用Word打开RTF文件即可。
财会
自动跟随更新Excel工作表
@ 放任时光
在财务Excel中往往不止一个工作表，经常出现工作表1是主表，工作表2、工作表3等衍生表格，这些衍生表格跟主表的数据是息息相关的，怎么实现主表跟衍生表格的一些数据同步更新呢？方法如下：点击 “工具”，选择“自定义”，再点击 “命令”，在“类别”中选择“工具”，在右边“命令”列表中找到“摄影”，将它拖到Excel工具栏，拖动鼠标选择工资表1中需要“拍照”的数据，鼠标点击工具栏上 “照相机”按钮，这个选定的区域就被“拍”了下来，回到工作表2， 在需要显示“照片”的位置上点击鼠标左键，被“拍摄”的“照片”就粘贴过来了。
董师傅点评：照相机功能的原理是插入一幅同步自动更新的图像文件，如果原来的数据和格式出现的变化，图像文件就会自动更新数据和格式。
敏感数字不直接显示
@何文我
在公司内部，有一些敏感数字是不能随意让人看到的，例如年终信息、领导的身份信息等，如果害怕数据在传播过程中被不该看到的人看到，可以这么操作：用*替代具体数字，不过一个*一个*的输入不实际，用CONCATENATE函数搞定，先选中要处理的单元格，输入=CONCATENATE(LEFT(C1,2),"****",RIGHT(C2,3))，其中C1代表单元格，2代表有两个数字被*替换，这个根据实际情况修具体的参数。需要注意的是CONCATENATE最多只能将255 个数字替换为*，绝大多数情况下是够用了。
董师傅点评：还有一个办法，那就是隐藏数据，不过如果是要打印出来让员工签字的那种，就只能用上面的方法了。
 
按姓名自动归集个人资料
@鲸鱼玉
笔者手中有公司的一个物品表，表里面第一列是姓名，第二列是物品，第三列是数量，
由于长年累月的记录，物品表很长且很不直观，例如张三借过8次东西，就有8条记录，占了8行，怎么按姓名自动归集个人资料？也就是一个人只占一行，后面就是全部资料，例如A2的内容是张三的名字，B2的内容是圆珠笔×2、排插×1、乒乓球×3。这个怎么实现呢？
经过研究找到了解决方法，特意来给大家分享一下。新建一个Excel文档，按下组合键“Alt+F8”打开宏窗口，随意输入一个宏名，点击“创建”按钮，在打开的VBA窗口中输入如下代码：
Option Explicit
Sub test100
Dim Dic, arr1, x, k, y, Dic1, arr3(1 To 100000, 1 To 1)
Set Dic = CreateObject("Scripting.Dictionary")
Set Dic1 = CreateObject("Scripting.Dictionary")
arr1 = Range("A1").CurrentRegion
ReDim arr2(1 To UBound(arr1), 1 To UBound(arr1, 2))
For x = 2 To UBound(arr1)
If Not Dic.exists(arr1(x, 1) & arr1(x, 2)) Then
k = k + 1
Dic(arr1(x, 1) & arr1(x, 2)) = k
arr2(k, 1) = arr1(x, 1)
arr2(k, 2) = arr1(x, 2)
arr2(k, 3) = arr1(x, 3)
Else
arr2(Dic(arr1(x, 1) & arr1(x, 2)), 3) = arr2(Dic(arr1(x, 1) & arr1(x, 2)), 3) + arr1(x, 3)
End If
Next x
'============================
For x = 2 To UBound(arr1)
Dic1(arr1(x, 1)) = ""
Next x
For x = 1 To Dic1.Count
For y = 1 To k
If arr2(y, 1) = Dic1.keys(x - 1) Then
arr3(x, 1) = arr3(x, 1) & arr2(y, 2) & "*" & arr2(y, 3)
End If
Next y
Next x
Range("E1").CurrentRegion.Clear
[E1] = "姓名": [F1] = "归集"
[E2].Resize(Dic1.Count, 1) = Application.Transpose(Dic1.keys)
[F2].Resize(Dic.Count, 1) = arr3
End Sub
最后，为新增加的宏命令指定一个按钮，今后点击按钮，就自动生成一张归集后的新表格。
董师傅点评：要使用宏功能，需要在“工具”→“宏” →“安全性”中降低安全级别。
教师
教案只准看不许复制
@别克船长
才网上下载了一个Word教案,内容很有借鉴价值想复制其中的内容,可发现不能复制粘贴,起初以为是键盘的问题,后面发现就是文档做了限制,后来感觉这个限制技巧很实用，研究了一下就学会了，在此跟大家分享一下：点击菜单栏中的“工具”，选择“保护文档”，在右侧弹出的窗口中勾选第二项“仅允许在文档中进行此类型的编辑”，再点击下拉菜单，选择“填写窗体”，之后点击“是，启动强制保护”，输入一个密码即可，只有知道密码的人才可以删除文档保护复制文档的内容。设置后，当其他人按“Ctrl+A”组合键时，就会发现操作不起作用了
董师傅点评：如果是高版本的Word,先点击“审阅”，选择“限制编辑”，之后的操作跟上文一样。
怎么办公最有效率？怎么办公最轻松？来看看董师傅的珍藏，相信你一定会有意外的收获。顺带也可以听听董师傅的理财心得，倾听财富的声音！同时有问题也可以微博私信董师傅。