自定义宏把Word打造成全快捷键编辑器
自定义快捷键
折叠所有标题
Word选项—自定义功能区—自定义键盘—不在功能区内的命令—ColllapseAllHeadings
展开所有标题
Word选项—自定义功能区—自定义键盘—不在功能区内的命令—ExpandAllHeadings
全屏快捷键 Alt+V+U, esc退出 可通过录制宏设定F11全屏
Word自定义宏
Sub 标题1()
Selection.Style = ActiveDocument.Styles("标题 1")
End Sub
Sub 标题2()
Selection.Style = ActiveDocument.Styles("标题 2")
End Sub
Sub 蓝色文字()
Selection.Font.Color = wdColorBlue
End Sub
Sub 删除整段()
Selection.MoveDown Unit:=wdParagraph, Count:=
Selection.MoveUp Unit:=wdParagraph, Count:=, Extend:=wdExtend
Selection.TypeBackspace
End Sub
Sub 显示导航目录()
If ActiveWindow.DocumentMap = True Then
ActiveWindow.DocumentMap = False
Else
ActiveWindow.DocumentMap = True
End If
End Sub
Sub 红色文字()
Selection.Font.Color = wdColorRed
End Sub
Sub 换行()
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
End Sub
Sub 全屏显示()
ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
End Sub
Sub 标题3()
Selection.Style = ActiveDocument.Styles("标题 3")
End Sub
Sub 浅色文字()
Selection.Font.Color = wdColorGray25
End Sub
Sub 黑色文字()
Selection.Font.Color = wdColorBlack
End Sub
Sub 行前插入空行()
Selection.HomeKey Unit:=wdLine
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=
End Sub
Sub 回到前一位置()
Application.GoBack
End Sub
Sub 复制当前行()
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.MoveLeft Unit:=wdCharacter, Count:=
End Sub
Sub 增强复制()
If Selection.Type = wdSelectionIP Or Selection.Type = wdNoSelection Then '若选择为空
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
'复制整行 'MsgBox "没有选择"
Else '若选择不为为空
'正常操作
Selection.Copy
End If
End Sub
Sub 增强剪切()
If Selection.Type = wdSelectionIP Or Selection.Type = wdNoSelection Then '若选择为空
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
'剪切整行 'MsgBox "没有选择"
Else '若选择不为为空
'正常操作
Selection.Cut
End If
End Sub
Sub 双屏()
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupNone
.View = wdRevisionsViewFinal
End With
ActiveWindow.ActivePane.View.Zoom.Percentage =
End Sub
Sub 设置所有题注为蓝色() '设置所有交叉引用的格式
Dim aField As Word.Field For Each aField In ActiveDocument.Fields
Debug.Print aField.Result.Text
If aField.Type = wdFieldRef Then
' aField.Result.Style = "正文"
aField.Result.Font.ColorIndex = wdBlue
End If
Next aField
End Sub
自定义宏把Word打造成全快捷键编辑器的更多相关文章
- WORD自定义宏
自定义快捷键 折叠所有标题 Word选项—自定义功能区—自定义键盘—不在功能区内的命令—ColllapseAllHeadings 展开所有标题 Word选项—自定义功能区—自定义键盘—不在功能区内的命 ...
- 在Word中直接用快捷键查找选中文本
在word中选中文本后按Ctrl+F,有些时候选中文本会自动出现在“查找内容”文本框中,而有些时候显示的还是上次选中的文本.这是因为只有当Word认为选中的文本是一个“词”时,选中文本才会自动出现在“ ...
- 在Unity中使用自定义宏
最近写AVG工具时有这样的功能需求,AVG的角色可以支持动态的Spine动画,当没有Spine动画时采用默认的立绘图片替代. 这时在脚本中就可以采用自定义的宏来实现: 例如: #if VNSpine ...
- visual studio 配置属性中增加自定义宏和宏值
visual studio中有一些预先定义的宏,用于配置项目属性,如SolutionDir.我们也可以自定义类似的宏,从而在配置包含目录(include)或添加依赖项时简化配置项. 如何创建自己的宏呢 ...
- LaTeX自定义宏包、类文件的默认搜索路径设置方法
对于自定义的LaTeX宏包与类,在调用时可以通过在命令\documentclass{}与\usepackage{}命令中指定完整路径或者相对路径,这样确实可以调用,但是编译时总是有烦人的警告信息, ...
- C++学习003-#define 自定义宏
C++中可以用#define来定义自定义的宏 也可以用使用#define来定义常量 但是#define只是简单的替换,在定义常量的时候没有语法检测 所以在C++定义常量可以使用 Const修饰 #d ...
- 实现粘贴WORD图片的在线编辑器
我司需要做一个需求,就是使用富文本编辑器时,不要以上传附件的形式上传图片,而是以复制粘贴的形式上传图片. 在网上找了一下,有一个插件支持这个功能. WordPaster 安装方式如下: 直接使用Wor ...
- Word有用的快捷键
1.shift+上下左右,可以用键盘从当前光标位置选择文本.可以配合各种其他导航键,比如ctrl+上下左右,Home, End, PageUp/Down. 2.选择文本后,按F2,光标会自动变成虚 ...
- CKEditor4.1和CKFinder2.3.1 for Mvc4最新 破解版,结合 打造"帅"的编辑器 For .Net
CKEditor4.1+CKFinder2.3.1 FOR MVC4 最新破解版:(2013-3-23) baidu share: http://pan.baidu.com/share/link?sh ...
随机推荐
- jQuery设计思想之取值和赋值
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...
- c#面向对象基础 静态成员、构造函数、命名空间与类库
静态成员 属性.方法和字段等成员是对象实例所特有的,即改变一个对象实例的这些成员不影响其他的实例中的这些成员.除此之外,还有一种静态成员(也称为共享成员),例如静态方法.静态属性或静态字段.静态成员可 ...
- 集中式版本控制VS分布式版本控制
CVS及SVN都是集中式的版本控制系统,而Git是分布式版本控制系统,集中式和分布式版本控制系统有什么区别呢? 集中式版本控制系统,版本库是集中存放在中央服务器的,而干活的时候,用的都是自己的电脑,所 ...
- IEnumerable和IQueryable区别、优缺点
转自 http://www.cnblogs.com/fly_dragon/archive/2011/02/21/1959933.html IEnumerable接口 公开枚举器,该枚举器支持在指定类型 ...
- 利用Aspose.Cells完成easyUI中DataGrid数据的Excel导出功能
我准备在项目中实现该功能之前,google发现大部分代码都是利用一般处理程序HttpHandler实现的服务器端数据的Excel导出,但是这样存在的问题是ashx读取的数据一般都是数据库中视图的数据, ...
- 词频junit测试
package search; import java.io.BufferedReader; import java.io.File; import java.io.FileReader; impor ...
- 杭电ACM 1201
#include <stdio.h> int func(int year){ if ( year % 400 == 0 || (year % 4 == 0 &&year % ...
- C# Color
一.创建一个Color对象: Color c=Color.FromKnownColor(KnownColor.colorname); 二.四种同样颜色的不同方式: Color c1=Color.Fro ...
- Python3.5连接Mysql
由于mysqldb目前仅支持到python3.4,所以这里选择pymysql. pymysql下载地址: https://pypi.python.org/packages/source/P/PyMyS ...
- == 与 equals
参考:http://www.cnblogs.com/dolphin0520/p/3592500.html