办公交流平台（办公达人堂）

文秘

制作镂空效果文字

@负二次方

看到《电脑报》第34期的《制作“双色字”效果》，感觉很有意思，于是自己也试着玩了一下，然后摸索了一下其他效果，特意来给大家分享，例如怎么制作带镂空效果的文字。方法如下：打开PP，插入一张图片，这张图片就是镂空文字透显的内容。再点击 “插入”选项卡，选择“文本框”，在图片中插入一个文本框，在“文本框”中输入文字，例如电脑报，之后先选中图片再选择文字，不要搞反了顺序哟！接着，点击“绘图工具”，选择“格式”，在“合并形状”中选择“剪除”即可达到目的。

董师傅点评：图文镂空设计是一种常见方式，特别适合用于透显黑白底色的照片，营造出一种Fashion感。

精美图表在线生成

@阳光温暖

商业PPT中经常可以看到精美图表，是不是非常羡慕？这需要花很多心血才可以搞定。如果技术不好，花再多时间也达不到满意的效果，那怎么快捷地设计精美图表呢？笔者推荐一个在线网站https://www.gliffy.com/products/online，Gliffy可以在线创建流程图、UML图、线框图、BPNM、组织架构图、网站地图等各式图表，免费用户有30天无限制试用期，对大部分人来说够了，不够的话重新用邮箱注册一个账号即可（不注册账号不能下载图表）。操作也非常简单，点击“START DRAWING”就可以绘图，上面两行分别是菜单栏和工具栏，左边是组件库，右边最大的空白区域就是编辑区，将组件拖到编辑区再重新组合即可，这个过程是自动完成的。

董师傅点评：如果英语不好，建议用网页翻译助阵，主要操作就没有障碍了。

Excel会自动换行

@浣雨听舟行

不知道大家发现没有，如果没有修改Excel设置的话，在单元格中输入的文字过长就会超出单元格范围看不到了，有的时候我们会增加单元格的宽度，这样偶尔应急一下没有问题，但如果经常碰到这个问题，又该如何一劳永逸低解决问题呢？方法如下：选中需要设置自动换行的单元格或者单元格区间，点击右键选择“设置单元格格式”，在弹出的窗口中选择“对齐”选项卡，在“文本控制”下选择“自动换行”复选框即可。

董师傅点评：在一个空白的Excel文档中设置好自动换行，以后用这个Excel文档做模板就好。

Word“域命令”令打印出错

@鲲以致远

普通Word文档打印是不会出错的，但如果Word文档带有“域命令”就会出现无法打印的情况，例如弹出“错误!未找到引用源”错误提示。这个问题怎么解决呢？方法如下：

打开Word文档，点击“编辑”，再选择“链接”，在弹出的“链接”对话框中勾选“锁定”复选框，最后确定即可。如果这样操作后还是没有解决问题，可以按组合键“Ctrl Shift F9”解除域的链接，再打印就没有问题了。

董师傅点评：域是Word的一种特殊命令，由花括号、域名（域代码）及选项开关构成。主要用于公式计算，如果用的熟练比公式编辑器效率更高。

财会

将TXT数据导入Excel

@心曲奇

有的时候我们需要从财务软件中导出数据，如此操作后数据就保存在TXT中了，那怎么将在TXT的数据导入Excel中？方法如下：在Excel 中定位到“数据”，选择“选择外部数据”，弹出“导入数据”对话框，选择含有数据的记事本，然后在对话框中确定数据存放位置，再点击“下一步”，设置导入后每列的数据类型，此处选择文本格式再点击“确定”即可。

董师傅点评：导入TXT数据是有限制的，如果数据没有规律，这个导入方法是无效的，因此要事先将每列的数据弄成宽度一致，导入时选择“固定宽度”就OK！

&nbsp

提取不同文件夹下的指定单元格内容

@桃花鼠

一个汇总文件夹下面有好多个子文件夹,每个子文件夹按照日期命名的,且里面有一个Excel文档,里面记录了许多数据.现在想要汇总所有Excel文档中“日期”单元格的内容，如果一个文件一个文件的打开再输入新的表格中，工作量太大，这个问题怎么解决呢？按下组合键“Alt F8”打开宏窗口，输入宏名“另存为TXT文件”，点击“创建”按钮，在打开的VBA窗口中输入如下代码：

Sub Macro1

Dim Fso As Object, sFileType$, i&, a, arrf$, brr, m&

Dim cnn As Object, rs As Object, SQL$

Application.ScreenUpdating = False

a = Range("A1:C1")

Set Fso = CreateObject("Scripting.FileSystemObject")

sFileType = "*.xls"

Call GetFiles(ThisWorkbook.Path, sFileType, Fso, arrf, m)

ReDim brr(1 To m, 1 To 3)

For i = 1 To m

Set cnn = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.Recordset")

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='excel 8.0;hdr=no';Data Source=" & arrf(i)

Set rs = cnn.OpenSchema(20)

Do Until rs.EOF

If rs.Fields("TABLE_TYPE") = "TABLE" Then

s = Replace(rs("TABLE_NAME").Value, "'", "")

If Right(s, 1) = "$" Then

brr(i, 1) = cnn.Execute("select f1 from [" & s & "b4:b4]")(0)

brr(i, 2) = cnn.Execute("select f1 from [" & s & "b7:b7]")(0)

brr(i, 3) = cnn.Execute("select f1 from [" & s & "d18:d18]")(0)

Exit Do

End If

End If

rs.MoveNext

Loop

Next

ActiveSheet.UsedRange.Offset(1).ClearContents

[a2].Resize(i - 1, 3) = brr

Set Fso = Nothing

rs.Close

Set rs = Nothing

cnn.Close

Set cnn = Nothing

Application.ScreenUpdating = True

End Sub

Private Sub GetFiles(ByVal sPath$, ByVal sFileType$, ByRef Fso As Object, ByRef arr$, ByRef m&)

Dim SubFolder As Object

Dim File As Object

For Each File In Fso.GetFolder(sPath).Files

If File.Name Like sFileType Then

If File.Name ThisWorkbook.Name Then

m = m 1

ReDim Preserve arr(1 To m)

arr(m) = File

For Each SubFolder In Fso.GetFolder(sPath).SubFolders

Call GetFiles(SubFolder.Path, sFileType, Fso, arr, m)

Next

Set File = Nothing

Set SubFolder = Nothing

End Sub

最后，为新增加的宏命令指定一个按钮，今后点击该按钮即可自动汇总提取不同文件夹下的指定单元格内容，代码中的单元格、文件名称等要根据实际情况自行修改。

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

教师

为数学题输入循环小数

@笑笑鼠

在制作数学单元练习题或者数学试卷时，有时候要输入循环小数，这个怎么输入呢？假设要在Word文档中输入“1.23”，数字3要循环，那么鼠标选中数字3，点击“格式”，选择“中文版式”，再选择“拼音指南”，在“拼音文字”处点击一下，再点击搜狗输入法的软键盘按钮，弹出软键盘，在其中选择“.”符号即可。

董师傅点评：除了用这个方法，还可以用公式编辑器来完成，这个更加专业一点，不过操作要复杂一些。

请关注董师傅微博

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

&nbsp

,