Word 中几个较有用的宏

Sub 文本粘贴1()
    'ctrl+1
    '用于粘贴纯文本
    Selection.PasteAndFormat (wdFormatPlainText)

End Sub

Sub 文本粘贴2()
'ctrl+2
'用于粘贴从一般新闻网页中复制下来的文本，会自动去除多余的制表符和双行符。

Selection.PasteAndFormat (wdFormatPlainText)

    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

     With Selection.Find
         .Text = "^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 重新排版()

'strl+3
'去除图像转文字带来的多余回车符。事先须在正确的回车符后而加入“##”串。

With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find
        .Text = "##"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


End Sub

Word 中几个较有用的宏相关推荐

利用VBA在Word中排出漂亮的代码
引言在学习编程的过程中,常常会使用word来做笔记,下面我将对如何利用word宏来进行代码的排版进行说明 1.工具我用的是word2007,word2003和word2010操作也差不多 2.基本 ...
MathType的下载和安装以及添加到word中
MathType的下载和安装以及添加到word中当你在word中无法使用mathtype的时候,解决方法 1.首先,确定你下载的mathtype可用 (1).我建议用控制面板把你之前下载的matht ...
Word中录制宏，学会后成大神
Word中录制宏,学会后成大神 Word是日常工作.生活不可避免的工具,掌握word的一些技巧,可以提高效率,让工作事半功倍,下面由办公吧(offices8.com)整理的如何在word中使用宏. 这 ...
使用宏批量修改word中图片大小
word中使用宏修改图片大小,图片大小相同 1.打开word中视图选项卡,选择"宏"->"输入宏名"->"创建" 2.编辑宏输 ...
解决插件在word中的宏禁用问题。MathType, Microsoft Office, powerpoint
背景:破解版的Microsoft Office,以及破解版的MathType.启动word后,会出现"宏禁用"的警告,并且MathType插件不可用,MathType对象也无法编辑 ...
word 解放双手，使用宏批量添加word中表格边框以及自适应
Sub 宏2() ' ' 宏2 宏 ' ' For Each aTable In ActiveDocument.TablesWith aTableaTable.SelectWith .Borders( ...
使用word中的宏实现选中指定类型表格，并且批量修改样式结构
使用word中的宏实现选中指定类型表格,并且批量修改样式结构 Sub SelectAllTables() ' ' SelectAllTables 宏选中所有表格 ' 'Dim tempTable A ...
使用Aurora在Word中插入算法伪代码教程，亲测有效，写论文必备
1. 安装Aurora和miktex软件安装miktex,附百度网盘链接链接:https://pan.baidu.com/s/12l_88pDKmoIBESJ_Kek85Q 提取码:v0t5 下载 ...
在word中利用Endnote导入文献时提示“无法编辑range”的解决办法-基本上通过以下方法都可以解决
在word中利用Endnote导入文献时提示"无法编辑range"的解决办法注意:在处理这个问题之前,请复制word以备份我们要处理的word文件,否则后期如果我们调整了word ...
在Word中调用外部程序两法
你有没有想过,在编辑Word文档的时候,直接从Word中调用外部程序呢?其实这并不难,下面笔者就以在Word中调用计算器程序为例,简述具体的操作方法. 一.利用宏命令 1.点击"工具→宏&q ...

Word 中几个较有用的宏

Word 中几个较有用的宏相关推荐

最新文章

热门文章