word-小技巧----无格式粘贴-增强型图元文件粘贴.doc

《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=