word 小技巧无格式粘贴增强型图元文件粘贴文档格式.docx
- 文档编号:6619872
- 上传时间:2023-05-07
- 格式:DOCX
- 页数:17
- 大小:16.82KB
word 小技巧无格式粘贴增强型图元文件粘贴文档格式.docx
《word 小技巧无格式粘贴增强型图元文件粘贴文档格式.docx》由会员分享,可在线阅读,更多相关《word 小技巧无格式粘贴增强型图元文件粘贴文档格式.docx(17页珍藏版)》请在冰点文库上搜索。
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.VerticalPercentScrolled=0
Sub试卷纸39×
27_8开()
.Orientation=wdOrientLandscape
.PageWidth=CentimetersToPoints(39)
.PageHeight=CentimetersToPoints(27)
=2
.TextColumns.Spacing=CentimetersToPoints
(2)
.TopMargin=CentimetersToPoints
(2)
.BottomMargin=CentimetersToPoints
(2)
.LeftMargin=CentimetersToPoints(2.5)
.RightMargin=CentimetersToPoints(2.5)
Sub半张试卷_16开()
.PageWidth=CentimetersToPoints(19.5)
Sub去除多余空格()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="
"
.Replacement.Text="
"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchByte=True
.MatchWildcards=False
Selection.Find.ExecuteReplace:
=wdReplaceAll
"
Sub去除多余回车符()
^l"
^p"
.MatchWildcards=True
[^13]{2,}"
Sub一键排版()
.LayoutMode=wdLayoutModeDefault
^13"
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
(*)"
.Replacement.Text=ChrW(8220)&
\1"
&
ChrW(8221)
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
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
ActiveDocument.Paragraphs
(1).Range.Select
.Size=22
Application.RunMacroName:
="
Normal.ThisDocument.centerpara"
Sub删除重复段落()
(<
[!
^13]*^13)(*)\1"
\1\2"
Sub制表位清零()
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop=CentimetersToPoints(0)
Selection.EscapeKey
Sub首行缩进()
Sub插入页码()
IfActiveWindow.View.SplitSpecial<
>
wdPaneNoneThen
ActiveWindow.Panes
(2).Close
EndIf
IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow._
ActivePane.View.Type=wdOutlineViewThen
ActiveWindow.ActivePane.View.Type=wdPrintView
Selection.Sections
(1).Footers
(1).PageNumbers.Add_
PageNumberAlignment:
=wdAlignPageNumberCenter,FirstPage:
=True
WithActiveDocument.Styles("
页眉"
).ParagraphFormat
.Borders(wdBorderBottom).LineStyle=wdLineStyleNone
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter
Selection.ParagraphFormat.Alignment=wdAlignParagraphJustify
ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument
Sub页眉加横线()
.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
Selection.Style=ActiveDocument.Styles("
)
Selection.TypeTextText:
Selection.PasteSpecialLink:
=False,DataType:
=wdPasteText,Placement:
=_
wdInLine,DisplayAsIcon:
=False
SubA4纸放大成试卷纸打印()
Application.PrintOutFileName:
Range:
=wdPrintAllDocument,Item:
wdPrintDocumentContent,Copies:
=1,Pages:
PageType:
=wdPrintAllPages,_
Collate:
=True,Background:
=True,PrintZoomPaperWidth:
=15309,_
PrintZoomPaperHeight:
=22113
Sub显示比例加()
h1=ActiveWindow.ActivePane.View.Zoom.Percentage
h1=h1+5
ActiveWindow.ActivePane.View.Zoom.Percentage=h1
Sub显示比例减()
h1=h1-5
ActiveWindo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- word 小技巧 无格式粘贴增强型图元文件粘贴 技巧 格式 粘贴 增强 型图元 文件
![提示](https://static.bingdoc.com/images/bang_tan.gif)