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

粘贴时不使用Sub格式()selection.pasteandformat (wdformatplaintext )日本职业足球联赛Sub扩展元文件()selection.collapse direction :=wdcollapsestartselection.range.pastespecialdatatype :=wdpasteenhancementmetafile日本职业足球联赛Sub显示比例正常()On Error Resume Nextactive window.active pane.view.zoom.percentage=100日本职业足球联赛显示Sub文本的宽度()显示文本的宽度Macro宏在2011/9/29号被AIRDAN记录了active window.active pane.view.zoom.page fit=wdpagefittextfit日本职业足球联赛Sub当前打印机()On Error Resume Nextmsgbox (application.active printer )日本职业足球联赛Sub A4纸()On Error Resume Nextactive window.active pane.display rulers=trueWith ActiveDocument.PageSetup. text columns.setcountnumcolumns :=1. TextColumns.EvenlySpaced=True. Orientation=wdOrientPortrait. top margin=centimeterstopoints (2.54 ). bottom margin=centimeterstopoints (2. 54 ). left margin=centimeterstopoints (3. 17 ). right margin=centimeterstopoints (3. 17 ). header distance=centimeterstopoints (1.5 ). footer distance=centimeterstopoints (1.5 ). page width=centimeterstopoints (21 ). page height=centimeterstopoints (29.7 )status bar=application.active printer最后一球active window.active pane.view.zoom.percentage=100active window.active pane.verticesalpercentscrolled=0日本职业足球联赛Sub试卷用纸3927_8开()On Error Resume Nextactive window.active pane.display rulers=trueWith ActiveDocument.PageSetup.方向=wdorientlandscape. page width=centimeterstopoints (39 ). page height=centimeterstopoints (27 ). text columns.setcountnumcolumns :=2. text columns.spacing=centimeterstopoints (2). top margin=centimeterstopoints (2). bottom margin=centimeterstopoints (2). left margin=centimeterstopoints (2.5 ). right margin=centimeterstopoints (2.5 ). header distance=centimeterstopoints (1.5 ). footer distance=centimeterstopoints (1.5 )status bar=application.active printer最后一球active window.active pane.view.zoom.percentage=100active window.active pane.verticesalpercentscrolled=0日本职业足球联赛Sub一半的答案_16开()On Error Resume Nextactive window.active pane.display rulers=trueWith ActiveDocument.PageSetup. text columns.setcountnumcolumns :=1. Orientation=wdOrientPortrait. top margin=centimeterstopoints (2). bottom margin=centimeterstopoints (2). left margin=centimeterstopoints (2.5 ). right margin=centimeterstopoints (2.5 ). header distance=centimeterstopoints (1.5 ). footer distance=centimeterstopoints (1.5 ). page width=centimeterstopoints (19.5 ). page height=centimeterstopoints (27 )status bar=application.active printer最后一球active window.active pane.view.zoom.percentage=100active window.active pane.verticesalpercentscrolled=0日本职业足球联赛删除Sub多馀的空格()On Error Resume NextSelection.Find.ClearFormattingselection.find.replacement.clear formattingWith Selection.Find. Text= 。. Replacement.Text=. Forward=True. Wrap=wdFindContinue. Format=False. MatchByte=True. MatchWildcards=False最后一球selection.find.executereplace :=wd替换全部With Selection.Find. Text= 。. Replacement.Text=. Forward=True. Wrap=wdFindContinue. Format=False. MatchByte=True. MatchWildcards=False最后一球selection.find.executereplace :=wd替换全部active window.active pane.verticesalpercentscrolled=0日本职业足球联赛Sub删除多馀的回车符()Selection.Find.ClearFormattingselection.find.replacement.clear formattingWith Selection.Find. Text=l . Replacement.Text=p . Forward=True. Wrap=wdFindContinue. Format=False. MatchByte=True. MatchWildcards=True最后一球selection.find.executereplace :=wd替换全部With Selection.Find. Text=132， _. Replacement.Text=p . Forward=True. Wrap=wdFindContinue. Format=False. MatchByte=True. MatchWildcards=True最后一球selection.find.executereplace :=wd替换全部active window.active pane.vertalpercentscrolled=0日本职业足球联赛Sub快插型号()With ActiveDocument.PageSetup. LayoutMode=wdLayoutModeDefault最后一球Selection.Find.ClearFormattingselection.find.replacement.clear formattingWith Selection.Find. Text=l . Replacement.Text=13 . Forward=True. Wrap=wdFindContinue. Format=False. MatchCase=False. MatchWholeWord=False. MatchByte=False. MatchAllWordForms=False. MatchSoundsLike=False. MatchWildcards=True最后一球selection.find.executereplace :=wd替换全部With Selection.Find. Text=132， _. Replacement.Text=p . Forward=True. Wrap=wdFindContinue. Format=False. MatchCase=False. MatchWholeWord=False. MatchByte=False. MatchAllWordForms=False. MatchSoundsLike=False. MatchWildcards=True最后一球selection.find.executereplace :=wd替换全部With Selection.Find. text=“(* )”. replacement.text=chrw (82