Word-VBA-公文格式调整

SubÍøÒ³ÄÚÈÝÐ޸ĸñʽ()''ÍøÒ³ÄÚÈÝÐ޸ĸñʽºê''ÉèÖøñʽΪA4ͨÓøñʽWithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.NameAsciiThen.NameAscii=EndIf.NameFarEast=EndWithWithActiveDocument.PageSetup.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)'ҳü.FooterDistance=CentimetersToPoints(1.75).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWith''È¥µôÓ²»Ø³µ'Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter'Selection.MoveLeftUnit:=wdCharacter,Count:=1Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=^l.Replacement.Text=^p.Forward=True.Wrap=wdFindContinue.Format=False.MatchByte=True.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAll'È¥µô¶àÓà¿ÕÐÐ'WithSelection.Find'.Text=[^13]{2,}'.Replacement.Text=^p'.Forward=True'.Wrap=wdFindContinue'.Format=False'.MatchByte=True'.MatchWildcards=True'EndWith'Selection.Find.ExecuteReplace:=wdReplaceAllActiveWindow.ActivePane.VerticalPercentScrolled=0'Ó¢ÎÄ¿Õ¸ñSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text=.Replacement.Text=.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll'µ¥ÒýºÅ±äË«ÒýºÅSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text=(*).Replacement.Text=ChrW(8220)&\1&ChrW(8221).Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAll'ɾ³ýÇ°ÃæµÄ¿ÕÐÐ-ֻɾ³ý»Ø³µSelection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendWhileTrim(Selection.Text)=Chr(13)Selection.DeleteSelection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendWendSelection.Find.Replacement.ClearFormatting'ɾ³ýºóÃæµÄ¿ÕÐÐSelection.EndKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendWhileTrim(Selection.Text)=Chr(13)Selection.DeleteSelection.EndKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendWendSelection.Find.Replacement.ClearFormatting'¸ñʽÉèÖÃ'Ñ¡ÖÐÕûƪÎĵµ£¬ÉèÖÃÖÐÎÄΪ·ÂËΣ¬Ó¢ÎÄΪtnrSelection.WholeStorySelection.Font.Size=15Selection.Font.Name=·ÂËÎ_GB2312Selection.Font.Name=TimesNewRomanSelection.ParagraphFormat.Alignment=wdAlignParagraphLeftSelection.ParagraphFormat.LeftIndent=CentimetersToPoints(0)'×óËõ½øΪ0Selection.ParagraphFormat.CharacterUnitFirstLineIndent=2'Ê×ÐÐËõ½ø'¶ÎÂäÐÞ¸ÄΪÐмä¾à28OnErrorResumeNextWithSelection.ParagraphFormat.LineSpacingRule=wdLineSpaceExactly.LineSpacing=28EndWith'Ñ¡ÖеÚÒ»ÐУ¬ÉèÖÃ×ÖÌ壬³¢ÊÔ´óСÁ½ÖÖ£¬È糬¹ýÔò»»Ð¡µÄ×ÖÌå'ÏÈÑ¡ÖеÚÒ»ÐУ¬¼ì²éÊÇ·ñÓлسµ£¬ÈçÎÞ£¬ÔòÑ¡ÖÐÁ½ÐУ¬ÉèÖøñʽΪ¶þºÅ×ÖÌ壬ÔÙÖظ´¼ì²éÊÇ·ñÊÇÁ½ÐУ¬Á½ÐÐÔòÖØÐÂÉèÖÃ×ÖÌåΪС¶þ»òÈýºÅSelection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendSetmyRange=Selection.RangemyRange.Find.ExecuteFindText:=^p,Forward:=TrueIfmyRange.Find.Found=FalseThenSelection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendSelection.MoveDownunit:=wdLine,Count:=1,Extend:=wdExtendElseSelection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendEndIfSelection.ParagraphFormat.Alignment=wdAlignParagraphCenterSelection.Font.Name=ËÎÌåSelection.Font.Size=22Selection.Font.Bold=TrueSelection.ParagraphFormat.CharacterUnitFirstLineIndent=0'Ê×ÐÐËõ½øSelection.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0)Selection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendSetmyRange=Selection.RangemyRange.Find.ExecuteFindText:=^p,Forward:=TrueIfmyRange.Find.Found=FalseThenSelection.HomeKeyunit:=wdStorySelection.HomeKeyunit:=wdLineSelection.EndKeyunit:=wdLine,Extend:=wdExtendSelection.MoveDownunit:=wdLine,Count:=1,Extend:=wdExtendSelection.Font.Name=ËÎÌåSelection.Font.Size=18EndIf'¼ì²â×îºóÒ»Ò³µÄÄÚÈÝ£¬ÉÙÓÚ4ÐоÍÐÞ¸ÄÐмä¾àSelection.EndKeyunit:=wdStoryh3=28While(Selection.Information(wdFirstCharacterLineNumber)5)And(Selection.Information(wdActiveEndPageNumber)1)'¼õÉÙÐмä¾àIfApplication.ScreenUpdatingtureThenApplication