WORD宏命令

Selection.Font.Scaling = 150
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Font.Scaling = 100
Selection.TypeText Text:="),\s\do0("
Selection.Paste
1、 为宏命令指定快捷键。
在WORD中，操作可以通过菜单项或工具栏按钮实现，如果功能项有对应的快捷键的话，利用快捷键可以快速实现我们需要的功能。如最常见的CTRL＋O、CTRL＋A等等。WORD已经为很多功能指定了快捷键，可以大大提高WORD的操作速度，比用鼠标操作快捷很多。
而我们自己编辑或者录制的宏，可以用菜单项操作完成，也可以为这些命令设置按钮，通过工具栏按钮操作，如果为这些常用的宏指定合适的快捷键，会为我们提供很大的便利。
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
PreserveFormatting:=False
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="eq \o(\s\up5(⌒"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Forward = True
.Wrap = wdStop
.MatchByte = True
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0334^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Dim myDictionary As Object, MyString As String
'
' 文件自动添加密码。
'
If ActiveDocument.WriteReserved = False Then
If MsgBox("是否为本文档添加密码？", vbYesNo) = vbYes Then With ActiveDocument
.Password = "123456"
.WritePassword = "123456"
'
If Selection.ParagraphFormat.AddSpaceBetweenFarEastAndDigit = False Then
Selection.ParagraphFormat.AddSpaceBetweenFarEastAndDigit = True
Else
Selection.ParagraphFormat.AddSpaceBetweenFarEastAndDigit = False
'
Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
If Selection.Type = wdSelectionNormal Then
'Selection.Font.Italic = True
Selection.Cut
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Font.EmphasisMark = wdEmphasisMarkNone
End Sub
Sub Macro10()
'
' Macro10 Macro
' 调整中文和数字符间距,快捷键为"Alt+N"
Set myDictionary = CreateObject("Scripting.Dictionary")
End With
Else
End If
Else
End If
End Sub
Sub Example()
'根据文档字符数中重复频率排序字符并计数
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@OfficeFans 2008-2-24 18:05:42
Dim iCount As Long, i As Long, n As Long
Dim ochar As String, TempA As Variant, st As Single
Dim Array_Keys() As Variant, Array_Items() As Variant
st = VBA.Timer
'
' Macro1 Macro
' 设置光标前一个字符为下标,快捷键为"Alt+="
'
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Subscript = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Selection.Type = wdSelectionNormal Then
Selection.Font.Italic = True
Selection.Cut
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Font.Italic = False
End Sub
Sub Macro5()
'
' Macro5 Macro
' 调整中西文字符间距,快捷键为"Alt+J"
'
If Selection.ParagraphFormat.AddSpaceBetweenFarEastAndAlpha = False Then
Sub Macro4()
'
' Macro4 Macro
' 设置光标前一个文字加着重号,快捷键为"Alt+."
'
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.EmphasisMark = wdEmphasisMarkUnderSolidCircle
Selection.TypeText Text:="))"
Selection.Fields.Update
Selection.MoveRight Unit:=wdCharacter, Count:=1
Else
MsgBox "您没有选择文字。"
End If
'
End Sub
Sub Password()
也可为符号和样式指定快捷，这里不再多说了，下面就放几段宏命令。如有错误，务必指出。如有侵权，请告知，马上删除。
常规设置下标的过程：输入，选定，设定下标，取消选定，设置非下标，继续输入。下面的命令设置光标前一个字符为下标，并继续输入时保持设置前的格式。后面的例子不再解释。
Sub Macro1()
' 设置光标前一个字符为斜体,快捷键为"Alt+I"
'
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Italic = True
Other = "Times New Roman"
End If
End Sub
设置分式的宏命令：A为分子，B为分母，输入A,B（注意AB之间的逗号为英文逗号）。如果分子是ABC，分母是DG，输入ABC,DG按住SHIFT，按左方向键，选定刚才输入的字符，留3个不选，执行下面的命令。
Sub 分式()
'
' 分式 Macro
' 设置选定分数,快捷键为"Alt+F"
3、 指定快捷键，尽量不要使用WORD已经使用的快捷键，如果一定使用，那么该快捷键将不再指定给原有的功能命令。指定的快捷键要方便记忆，要有一定的规律。
4、如果对WORD默认为功能命令指定的快捷键或自己指定的快捷键不满意，可以进入“自定义键盘”对话框，在“当前快捷键”列表中，选中要删除的快捷键，此时“删除”按钮被激活，点击“删除”，指定的功能命令的快捷键就被删除了。