欢迎来到天天文库
浏览记录
ID:57896724
大小:71.50 KB
页数:11页
时间:2020-09-02
《word-小技巧----无格式粘贴-增强型图元文件粘贴.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、Sub无格式粘贴()Selection.PasteAndFormat(wdFormatPlainText)EndSubSub增强型图元文件()Selection.CollapseDirection:=wdCollapseStartSelection.Range.PasteSpecialDataType:=wdPasteEnhanceMetafileEndSubSub显示比例正常()OnErrorResumeNextActiveWindow.ActivePane.View.Zoom.Percentage=100EndSu
2、bSub显示文字宽度()''显示文字宽度Macro'宏在2011/9/29由AIRDAN录制'ActiveWindow.ActivePane.View.Zoom.PageFit=wdPageFitTextFitEndSubSub当前打印机()OnErrorResumeNextMsgBox(Application.ActivePrinter)EndSubSubA4纸()OnErrorResumeNextActiveWindow.ActivePane.DisplayRulers=TrueWithActiveDocument
3、.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).HeaderDi
4、stance=CentimetersToPoints(1.5).FooterDistance=CentimetersToPoints(1.5).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7)StatusBar=Application.ActivePrinterEndWithActiveWindow.ActivePane.View.Zoom.Percentage=100ActiveWindow.ActivePane.Vertic
5、alPercentScrolled=0EndSubSub试卷纸39×27_8开()OnErrorResumeNextActiveWindow.ActivePane.DisplayRulers=TrueWithActiveDocument.PageSetup.Orientation=wdOrientLandscape.PageWidth=CentimetersToPoints(39).PageHeight=CentimetersToPoints(27).TextColumns.SetCountNumColumns:=2.
6、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.
7、5)StatusBar=Application.ActivePrinterEndWithActiveWindow.ActivePane.View.Zoom.Percentage=100ActiveWindow.ActivePane.VerticalPercentScrolled=0EndSubSub半张试卷_16开()OnErrorResumeNextActiveWindow.ActivePane.DisplayRulers=TrueWithActiveDocument.PageSetup.TextColumns.Se
8、tCountNumColumns:=1.Orientation=wdOrientPortrait.TopMargin=CentimetersToPoints(2).BottomMargin=CentimetersToPoints(2).LeftMargin=CentimetersToPoints(2.5).RightMargin=
此文档下载收益归作者所有