word小技巧无格式粘贴增强型图元文件粘贴精.docx
- 文档编号:1641329
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:14
- 大小:16.61KB
word小技巧无格式粘贴增强型图元文件粘贴精.docx
《word小技巧无格式粘贴增强型图元文件粘贴精.docx》由会员分享,可在线阅读,更多相关《word小技巧无格式粘贴增强型图元文件粘贴精.docx(14页珍藏版)》请在冰豆网上搜索。
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.DefaultHi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- word 技巧 格式 粘贴 增强 型图元 文件
![提示](https://static.bdocx.com/images/bang_tan.gif)