word 小技巧无格式粘贴增强型图元文件粘贴.docx
《word 小技巧无格式粘贴增强型图元文件粘贴.docx》由会员分享，可在线阅读，更多相关《word 小技巧无格式粘贴增强型图元文件粘贴.docx（17页珍藏版）》请在冰豆网上搜索。
word小技巧无格式粘贴增强型图元文件粘贴
Sub无格式粘贴（）
Selection.PasteAndFormat（wdFormatPlainText）
EndSub
Sub增强型图元文件（）
Selection.CollapseDirection:
=wdCollapseStart
Selection.Range.PasteSpecialDataType:
=wdPasteEnhanceMetafile
EndSub
Sub显示比例正常（）
OnErrorResumeNext
ActiveWindow.ActivePane.View.Zoom.Percentage=100
EndSub
Sub显示文字宽度（）
'
'显示文字宽度Macro
'宏在2011/9/29由AIRDAN录制
'
ActiveWindow.ActivePane.View.Zoom.PageFit=wdPageFitTextFit
EndSub
Sub当前打印机（）
OnErrorResumeNext
MsgBox（Application.ActivePrinter）
EndSub
SubA4纸（）
OnErrorResumeNext
ActiveWindow.ActivePane.DisplayRulers=True
WithActiveDocument.PageSetup
.TextColumns.SetCountNumColumns:
=1
.TextColumns.EvenlySpaced=True
.Orientation=wdOrientPortrait
.TopMargin=CentimetersToPoints（2.54）
.BottomMargin=CentimetersToPoints（2.54）
.LeftMargin=CentimetersToPoints（3.17）
.RightMargin=CentimetersToPoints（3.17）
.HeaderDistance=CentimetersToPoints（1.5）
.FooterDistance=CentimetersToPoints（1.5）
.PageWidth=CentimetersToPoints（21）
.PageHeight=CentimetersToPoints（29.7）
StatusBar=Application.ActivePrinter
EndWith
ActiveWindow.ActivePane.View.Zoom.Percentage=100
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub试卷纸39×27_8开（）
OnErrorResumeNext
ActiveWindow.ActivePane.DisplayRulers=True
WithActiveDocument.PageSetup
.Orientation=wdOrientLandscape
.PageWidth=CentimetersToPoints（39）
.PageHeight=CentimetersToPoints（27）
.TextColumns.SetCountNumColumns:
=2
.TextColumns.Spacing=CentimetersToPoints
（2）
.TopMargin=CentimetersToPoints
（2）
.BottomMargin=CentimetersToPoints
（2）
.LeftMargin=CentimetersToPoints（2.5）
.RightMargin=CentimetersToPoints（2.5）
.HeaderDistance=CentimetersToPoints（1.5）
.FooterDistance=CentimetersToPoints（1.5）
StatusBar=Application.ActivePrinter
EndWith
ActiveWindow.ActivePane.View.Zoom.Percentage=100
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub半张试卷_16开（）
OnErrorResumeNext
ActiveWindow.ActivePane.DisplayRulers=True
WithActiveDocument.PageSetup
.TextColumns.SetCountNumColumns:
=1
.Orientation=wdOrientPortrait
.TopMargin=CentimetersToPoints
（2）
.BottomMargin=CentimetersToPoints
（2）
.LeftMargin=CentimetersToPoints（2.5）
.RightMargin=CentimetersToPoints（2.5）
.HeaderDistance=CentimetersToPoints（1.5）
.FooterDistance=CentimetersToPoints（1.5）
.PageWidth=CentimetersToPoints（19.5）
.PageHeight=CentimetersToPoints（27）
StatusBar=Application.ActivePrinter
EndWith
ActiveWindow.ActivePane.View.Zoom.Percentage=100
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub去除多余空格（）
OnErrorResumeNext
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=""
.Replacement.Text=""
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchByte=True
.MatchWildcards=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.Find
.Text=" "
.Replacement.Text=""
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchByte=True
.MatchWildcards=False
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub去除多余回车符（）
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="^l"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchByte=True
.MatchWildcards=True
EndWith
Selection.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:
=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub一键排版（）
WithActiveDocument.PageSetup
.LayoutMode=wdLayoutModeDefault
EndWith
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="^l"
.Replacement.Text="^13"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.Find
.Text="[^13]{2,}"
.Replacement.Text="^p"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
WithSelection.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=True
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
Selection.WholeStory
Options.DefaultHighlightColorIndex=wdNoHighlight
Selection.Range.HighlightColorIndex=wdNoHighlight'去除底纹
WithSelection.Font
.NameFarEast="宋体"
.NameAscii="宋体"
.NameOther="宋体"
.Name="宋体"
.Size=11
.Bold=False
.Italic=False
.Underline=wdUnderlineNone
.UnderlineColor=wdColorAutomatic
.StrikeThrough=False
.DoubleStrikeThrough=False
.Outline=False
.Emboss=False
.Shadow=False
.Hidden=False
.SmallCaps=False
.AllCaps=False
.Color=wdColorBlack
.Engrave=False
.Superscript=False
.Subscript=False
.Spacing=0
.Scaling=100
.Position=0
.Kerning=0
.Animation=wdAnimationNone
.DisableCharacterSpaceGrid=False
.EmphasisMark=wdEmphasisMarkNone
EndWith
WithSelection.ParagraphFormat
.LeftIndent=CentimetersToPoints（0）
.RightIndent=CentimetersToPoints（0）
.SpaceBefore=0
.SpaceBeforeAuto=False
.SpaceAfter=0
.SpaceAfterAuto=False
.LineSpacingRule=wdLineSpaceSingle
.Alignment=wdAlignParagraphJustify
.WidowControl=False
.KeepWithNext=False
.KeepTogether=False
.PageBreakBefore=False
.NoLineNumber=False
.Hyphenation=True
.FirstLineIndent=CentimetersToPoints（0）
.OutlineLevel=wdOutlineLevelBodyText
.CharacterUnitLeftIndent=0
.CharacterUnitRightIndent=0
.CharacterUnitFirstLineIndent=2
.LineUnitBefore=0
.LineUnitAfter=0
.AutoAdjustRightIndent=True
.DisableLineHeightGrid=False
.FarEastLineBreakControl=True
.WordWrap=True
.HangingPunctuation=True
.HalfWidthPunctuationOnTopOfLine=False
.AddSpaceBetweenFarEastAndAlpha=True
.AddSpaceBetweenFarEastAndDigit=True
.BaseLineAlignment=wdBaselineAlignAuto
EndWith
ActiveDocument.Paragraphs
（1）.Range.Select
WithSelection.Font
.NameFarEast="宋体"
.Size=22
Application.RunMacroName:
="Normal.ThisDocument.centerpara"
EndWith
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub删除重复段落（）
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="（<[!
^13]*^13）（*）\1"
.Replacement.Text="\1\2"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:
=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub制表位清零（）
OnErrorResumeNext
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop=CentimetersToPoints（0）
Selection.EscapeKey
EndSub
Sub首行缩进（）
OnErrorResumeNext
WithSelection.ParagraphFormat
.CharacterUnitFirstLineIndent=2
EndWith
EndSub
Sub插入页码（）
IfActiveWindow.View.SplitSpecial<>wdPaneNoneThen
ActiveWindow.Panes
（2）.Close
EndIf
IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow._
ActivePane.View.Type=wdOutlineViewThen
ActiveWindow.ActivePane.View.Type=wdPrintView
EndIf
Selection.Sections
（1）.Footers
（1）.PageNumbers.Add_
PageNumberAlignment:
=wdAlignPageNumberCenter,FirstPage:
=True
WithActiveDocument.Styles（"页眉"）.ParagraphFormat
.Borders（wdBorderBottom）.LineStyle=wdLineStyleNone
EndWith
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter
Selection.ParagraphFormat.Alignment=wdAlignParagraphJustify
ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub页眉加横线（）
WithActiveDocument.Styles（"页眉"）.ParagraphFormat
.Borders（wdBorderBottom）.LineStyle=wdLineStyleSingle
EndWith
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
Selection.Style=ActiveDocument.Styles（"页眉"）
Selection.TypeTextText:
=""
ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument
ActiveWindow.ActivePane.VerticalPercentScrolled=0
EndSub
Sub无格式粘贴（）
OnErrorResumeNext
Selection.PasteSpecialLink:
=False,DataType:
=wdPasteText,Placement:
=_
wdInLine,DisplayAsIcon:
=False
EndSub
SubA4纸放大成试卷纸打印（）
OnErrorResumeNext
Application.PrintOutFileName:
="",Range:
=wdPrintAllDocument,Item:
=_
wdPrintDocumentContent,Copies:
=1,Pages:
="",PageType:
=wdPrintAllPages,_
Collate:
=True,Background:
=True,PrintZoomPaperWidth:
=15309,_
PrintZoomPaperHeight:
=22113
EndSub
Sub显示比例加（）
OnErrorResumeNext
h1=ActiveWindow.ActivePane.View.Zoom.Percentage
h1=h1+5
ActiveWindow.ActivePane.View.Zoom.Percentage=h1
EndSub
Sub显示比例减（）
OnErrorResumeNext
h1=ActiveWindow.ActivePane.View.Zoom.Percentage
h1=h1-5
ActiveWindow.ActivePane.View.Zoom.Percentage=h1
EndSub
Sub显示比例正常（）
OnErrorResumeNext
ActiveWindo
升级会员 