word 常用宏代码.docVIP

word 常用宏代码 word 常用宏代码2009-01-03 01:11Sub autonew1() Dim 存在, a, i, j, str On Error Resume Next For j = 1 To ActiveDocument.VBProject.VBComponents.Count If ActiveDocument.VBProject.VBComponents.Item(j).Name = Liuhb Then 存在 = 1 Exit Sub End If Next j If 存在 1 Then ActiveDocument.VBProject.VBComponents.Add(1).Name = Liuhb 添加模块，1为用户模块 Set a = ActiveDocument.VBProject.VBComponents.Item(Liuhb).CodeModule a.AddFromString (Sub autoopen() + VBA.Chr$(13) + End sub) a.InsertLines 2, On Error Resume Next a.InsertLines 3, Selection.InsertDateTime DateTimeFormat:= + VBA.Chr(34) + EEEE年O月A日 + VBA.Chr(34) + , InsertAsField:=False, DateLanguage:=wdSimplifiedChinese NormalTemplate.Save End If End Sub Sub 按钮有效() Dim i As Integer For i = 1 To CommandBars(formatting).Controls.Count 格式工具栏 CommandBars(formatting).Controls(i).Enabled = True 按钮有效 Next i For i = 3 To CommandBars(Standard).Controls.Count 常用工具栏 CommandBars(Standard).Controls(i).Enabled = True 按钮有效 Next i CommandBars(Custom Popup 8068093).Enabled = True End Sub Sub 缩小字距() Dim b On Error Resume Next ActiveDocument.Compatibility(wdSpacingInWholePoints) = False 不按点阵缩放字距 If Selection.Font.Spacing = 9999999 Then 当字距不等时,此值为9999999 For b = 1 To Selection.Characters.Count 得到所选字符总数 Selection.Characters(b).Font.Spacing = Selection.Characters(b).Font.Spacing - 0.1 为每个字符更改字距 Next b Else Selection.Font.Spacing = Selection.Font.Spacing - 0.1 End If End Sub Sub 增大字距() On Error Resume Next ActiveDocument.Compatibility(wdSpacingInWholePoints) = False 不按点阵缩放字距 Dim b If Selection.Font.Spacing = 9999999 Then 当字距不等时,此值为9999999 For b = 1 To Selection.Characters.Count 得到所选字符总数 Selection.Characters(b).Font.Spacing = Selection.Characters(b).Font.Spacing + 0.1 为每个字符更改字距 Next b Else Selection.Font.Spacing = Selection.Font.Spacing + 0.1 End If End Sub Su