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

Sub 无格式粘贴() Selection.PasteAndFormat (wdFormatPlainText) End Sub Sub 增强型图元文件() Selection.Collapse Direction:=wdCollapseStart Selection.Range.PasteSpecial DataType:=wdPasteEnhanceMetafile End Sub Sub 显示比例正常() On Error Resume Next ActiveWindow.ActivePane.View.Zoom.Percentage = 100 End Sub Sub 显示文字宽度() 显示文字宽度 Macro 宏在 2011/9/29 由 AIRDAN 录制 ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitTextFit End Sub Sub 当前打印机() On Error Resume Next MsgBox (Application.ActivePrinter) End Sub Sub A4纸() On Error Resume Next ActiveWindow.ActivePane.DisplayRulers = True With ActiveDocument.PageSetup .TextColumns.SetCount NumColumns:=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 End With ActiveWindow.ActivePane.View.Zoom.Percentage = 100 ActiveWindow.ActivePane.VerticalPercentScrolled = 0 End Sub Sub 试卷纸39×27_8开() On Error Resume Next ActiveWindow.ActivePane.DisplayRulers = True With ActiveDocument.PageSetup .Orientation = wdOrientLandscape .PageWidth = CentimetersToPoints(39) .PageHeight = CentimetersToPoints(27) .TextColumns.SetCount NumColumns:=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