Word宏小代码.docVIP

Word宏小代码 1． Sub 粘贴无格式文本() Selection.PasteAndFormat (wdFormatPlainText) End Sub 2． Sub 删除空白行() Dim i As Paragraph, n As Long Application.ScreenUpdating = False 关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs 在活动文档的段落集合中循环 If Len(i.Range) = 1 Then 判断段落长段,此处可根据文档实际情况 i.Range.Delete 进行必要的修改可将任意长度段落删除 n = n + 1 计数 End If Next MsgBox 共删除空白段落 n 个! Application.ScreenUpdating = True 恢复屏幕刷新 End Sub Sub 去掉空白行() Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = [^11^13]{2,} .Replacement.Text = ^13 .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 Application.GoBack End Sub 3． Sub 查找替换() With ActiveDocument.Content.Find .ClearFormatting 清除格式设置 .Font.Name = 新宋体 查找的字体格式 With .Replacement 替换条件 .ClearFormatting 清除格式设置 .Font.Name = 黑体 替换成黑体 End With .Execute findtext:=, ReplaceWith:=, Format:=True, _ Replace:=wdReplaceAll 是格式替换,全部替换 End With End Sub 4． Sub 按日期保存() Dim mypath As String 假设新文档默认保存路径为F:\Test下以当前年月6位数字命名的子文件夹 mypath = F:\ VBA.Format(Date, yyyymm) If Dir(mypath, vbDirectory) = Then VBA.MkDir mypath With Dialogs(wdDialogFileSummaryInfo) .Title = Format(Date, yyyymmdd) .Execute End With ActiveDocument.SaveAs mypath \ VBA.Format(Date, yyyymmdd) .doc End Sub 5． Sub 页码() If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _