大家都知道Excel有很多骚操作，Excel的二级下拉菜单就是其中一个。但是呢，其实Word也有很多骚操作，比如今天小编要讲的Word下拉列表，这个Word下拉列表和Excel的二级下拉菜单有异曲同工之妙，下面就一起来看看吧~
之一步：我们要做的是，先添加一个【开发工具】到Word的菜单栏中。具体的添加步骤如下：
点击Word菜单栏中的【文件】，选择【选项】，然后点击【自定义功能区】，在右侧的【自定义功能区】底下的方框中勾选【开发工具】，然后再点击【确定】就行了。
第二步：我们要做的是在表格中插入【下拉列表内容控件】，先将鼠标定位在要插入的单元格中，然后点击菜单栏中的【开发工具】，再点击【控件】中的【下拉列表内容控件】即可。
第三步：接下来我们要做的是我们上一步骤刚插入的【下拉列表内容控件】的属性。
下面我们先来设置"产品"下的单元格的【下拉列表内容控件】的属性，先选择"产品"下的单元格的【下拉列表内容控件】，然后点击【开发工具】，点击【控件】中的【属性】，然后点击【添加】，输入相关内容，依次输好之后，最后点击【确定】 就行。
"产品"下的单元格的【下拉列表内容控件】的属性设置好之后，我们可以点击"销售状态"下的单元格的【下拉列表内容控件】进行设置，设置步骤和前面的差不多，都是先选择【下拉列表内容控件】-【开发工具】-【控件】中的【属性】-【添加】-输入内容-【确定】。
第四步：上面的属性设置好后，基本可以算完成了。依次将第二列的【下拉列表内容控件】复制到下面的单元格，然后再根据需要进行选择即可。
Ok，关于Word的下拉列表 *** 就到这里了，大家都学会了吗？学会后，相信绝对能让老板看懵~还没学会的朋友也没关系，可以先收藏起来，再慢慢学~
作为公司公共部门或者文职职能部门人员来讲，经常会涉及一下公司文件命令的下发，这里面就会涉及到Word红头文件的 *** 。
下面我们就来详细的学习一下，如何利用Word *** 我们需要的红头文件，同时做成固定模板进行红头文件格式的任意调用。
之一步：首先点击菜单栏栏：插入—表格，这里我们选择自己指定表格，按照上面的文件格式，选择三列三行。如下图所示：
第二步：将插入的表格按照需要的格式进行单元格合并，之一列和第三列中上面的两行进行单元格内容合并。第三行全部进行单元格合并。然后输入对应的文字内容，对应的将文字颜色调整为红色加粗，同时设置为文字居中。如下图所示：
第三步：取消表格边框线。全选表格后，点击边框和底纹，然后单独对表格底部最下面的边框下添加双下划线。边线添加为红色。如下图所示：
最后，我们选择我们设置好的红头文件格式，点击菜单栏插入—封面，然后将对应的内容添加到我们的文档模板中，下次我们只要打开Word文档—插入—封面，这样就可以随意的调取这个文件格式。然后 *** 我们需要的各类文件公告。如下图所示：
现在你学会如何利用表格的方式，进行设置红头文件模板格式了吗？通过模板的 *** ，我们就可以在后续工作中进行任意的调用。
如果我们用Word *** 大量的标签、信封、工资条、成绩单、邀请函或是人员档案，该怎么做？
那有没有更简单、高效的 *** 呢？当然有，那就是Word中的「邮件合并」功能。
什么是「邮件合并」呢？
简单来说，就是如果你需要 *** 很多份格式都一样，但部分内容不一样的文档，都可以用这个功能实现。
具体如何操作呢？下面以 *** 人员档案的例子来说明。
首先，我们需要准备一个Word模板和一个数据源，如下。
Word模板直接决定了最终生成文档的格式、样式。
本案例中使用Excel文件作为数据源，数据源文件决定最终生成的新文档中的内容，工作表中的每一行数据都会通过「邮件合并」被映射到每新文档中。
案例使用office2010进行演示。完成一个完整的「邮件合并」过程大概需要以下步骤：
- 选择数据源
- 在Word模板中插入域
- 调整部分域的格式
- 关于图片的处理
- 生成新文档（会以信函*命名）
- 根据需要拆分新文档
看着步骤非常多，其实不难，快来一起学习吧~
- 01 -
选择数据源
依次点击「邮件」-「选择收件人」-「使用现有列表」，选择 人员信息总表（数据源）.xlsx 作为数据源文件，如下。
选择数据源后，「编写和插入域」「预览结果」和「完成」会由原来不可选状态变成可选状态。
- 02 -
在Word模板中插入域
点击「插入合并域」，在下拉菜单中可以看到和数据源工作表列名分别对应的域的名称。
将光标移动到合适位置，点击域名即可插入域。
按「Shift+F9」可以显示或隐藏指定的域代码，按「Alt+F9」可以显示或隐藏文档中所有的域代码。
域代码的格式一般为：{ MERGEFIELD FieldName <开关> }
- 03 -
调整部分域的格式
在完成第二步操作后，点击「预览结果」可以预览合并后的效果，如下。
此时我们发现人员信息表中的时间、数字和货币显示的格式和数据源工作表中的格式不一致，而且也不是我们想要的格式，必须作出如下修改。
- ｛ MERGEFIELD 出生日期 ｝修改为｛ MERGEFIELD 出生日期 \@ yyyy-MM-dd ｝
- ｛ MERGEFIELD 考评成绩 ｝修改为｛ MERGEFIELD 考评成绩 \# 0.00 ｝
- ｛ MERGEFIELD 应缴款项 ｝修改为｛ MERGEFIELD 应缴款项 \# ￥0.00 ｝
修改完成以后的域代码，如下，跟Excel单元格格式非常接近。
按「Alt+F9」隐藏域代码，再点击「预览结果」，格式已经符合要求。
- 04 -
图片方面的处理
依次点击「插入」-「文档部件」-「域」-「插入域」。
在弹出的对话框中找到「INCLUDEPICTURE」并设置好图片所在的路径。
完成这一步后，按「Shift+F9」显示照片位置的域代码为{ INCLUDEPICTURE "D:\\邮件合并\\照片" \*MERGEFORMAT }。
但域代码中的URL路径只是指向了图片所在文件夹的路径。将鼠标光标移动到「照片」两字后面，输入「\\」。
然后依次点击「邮件」-「插入合并域」-「照片路径」。
完成操作后的域代码变成{ INCLUDEPICTURE "D:\\邮件合并\\照片\\{ MERGEFIELD 照片名称 }" \*MERGEFORMAT }。
完成以上所有步骤以后的域代码为：
- 05 -
完成合并新文档
依次点击「邮件」-「完成并合并」-「编辑单个文档」-「全部记录」。
即可生成一个以信函 * 命名的新文档，在新文档中按「Ctrl+A」全选，再按「F9」即可更新显示全部图片。
至此，一个「邮件合并」比较完整的步骤都已经做完了，各位小伙伴学会了么？下次分享如何拆分「邮件合并」后的文档。
好了，那么关于「邮件合并」的技巧就分享到这里了，如果你还有其他关于 高效办公 的技巧，可以在文章下进行留言哦~
以上就是今天想给大家分享的内容，希望对大家有所帮助。
Hello大家好，我是帮帮。今天跟大家分享三张word精致排版菜单，文本框修改，A4排版直接打印。
有个好消息！为了方便大家更快的掌握技巧，寻找捷径。请大家点击文章末尾的“了解更多”，在里面找到并关注我，里面有海量各类模板素材免费下载，我等着你噢^^<——非常重要！！！
/大家请看范例图片，word点菜单，A4排版，菜单要素齐全，方便打印套用。/
/图中二维码可以右键——更换图片进行调整。/
/文本框设计，大家可以轻松选择，点击修改。/
/大家可以根据自己的需求修改，调整，适合小餐馆的菜单就轻松完成。/
/直接打印过塑，日常工作不劳心。/
下载 *** ！帮帮将每天定时更新各种模板素材，获取方式。
1、请在评论区评论+点赞^o^
2、点击关注，关注本头条号
3、进入头条号页面，右上角私信功能，私信回复“表格”，直接获取各类素材。
按照这样打印1000个桌牌，Word批量生成1000张桌牌，10分钟就可以搞定。
在批量生成之前，我们需要先 *** 之一个桌牌，将它作为模板。
然后在Excel里把所有人的姓名和职位录入进去，再点击保存，存为默认格式就可以。
再回到word，点击菜单栏的部件选项卡，在开始邮件合并按钮里，点击选择收件人，点击使用现有列表。选择刚才保存的Excel文件，点击打开，选择姓名，点击邮件选项卡下的插入合并域。同样把职位再选中，点击插入合并域，选择职位名称，下面的这一面也是用同样 *** 设置好。
然后再点击菜单栏上的完成并合并，点击编辑单个文档，勾选全部，点击确定。这样1000人的桌牌就全部生成，可以直接打印了。
Word VBA｜宏共享 & 自定义工具栏1 宏共享
任意打开或新建一Word文档，怎样才能看到需要共享的宏？将代码保存到Normal.docm即可！该文档是word的模板文档，会在新建或打开任一word文档时伴随打开，相应的，其中包含的VBA代码也就可以访问了。
操作步骤：
“开发工具”选项卡→宏→Visaul Basic→左侧单击Normal工程→插入→模块→将上述的代码复制到右边的代码窗口。
Normal.docm的具体路径如下：
C:\\Users\username\\AppData\Roaming\\Microsoft\\Templates
2 宏自动运行
2.1 宏名为AutoOpen的宏会自动随文档启动而启动：
sub AutoOpen()
msgbox "auto open!"
end sub
2.2 利用Document对象的Open事件：
在你的VBA项目的ThisDocument对象程序窗口中插入：
Private Sub Document_Open()
msgboxc "document open！"
End Sub
3 自定义工具栏
'添加自定义菜单
'定义一些全局变量
Dim Obj_Toolbar As CommandBar '代表工具栏的变量
Sub AutoOpen()
'Sub Document_Open()
On Error Resume Next
Application.CommandBars("Bars1").Delete
With Application.CommandBars.Add("Bars1", msoBarTop, , True)
.Visible = True
With .Controls.Add
.FaceId = 263
.TooltipText = "替换页眉页脚"
.OnAction = "替换页眉页脚.替换页眉页脚"
.Caption = "替换页眉页脚(&Q)"
.Style = msoButtonIconAndCaption
End With
With .Controls.Add
.FaceId = 264
.TooltipText = "网上复制文本格式"
.OnAction = "网上复制文本格式.网上复制文本格式1"
.Caption = "网上复制文本格式1(&Q)"
.Style = msoButtonIconAndCaption
End With
With .Controls.Add
.FaceId = 264
.TooltipText = "网上复制文本格式2不操作空白段落"
.OnAction = "网上复制文本格式.网上复制文本格式2不操作空白段落"
.Caption = "网上复制文本格式2不操作空白段落(&Q)"
.Style = msoButtonIconAndCaption
End With
With .Controls.Add
.FaceId = 264
.TooltipText = "网上复制文本格式3没有段落"
.OnAction = "网上复制文本格式.网上复制文本格式3没有段落"
.Caption = "网上复制文本格式3没有段落(&Q)"
.Style = msoButtonIconAndCaption
End With
End With
Set Obj_Toolbar = Application.CommandBars.Add("My_Custom_Bar") '新建工具栏，“My_Custom_Bar”代表工具栏的名称
Set Obj_Toolbar_button = Obj_Toolbar.Controls.Add(Type:=msoControlButton, ID:=1) '新建工具栏按钮
With Obj_Toolbar_button '设置按钮的属性
.Caption = "汉字中间的空格替换掉"
.Style = msoButtonIconAndCaption
.FaceId = 684
.OnAction = "网上复制文本格式.汉字中间的空格替换掉"
End With
Set Obj_Toolbar_button = Obj_Toolbar.Controls.Add(Type:=msoControlButton, ID:=1) '新建工具栏按钮
With Obj_Toolbar_button '设置按钮的属性
.Caption = "删除空白段落"
.Style = msoButtonIconAndCaption
.FaceId = 384
.OnAction = "网上复制文本格式.删除空白段落"
End With
With Obj_Toolbar '设置工具栏的属性
.Visible = True '工具栏可视
.Enabled = True '工具栏可用
.Position = msoBarTop '工具栏置顶
End With
End Sub
效果如下：
附相关宏：
Sub 替换页眉页脚()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close
With ActiveWindow.ActivePane.View
.Type = wdPrintView
.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
'Selection.TypeText Text:="这是替换后的页眉"
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
Set rng = .Range
rng.Text = "第 "
rng.Collapse wdCollapseEnd
'wdCollapseEnd 折叠一个代表完整段落的区域，则该区域将定位于段落结束标记之后（即下段开头）。
'但是，在该区域折叠后，可以用 MoveEnd *** 将区域回移一个字符。
ActiveDocument.Fields.Add rng, wdFieldPage, "Page"
Set rng = .Range
rng.Collapse wdCollapseEnd
rng.Text = " 页 / 共 "
rng.Collapse wdCollapseEnd
ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"
Set rng = .Range
rng.Collapse wdCollapseEnd
rng.Text = " 页 "
.Range.Fields.Update
.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
'隐藏页眉的横线；
.Range.Borders(wdBorderBottom).Visible = False
End With
'加载一图片文件作为页眉
'Selection.InlineShapes.AddPicture FileName:="F:\Website\witiso\33VBA\实例\word\top.jpg", LinkToFile:=False, SaveWithDocument:=True
.SeekView = wdSeekMainDocument
End With
WordBasic.ViewFooterOnly
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
'Selection.TypeText Text:="这是替换后的页脚"
Dim GetDocName
GetDocName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
Set rng = .Range
rng.Text = GetDocName
rng.Collapse wdCollapseEnd
Set rng = .Range
rng.Collapse wdCollapseEnd
rng.Text = " 第 "
rng.Collapse wdCollapseEnd
ActiveDocument.Fields.Add rng, wdFieldPage, "Pages"
Set rng = .Range
rng.Collapse wdCollapseEnd
rng.Text = " 页 / 共 "
rng.Collapse wdCollapseEnd
ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"
Set rng = .Range
rng.Collapse wdCollapseEnd
rng.Text = " 页 "
.Range.Fields.Update
.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
' 设置页面边距和页眉页脚边距
With ActiveDocument.PageSetup
.TopMargin = CentimetersToPoints(1.5)
.BottomMargin = CentimetersToPoints(1.7)
.LeftMargin = CentimetersToPoints(1.7)
.RightMargin = CentimetersToPoints(1.5)
.HeaderDistance = CentimetersToPoints(1)
.FooterDistance = CentimetersToPoints(1.2)
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
End Sub
Sub 网上复制文本格式1()
Selection.WholeStory
Selection.Cut
Selection.PasteAndFormat (wdFormatPlainText)
Application.Run MacroName:="替换页眉页脚.替换页眉页脚"
Application.Run MacroName:="删除空白段落"
Application.Run MacroName:="汉字中间的空格替换掉"
Application.Run MacroName:="段落设置"
End Sub
Sub 网上复制文本格式2不操作空白段落()
Selection.WholeStory
Selection.Cut
Selection.PasteAndFormat (wdFormatPlainText)
Application.Run MacroName:="替换页眉页脚.替换页眉页脚"
Application.Run MacroName:="汉字中间的空格替换掉"
Application.Run MacroName:="段落设置"
End Sub
Sub 网上复制文本格式3没有段落()
Application.Run MacroName:="替换页眉页脚.替换页眉页脚"
Application.Run MacroName:="去掉全部段落"
Application.Run MacroName:="汉字中间的空格替换掉"
Application.Run MacroName:="段落设置"
End Sub
Sub 删除空白段落()
Selection.WholeStory
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If VBA.Len(para.Range) = 1 Then
para.Range.Delete
End If
Next
Dim i As Integer
For i = 1 To 2
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'On Error Resume Next
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True '向后搜索
.Wrap = wdFindContinue
.Format = False ' 不清除格式
.MatchCase = False ' 匹配大小写
.MatchWholeWord = False ' 整词匹配
.MatchByte = False ' 全角
.MatchWildcards = False '不勾选"使用通配符"
.MatchSoundsLike = False ' 不匹配 同音词
.MatchAllWordForms = False ' 不查找单词的所有形式
'()^13{1,}表示查找所有以
'非句号、冒号、中文省略号、问号、感叹句和右括号为结尾、硬回车符号为标志的段落。用在对话框中
'^13是回车符（段落标记^p），^11是换行符。用中括号括起来表示这两个都可以，{1,}表示1个以上。
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
Sub 汉字中间的空格替换掉()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(<一-﨩>)( {1,})(<一-﨩>)"
.Replacement.Text = "\1\3"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.DisplayRulers = Not ActiveWindow.ActivePane. _
DisplayRulers
End Sub
Sub 段落设置()
Selection.WholeStory
With Selection.ParagraphFormat
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.FirstLineIndent = CentimetersToPoints(0.75)
.LeftIndent = CentimetersToPoints(0) '左缩进
.RightIndent = CentimetersToPoints(0) '右缩进
.SpaceBefore = 0 '段前间距
.SpaceBeforeAuto = False
.SpaceAfter = 2.5 '段后间距
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly '单倍行距
.LineSpacing = 18
.Alignment = wdAlignParagraphJustify '段落2端对齐
.WidowControl = False '孤行控制
.KeepWithNext = False '与下段同页
.KeepTogether = False '段中不分页
.PageBreakBefore = False '段前分页
.NoLineNumber = False '取消行号
.Hyphenation = True '取消段字
.FirstLineIndent = CentimetersToPoints(0.36) '首行缩进
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 2.02
.LineUnitBefore = 0
.LineUnitAfter = 0.5
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
End Sub
Sub 去掉全部段落()
Selection.WholeStory
Selection.Cut
Selection.PasteAndFormat (wdFormatPlainText)
Selection.WholeStory
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If VBA.Len(para.Range) = 1 Then
para.Range.Delete
End If
Next
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'On Error Resume Next
With Selection.Find
.Text = "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Dim i As Integer
For i = 1 To 2
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'On Error Resume Next
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
－End－
在Excel表格中，我们可以用数据验证（有效性）序列设置下拉菜单，今天兰色教同学们在Word中设置下拉菜单，绝对会让你的同事看傻。
先看Word下拉菜单效果：
添加步骤：
1、插入控件
选取要插入的位置，开发工具 - 组合内容控件
2、添加下拉菜单内容
选取控件 - 点工具栏 属性，在打开的【内容控件属性】窗口中添加选项：男和女
3、设置提示文字
点击设置模式按钮 - 输入要显示的文字 - 再点设计模式
最后：在用word *** 调查表模板时，可以使用下拉菜单功能，省力又有提示功能，非常的实用。
这功能WPS卖近百元？教你免费将PDF转成Word作者：兰色幻想——赵志东
PDF文件如何转换成为Word？很多朋友研究这个问题已经很久了，PDF更利于统一格式传播，Word更便于编辑，因此收到PDF文件后、想要修改时要如何将PDF转换成Word可谓是一个刚需。当然，不少办公软件提供了这样的功能，例如WPS，然而实际使用中并不能令人满意——PDF转Word通常是需要收费的！
以WPS为例。用WPS开启PDF文件，界面中会醒目地显示PDF转换成Word的功能选项。
WPS中开启PDF，有醒目的转换Word格式的选项
但是当你实际使用的时候，发现这需要开通WPS会员才能完全体验这功能，WPS会员更低价格为89元一年（更低起购时长为一年），如果不开通会员的话，只能免费转换5页。也就是说，为了PDF转换Word这个功能，你需要花费大几十快，这似乎不那么划算？
但WPS只能免费转换5页PDF成为Word
WPS使用完整的PDF转换Word功能，需要开通会员，一年会费89元
有没有不用钱的方案？市面上大部分的PDF转Word工具，都是需要收费的。不过例外还是有的，而且还是质量特好的那种！笔者这就来给大家介绍一个PDF免费转换Word文档的工具——微软Office。
没错，微软Office就能够免费将PDF转换成为Word。首先，桌面版的Office Word其实是可以开启PDF文件、开启时就会默认将其转换成Word文档的，不过桌面版Office并非免费软件，严格来说似乎也不算免费将PDF转成Word……
用微软Office开启PDF，其实就会自动转换成为Word，不过桌面版Office是收费的
真正的全免费方案，是移动版的Office。微软在手机平台上刚刚发布了一款新的Office Mobile应用，这款Office Mobile应用集成了Word、Excel、PowerPoint、PDF等文件格式的支持，它是可以免费下载使用的，其中PDF转Word的功能完全没有任何收费限制！
来看看Office Mobile中，PDF转Word的体验如何吧。这里使用一份多达89页的PDF文档进行测试，PDF中包含了文字、图片和表格。使用Office Mobile应用开启后，点击右上角的编辑按钮。
用Office Mobile开启PDF，点击右上角的编辑按钮用Office Mobile开启PDF，点击右上角的编辑按钮
接着，点击菜单键，就可以看到“转换为Word”的功能选项。点击后，PDF很快就会转换成为Word文档了。这份长达89页的PDF，在笔者的手机中只花费了两三秒中就完成了转换，速度非常快。
点击右上角菜单即可看到转换为Word的选项，转换过程很快
PDF转换而来的Word文档质量如何？乍看之下，排版仿佛非常混乱。其实这只是因为Office Mobile开启了适配手机端的移动视图，点击右下角的手机logo，就会以原版排版呈现了。可见，排版还是保持得非常好的，转换质量很高。
左边为适配手机屏幕的移动视图，右边为原版视图
我们再把转换来的Word文档传输到电脑，在大屏幕上细细对比之前的PDF。下面是一些对比图，大家可以对比查看。
PDF（左）和转换过来的Word对比（右），图片标点排版都一脉相承
PDF（左）和转换过来的Word对比（右），表格也保持得很好
可见，除了少数的字重变化，段落、图片乃至表格的格式都保持得很好，可以说Office中PDF转Word的质量非常高了，完全能堪大用。
总的来说，这的确是非常行之有效的免费PDF转换Word文件的 *** 。PDF是开放的格式，而Word是Office的御用格式，现在微软官方就免费提供了PDF转Word的功能，不知道各种收费转换工具的压力大不大？
责编：黎晓珊
word如何 *** 证书模版及快递生成一千多张证书荣誉证书：Word如何 *** ？证书模板及快速生成一千多张证书。
这1000张的荣誉证书，正常情况下光排版一天时间都不够。今天说一下如何5秒批量生成1000张荣誉证书。
在这之前，如何在word里排好之一张证书？将它作为模板。
首先要量一下证书的尺寸，然后点开页面布局，纸张设置横向点击纸张大小，其他页面尺寸选择自定义尺寸。在这里改成刚才良好的尺寸，点击确定。
接下来花1秒钟将文字录入进来，全选文字，在2023年度工作中认证负责，圆满完成所有工作任务，业绩突出，表现优异，特评为。
改一下字体，也可以换一下文字大小。调整一下格式，姓名加上下划线首行缩进两字符，奖项居中，改一下文字大小单位日期又对齐。
然后把证书拍照传到电脑上，再点击插入，点击图片将拍照的证书照片插入进来。特别此证，以资优秀员工。这里设置环绕改成衬语文字下方。然后再把证书照片拉满，对照一下格式还要调整一下，这样就合适了，这样证书模板就做好了。
接下来批量生成所有的证书。首先，在Excel里把所有人的姓名录入进去，点击保存默认格式就可以了。再回到word点击菜单栏引用，点邮件打开数据源，选择刚才保存的XL文件，点击打开再点击确定。
选中姓名，在工具栏点击插入合并域选择姓名，点击插入再点击关闭。
然后再点击菜单栏上的合并到新闻档，全部确定。这样1000人的证书就全部生成了，就可以直接打印了。
关注我学习更多实用小知识。
Word中不用菜单不用工具，直接手动设置表格行或列平均分布的 ***平时我们用WORD排版，WORD制表时，难免要进行平均分布各行和平均分布各列，如果从菜单去执行这些效果，则比较麻烦，还要设置行值或列值。那有没有更简捷的 *** 呢，今天宁双学好网施老师就教大家手动去设置平均分布各行或各列，下面就看我演示一遍吧！
一、我们如下图，打开一张表格
二、然后我们把表格最下方的那根线条往下拖，也就是说把表格最下方的行拉大点
三、然后选中表格所有行
四、再点击表格工具-布局-单元格大小-分布行就可以了。
五、最后我们得到如下平均分布各行的表格
同理，平均分布各列也是这样，只要把最右边的列往右边多拖出一点，然后全部选中列，在再点击表格工具-布局-单元格大小-分布列就可以了。
欢迎在下方的评论区写下你的看法，有疑问请在下方的评论区问我。我会跟大家一起解答。喜欢此文就请转载，转载请注明出处.。
想学习更多的教程，请点击下方的"了解更多"
