word文檔編輯之常用的宏

1、word文檔編輯之常用的宏2011-07-18 05:28宏能簡化文檔編輯中重復性的動作，大大提高了效率。現(xiàn)將本人在使用word軟件中錄制的宏存下來以備忘：Sub autonew()ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFitEnd SubSub autoopen()ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFitEnd SubSub 講義頁面設置()'' 講義頁面設置 宏''With Selection.PageS

2、etup.LineNumbering.Active = False.Orientation = wdOrientPortrait.TopMargin = CentimetersToPoints(2.54).BottomMargin = CentimetersToPoints(2.54).LeftMargin = CentimetersToPoints(3.17).RightMargin = CentimetersToPoints(3.17).Gutter = CentimetersToPoints(0).HeaderDistance = CentimetersToPoints(1.5).Foo

3、terDistance = CentimetersToPoints(1.75).PageWidth = CentimetersToPoints(19.69).PageHeight = CentimetersToPoints(27.31).FirstPageTray = wdPrinterDefaultBin.OtherPagesTray = wdPrinterDefaultBin.SectionStart = wdSectionNewPage.OddAndEvenPagesHeaderFooter = False.DifferentFirstPageHeaderFooter = False.V

4、erticalAlignment = wdAlignVerticalTop.SuppressEndnotes = False.MirrorMargins = False.TwoPagesOnOne = False.BookFoldPrinting = False.BookFoldRevPrinting = False.BookFoldPrintingSheets = 1.GutterPos = wdGutterPosLeft.LinesPage = 44.LayoutMode = wdLayoutModeLineGridEnd WithWith ActiveDocument.Styles(wd

5、StyleNormal).FontIf .NameFarEast = .NameAscii Then.NameAscii = ""End If.NameFarEast = ""End WithWith ActiveDocument.PageSetup.LineNumbering.Active = False.Orientation = wdOrientPortrait.TopMargin = CentimetersToPoints(2.8).BottomMargin = CentimetersToPoints(2.3).LeftMargin = Cent

6、imetersToPoints(4).RightMargin = CentimetersToPoints(1).Gutter = CentimetersToPoints(0).HeaderDistance = CentimetersToPoints(1.5).FooterDistance = CentimetersToPoints(1.75).PageWidth = CentimetersToPoints(19.69).PageHeight = CentimetersToPoints(27.31).FirstPageTray = wdPrinterDefaultBin.OtherPagesTr

7、ay = wdPrinterDefaultBin.SectionStart = wdSectionNewPage.OddAndEvenPagesHeaderFooter = False.DifferentFirstPageHeaderFooter = False.VerticalAlignment = wdAlignVerticalTop.SuppressEndnotes = False.MirrorMargins = True.TwoPagesOnOne = False.BookFoldPrinting = False.BookFoldRevPrinting = False.BookFold

8、PrintingSheets = 1.GutterPos = wdGutterPosLeft.LayoutMode = wdLayoutModeLineGridEnd WithEnd SubSub 段落編輯()'' 段落編輯 宏''Selection.WholeStoryWith Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).SpaceBefore = 0.SpaceBeforeAuto = False.Spac

9、eAfter = 0.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceSingle.Alignment = wdAlignParagraphJustify.FirstLineIndent = CentimetersToPoints(0.35).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 2.LineUnitBefore = 0.Lin

10、eUnitAfter = 0.MirrorIndents = False.AutoAdjustRightIndent = False.DisableLineHeightGrid = True.WordWrap = TrueEnd WithEnd SubSub 替換整理()'' 替換整理 宏''Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "l".Replacement.Text = "

11、;p".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Replacement

12、.ClearFormattingWith Selection.Find.Text = "pp".Replacement.Text = "p".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Exe

13、cute Replace:=wdReplaceAllSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "w".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchWildcards = F

14、alse.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllEnd SubSub 打印排版()'' 打印排版 宏''Selection.WholeStoryWith Selection.PageSetup.LineNumbering.Active = False.Orientation = wdOrientPortrait.TopMargin = CentimetersToPoints(2.54).BottomM

15、argin = CentimetersToPoints(2.54).LeftMargin = CentimetersToPoints(1.9).RightMargin = CentimetersToPoints(1.9).Gutter = CentimetersToPoints(0).HeaderDistance = CentimetersToPoints(1.5).FooterDistance = CentimetersToPoints(1.75).PageWidth = CentimetersToPoints(21).PageHeight = CentimetersToPoints(29.

16、7).FirstPageTray = wdPrinterDefaultBin.OtherPagesTray = wdPrinterDefaultBin.SectionStart = wdSectionNewPage.OddAndEvenPagesHeaderFooter = False.DifferentFirstPageHeaderFooter = False.VerticalAlignment = wdAlignVerticalTop.SuppressEndnotes = False.MirrorMargins = False.TwoPagesOnOne = False.BookFoldP

17、rinting = False.BookFoldRevPrinting = False.BookFoldPrintingSheets = 1.GutterPos = wdGutterPosLeft.LinesPage = 44.LayoutMode = wdLayoutModeLineGridEnd WithSelection.Font.Bold = wdToggleSelection.Font.Name = "宋體"Selection.Font.Size = 9If ActiveWindow.View.SplitSpecial <> wdPaneNone Th

18、enActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type <> wdPrintView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfWith Selection.PageSetup.TextColumns.SetCount NumColumns:=2.EvenlySpaced = True.LineBetween = FalseEnd WithEnd SubSub 著重號()'' 著重號 宏''W

19、ith Selection.Font.EmphasisMark = wdEmphasisMarkUnderSolidCircleEnd WithEnd SubSub 去頁眉頁腳()'' 去頁眉頁腳 宏''If ActiveWindow.View.SplitSpecial <> wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ActivePane.View.Type = wdOutlineView ThenActiveWindow.ActivePane.View.Type = wdPrintViewEnd IfActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderSelection.WholeStorySelection.Delete Unit:=wdCharacter, Count:=1Selection.Delete Unit:=