word-小技巧----无格式粘贴-增强型图元文件粘贴_第1页
word-小技巧----无格式粘贴-增强型图元文件粘贴_第2页
word-小技巧----无格式粘贴-增强型图元文件粘贴_第3页
word-小技巧----无格式粘贴-增强型图元文件粘贴_第4页
word-小技巧----无格式粘贴-增强型图元文件粘贴_第5页
已阅读5页,还剩6页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

粘贴时不使用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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论