文档介绍:该【word小技巧无格式粘贴 增强型图元文件粘贴(精) 】是由【小屁孩】上传分享,文档一共【15】页,该文档可以免费在线阅读,需要了解更多关于【word小技巧无格式粘贴 增强型图元文件粘贴(精) 】的内容,可以使用淘豆网的站内搜索功能,选择自己适合的文档,以下文字是截取该文章内的部分文字,如需要获得完整电子版,请下载此文档到您的设备,方便您编辑和打印。:.
Sub无格式粘贴(
(wdFormatPlainText
EndSub
Sub增强型图元文件(
:=wdCollapseStart
:=wdPasteEnhanceMetafile
EndSub
Sub显示比例正常(
OnErrorResumeNext
=100
EndSub
Sub显示文字宽度(
'
'显示文字宽度Macro
'宏在2011/9/29由AIRDAN录制
'
=wdPageFitTextFit
EndSub
Sub当前打印机(
OnErrorResumeNext
MsgBox(
EndSub
SubA4纸(
OnErrorResumeNext
=True
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
.:=1
.=True
.Orientation=wdOrientPortrait
.TopMargin=CentimetersToPoints(
.BottomMargin=CentimetersToPoints(
.LeftMargin=CentimetersToPoints(
.RightMargin=CentimetersToPoints(
.HeaderDistance=CentimetersToPoints(
.FooterDistance=CentimetersToPoints(
.PageWidth=CentimetersToPoints(21
.PageHeight=CentimetersToPoints(
StatusBar=
EndWith
=100
=0
EndSub
Sub试卷纸39×27_8开(
OnErrorResumeNext
=True
.Orientation=wdOrientLandscape
.PageWidth=CentimetersToPoints(39
.PageHeight=CentimetersToPoints(27
.:=2
.=CentimetersToPoints(2
.TopMargin=CentimetersToPoints(2
.BottomMargin=CentimetersToPoints(2
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
.LeftMargin=CentimetersToPoints(
.RightMargin=CentimetersToPoints(
.HeaderDistance=CentimetersToPoints(
.FooterDistance=CentimetersToPoints(
StatusBar=
EndWith
=100
=0
EndSub
Sub半张试卷_16开(
OnErrorResumeNext
=True
.:=1
.Orientation=wdOrientPortrait
.TopMargin=CentimetersToPoints(2
.BottomMargin=CentimetersToPoints(2
.LeftMargin=CentimetersToPoints(
.RightMargin=CentimetersToPoints(
.HeaderDistance=CentimetersToPoints(
.FooterDistance=CentimetersToPoints(
.PageWidth=CentimetersToPoints(
.PageHeight=CentimetersToPoints(27
StatusBar=
EndWith
=100
=0
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
Sub去除多余回车符(
.Text="^l"
.="^p"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchByte=True
.MatchWildcards=True
EndWith
:=wdReplaceAll
.Text="[^13]{2,}"
.="^p"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchByte=True
.MatchWildcards=True
EndWith
:=wdReplaceAll
=0
EndSub
Sub一键排版(
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
.LayoutMode=wdLayoutModeDefault
EndWith
.Text="^l"
.="^13"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
:=wdReplaceAll
.Text="[^13]{2,}"
.="^p"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
:=wdReplaceAll
.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
:=wdReplaceAll
=wdNoHighlight
=wdNoHighlight'去除底纹
.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
.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
(
.NameFarEast="宋体"
.Size=22
:=""
EndWith
=0
EndSub
Sub删除重复段落(
.Text="(<[!^13]*^13(*\1"
.="\1\2"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
:=wdReplaceAll
=0
EndSub
Sub制表位清零(
OnErrorResumeNext
=CentimetersToPoints(0
EndSub
Sub首行缩进(
OnErrorResumeNext
.CharacterUnitFirstLineIndent=2
EndWith
EndSub
Sub插入页码(
<>wdPaneNoneThen
(
EndIf
=
=wdOutlineViewThen
=wdPrintView
EndIf
((
PageNumberAlignment:=wdAlignPageNumberCenter,FirstPage:=True
("页眉".ParagraphFormat
.Borders(=wdLineStyleNone
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
EndWith
=wdSeekCurrentPageFooter
=wdAlignParagraphJustify
=wdSeekMainDocument
=0
EndSub
Sub页眉加横线(
("页眉".ParagraphFormat
.Borders(=wdLineStyleSingle
EndWith
=wdSeekCurrentPageHeader
=("页眉"
:=""
=wdSeekMainDocument
=0
EndSub
Sub无格式粘贴(
OnErrorResumeNext
:=False,DataType:=wdPasteText,Placement:=_
wdInLine,DisplayAsIcon:=False
EndSub
SubA4纸放大成试卷纸打印(
OnErrorResumeNext
:="",Range:=wdPrintAllDocument,Item:=_
wdPrintDocumentContent,Copies:=1,Pages:="",PageType:=wdPrintAllPages,_
Collate:=True,Background:=True,PrintZoomPaperWidth:=15309,_
PrintZoomPaperHeight:=22113
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
EndSub
Sub显示比例加(
OnErrorResumeNext
h1=
h1=h1+5
=h1
EndSub
Sub显示比例减(
OnErrorResumeNext
h1=
h1=h1-5
=h1
EndSub
Sub显示比例正常(
OnErrorResumeNext
=100
EndSub
Sub大奖状52×38(
.Orientation=wdOrientLandscape
.PageWidth=CentimetersToPoints(52
.PageHeight=CentimetersToPoints(38
.TopMargin=CentimetersToPoints(15
.BottomMargin=CentimetersToPoints(
.LeftMargin=CentimetersToPoints(10
.RightMargin=CentimetersToPoints(10
EndWith
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
.NameFarEast="隶书"
.Size=50
EndWith
=6
=39
=wdPageFitBestFit
EndSub
Sub中奖状39×27(
.Orientation=wdOrientLandscape
.TopMargin=CentimetersToPoints(
.BottomMargin=CentimetersToPoints(
.LeftMargin=CentimetersToPoints(7
.RightMargin=CentimetersToPoints(7
.PageWidth=CentimetersToPoints(39
.PageHeight=CentimetersToPoints(27
EndWith
.NameFarEast="隶书"
.Size=36
EndWith
=6
=55
=55
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!:.
EndSub
Sub小奖状27×19(
.Orientation=wdOrientLandscape
.TopMargin=CentimetersToPoints(
.BottomMargin=CentimetersToPoints(
.LeftMargin=CentimetersToPoints(5
.RightMargin=CentimetersToPoints(5
.PageWidth=CentimetersToPoints(27
.PageHeight=CentimetersToPoints(19
EndWith
.NameFarEast="隶书"
.Size=22
EndWith
=wdPageFitFullPage
EndSub
欢迎您阅读并下载本文档,本文档来源于互联网,如有侵权请联系删除!我们将竭诚为您提供优质的文档!