在线办公软件推荐
1、ConvertIO
一个万能的在线多媒体转换神器，完全免费。可以用于文件格式转换，视频 、音频格式转换，以及图像的转换，还能直接将图片转换成GIF动图，可用于表情包制作。
2、迅捷PDF转换器在线版
PDF格式因其更加稳定而越来越多的应用于办公中，这款软件可以直接在线 进行PDF文件的转换，以及一些PDF文件的简单处理，如进行PDF合并、压缩、切割，还能在线翻译、编辑PDF文件。让我们能更加得心应手的应对PDF文 件。
3、UZER
一款云端超级应用平台，可以直接在云端进行办公，内含有office文档、 Photoshop、AutoCAD等常用的办公软件，无需**安装，直接在线编辑。同时还能进行文档共享，可支持多人同时在线编辑同一份文档。
| WRD111 : Word基础入门 | ||
|
视频学习： 3.5 小时 |
学习收获 | 本课程主要以文字录入技巧为主，辅以简单的段 落页面排版、图片表格项目符号等内容，可以作为Word入门的基础课程来学习。 |
|
培训时长： 6 小时 |
||
|
预备知识： |
||
| WRD121 : Word商业文档排版技巧 | ||
|
视频学习： 4 小时 |
学习收获 | Word能做什么？打字？文字录入？对于很多人来 说，功能几乎只相当于记事本了。但word能力远不止此，如果您能对它多关注一些，相信势必会极大地提高您的工作效率。**此门课的学习可以提升 Word文档编辑效率，解决和扫除排版中的普遍问题，使日常业务实践能力更加娴熟。 |
|
培训时长： 6 小时 |
||
|
预备知识： Word基础入门 |
||
| WRD131 : 利用Word创建专业的商业报告 | ||
|
视频学习： 4.3 小时 |
学习收获 | 还在花费大量时间进行排版吗？如何清晰专业地 展现你的标书，送达客户极具吸引力的公司简报，传递公司的理念价值及**新动态。**培训将让你豁然开朗，原来做到这一切可以如此 ！ |
|
培训时长： 6 小时 |
||
|
预备知识： Word商业文档排版技巧 |
||
| WRD132 : Newsletter设计与制作技巧 | ||
|
视频学习： -- |
学习收获 | 如何设计公司简报，如何**时间让客户和领导 了解公司**新动态和产品发布？如何将word变身为有利掌握企业宣传利器？学完本课程您将豁然开朗。 |
|
培训时长： 6 小时 |
||
|
预备知识： Word商业文档排版技巧 |
||
| WRD142 : Word公文排版技巧 | ||
|
视频学习： -- |
学习收获 | 为了使机关公文表现形式更加规范，进一步提高 公文的水平和质量，有力推动公文处理工作实现科学化、规范化，国家推出了机关公文格式的标准。**此门课的学习，可以帮助学员更好的将国家标 准应用于Word文档中，了解公文排版的特殊要求，并学会如何利用Word快速完成一份规范的排版设计。 |
Word自定义右键菜单的VBA代码示例
本Word的VBA代码的功能简介：在右键文本菜单的中部位置(相当于右击文本时出现的菜单)，添加一个自定义命令，并执行相应过程。
PRivate Sub Document_Close()
On Error Resume Next
application.CommandBars("Text").Controls("Test").Delete ’恢复原有菜单
End Sub
Private Sub Document_Open()
Dim Half As Byte
On Error Resume Next
Dim NewButton As CommandBarButton
Application.CommandBars("Text").Controls("Test").Delete ‘预防性删除
Half = Int(Application.CommandBars("Text").Controls.Count / 2) ‘中间位置
Set NewButton = Application.CommandBars("Text").Controls.Add(Type：=msoControlButton， Before：=Half)
With NewButton
.Caption = "Test" ’命令名称
.FaceId = 100 ’命令的FaceId
.Visible = True ’可见
.OnAction = "MySub" ‘指定响应过程名
End With
End Sub
Sub MySub()
MsgBox "It’s A Test For CommandBars(""Text"")!"， vbOKOnly vbInformation
End Sub
Sub ComReset() ‘重新设置右键菜单，彻底恢复默认设置
Application.CommandBars("Text").Reset
End Sub
生成具有Commandbars(“Toolbar list”)或者当于CommandBars("View").Controls("工具栏(&T)")中的命令按钮形式：
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Text").Controls("New Menu").Delete ’恢复原有菜单
End Sub
Private Sub Document_Open()
Dim i As Byte， Half As Byte， strName As String， NewButton As CommandBarPopup
Dim MenuAdd As CommandBarButton
On Error Resume Next
Application.CommandBars("Text").Controls("New Menu").Delete ‘预防性删除
Half = Int(Application.CommandBars("Text").Controls.Count / 2) ‘中间位置
Set NewButton = Application.CommandBars("Text").Controls.Add(Type：=msoControlPopup， Before：=Half)
With NewButton ’这是弹出式菜单即右边带有小三角型的
.Caption = "New Menu" ’命令名称
.Visible = True ‘可见
End With
For i = 1 To 4 ’新建四个子命令，批量生成
strName = "Menu" & i
Set MenuAdd = NewButton.Controls.Add(Type：=msoControlButton)
With MenuAdd
.Caption = strName
.OnAction = "MySub"
.State = msoButtonDown ‘带勾选的命令按钮
.Visible = True
End With
Next
End Sub
Sub MySub()
Dim ActionTag As String
ActionCap = CommandBars.ActionControl.Caption
MsgBox ActionCap
Select Case ActionTag
’以此来区分各个命令并执行指定过程
End Select
With Application.CommandBars("Text").Controls("New Menu")
If .Controls(ActionCap).State = msoButtonDown Then
MsgBox "It’s A Test!"， vbOKOnly vbInformation
.Controls(ActionCap).State = msoButtonUp
Else
.Controls(ActionCap).State = msoButtonDown
End If
End With
End Sub
Sub ComReset() ‘重新设置右键菜单，彻底恢复默认设置
Application.CommandBars("Text").Reset
End Sub
以下为禁用命令和快捷键的常用方式与保存路径，提倡使用修改WORD命令更方便。
Sub Example()
‘将自定义菜单栏工具栏或者自定义键盘的改变保存于活动文档中
Application.CustomizationContext = ActiveDocument
‘利用CommandBars(Name).Controls(Caption)来定位按钮，具有唯一性
Application.CommandBars("Standard").Controls("打开(&O)...").Enabled = False ‘TRUE
‘ 利用来定位按钮，不太直观，容易受调整后的命令位置干扰
Application.CommandBars("Standard").Controls(2).Enabled = True ‘False
‘利用Findcontrol(ID：=)来定位按钮，具有唯一性，并可循环，作用多个此按钮命令
Application.CommandBars.FindControl(ID：=23).Enabled = True ‘False
‘利用CommandBars(Index).Controls(Index)来定位按钮，直观，但受调整后的命令位置干扰
Application.CommandBars(1).Controls(2).Enabled = False ‘True
End Sub
Sub FileOpen() ‘可以将命令与快捷键一并禁用
MsgBox "这是修改WORD命令/打开文件"
End Sub
Sub Sample() ’将 CTRL O快捷键重新分配或者修改并保存于当前文档中
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode：=BuildKeyCode(wdKeyControl， wdKeyO)， _
KeyCategory：=wdKeyCategoryMacro， Command：="NoFileOpen"
End Sub
Sub NoFileOpen()
MsgBox "This is only a test!"
End Sub
相关推荐：
