计算机兴趣——Word——宏——一键处理百度百科文字格式整理

最新推荐文章于 2020-10-22 16:57:19 发布
最新推荐文章于 2020-10-22 16:57:19 发布
阅读量1.4k 收藏 2
点赞数
分类专栏： word
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/CS_liuqing/article/details/17420299
版权
    计算机是用来自动化人工作的。。。
    
    这篇文章是干什么的？当你复制网上的文字，再粘贴到word上时，往往需要修改格式。eg：字体大小，居中，换行，设置标题。这种重复枯燥的操作，就应当交由计算机一键化秒秒钟处理，将人解放出来。所以，这有了这篇文章。
    
    你需要安装Office Word 2007，如果是Word 2003，可能，会出一点点小问题，删除出问题的那段代码就行了。因为有些东西Word 2007的东西，Word 2003不支持。如果是WPS的话，很抱歉，人家几百M的软件的功能还是强大很多的。（WPS免费版没有 宏 的功能）。

    原理：就是利用Word 宏的功能。简而言之，就是用程序代替你设置文字的大小，标题的操作。而执行这段程序只需秒秒钟的时间。这段程序就叫做宏。所以，下面就是那段一键化的代码。

    这篇文章的由来：虽然网上有各种格式化粘贴文字的宏，但不能针对特定网站。例如，我想把百度百科的全部内容全部复制粘贴到Word，用网上百度到的宏，只能把它全部整理成一种格式（eg：五号字体，但没标题）。所以，下面的宏，是针对百度百科的，且已经稍作修改，可以格式化一般网站上的文字。你如果稍作修改，也能适应特定的网站，也可以适应一般的网站。如果你想需要将维基百科上的内容复制粘贴且打印的话，直接选择Adobe Acrobat Printer，Printer将自动设置好了字体大小，标题，换行。（如果你装了Adobe Acrobat 软件，一般情况是有的Printer的，没有就是Ghost系统没有一些服务o(╯□╰)o）


 已经有的功能：删除段前距，段后距，行距（这样打印就不浪费纸）。正文设置为五号，这样打印出来的字，既不会太大，也不会太小。按Word已经有的标题格式，重新设置标题，也可以略修改，按自己的需求设置。将所有的字体颜色设置为黑色。正文字体大小和标题均可以按自己的需求设置。
没有的功能/Bug/希望能增加的功能：标题设置后的效果和手动点标题设置的效果不一样。将百度百科的内容复制粘贴过来，标题2，标题3就已经是Word内建的标题了，所以标题2，标题3不好设置，需手工设置。因为我的打印文档已经默认设置好页边距，和页脚，所以下面的代码没有页边距和页脚的设置。我希望增加自动插入页眉的功能。


下面是宏代码：

Sub 百度百科一键整理()
'
' 百度百科一键整理 宏
'2013年12月19日，星期四。
'
'
'
    '---------替换空格------
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
' 替换全角空格
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = "  "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'---------替换换行------
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    '删除“编辑”两个字。可能会多删除，但一般是不会的。
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "编辑"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    
    
    
    '增加新段落的缩进
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p^t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    
    '修改标题1， （因为标题2， 3系统已经默认修改好了）
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 17 '有时候好像是13.5，所以下面还有一个类似的，只不过是13.5
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("标题 1")
    With Selection.Find.Replacement.Font
        .Size = 12
    End With
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphCenter
        .WordWrap = True
    End With
    Selection.Find.Replacement.ParagraphFormat.TabStops.ClearAll
    With Selection.Find.Replacement.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorBlack
            .BackgroundPatternColor = wdColorBlack
        End With
        .Borders.Shadow = False
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EscapeKey
'修改标题1， （因为标题2， 3系统已经默认修改好了）
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 13.5 '有时候好像是13.5，所以下面还有一个类似的，只不过是13.5
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("标题 1")
    With Selection.Find.Replacement.Font
        .Size = 12
    End With
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphCenter
        .WordWrap = True
    End With
    Selection.Find.Replacement.ParagraphFormat.TabStops.ClearAll
    With Selection.Find.Replacement.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorBlack
            .BackgroundPatternColor = wdColorBlack
        End With
        .Borders.Shadow = False
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EscapeKey
    
    '修改正文，将    '将 七号 改为 五号
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 7
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 10.5
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    '删除“编辑”之后，还有一个空行。，仅替换一次。
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^t"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
    
    
        ' 删除行距、段距 宏
'-------删除段前距--------
 Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphJustify
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    
    '------删除段后距---------
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphJustify
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    
    '--------删除行距-------
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceAtLeast
        .LineSpacing = 12
        .Alignment = wdAlignParagraphJustify
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    
    
    
    
    
    '字体颜色处理
    Selection.WholeStory
    Selection.Font.Color = wdColorBlack
    
    
    
End Sub

     关于如何使用Word宏，百度，或者“ http://wenku.baidu.com/link?url=zP5Ckji5u6mrfLIgU09Ia3DISQA_Dhn7vt033k8b3ISxpTU9yoTNeSeIAa2g404ZlK1k52p9SlXSsCeMqTQY1Km5UlTbW9b0Y7KwK-TG0je ”，虽然讲的不是很好。

欢迎大家提出新的需求，举出bug，解决方案，Idea！
Ps：这代码不是手写的，是用“宏录制”功能录制的。我虽然是计算机专业的，但没有Word相关课程，且一般计算机专业的也没有Word相关课程。(⊙o⊙)…

欢迎转载（转载请说明出处）！



且走且珍惜
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【VB脚本备忘】【for WORD】政策与法条排版
pzxzhy的博客
05-02 806
很久以前，经常要对网上找的政策和法条排版后留存，排版很烦，曾经写了两段代码，省事不少，前期要用，找不到了。偶然翻到底稿，赶紧做个备份。【法条】***法条*** Sub TypeSet() Application.ScreenUpdating = False '------------------------------------------ 处理字符 --------------...
Python——论一只爬虫的自我修养3：隐藏
Sam's blog
08-06 453
测试题：来自：bbs.fishc.com`&k'8d_@6PWm-OfJGQ#B^~U{0. 服务器是如何识访问来自浏览器还是非浏览器的？)5z}Wp4nt*%n`4Ji3|&T,_7Fc?)LUl5eLP5*fy:1DS%BjbzYWn&2_;,1. 明明代码跟视频中的栗子一样，一运行却出错了，但在不修改代码的情况下再次尝试运行却又变好了，这是为什么呢？w&65~[!ew2Ch)SF>%(0zr4GK*$-`OR2. Request 是由客户端发出还是由服务端发出？r
批量设置word文档的页面格式 word vba代码注释
ppby2002的专栏
12-08 6345
Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDia
Word 中几个较有用的宏
jhycjhyc的专栏
10-22 7757
Sub 文本粘贴1() 'ctrl+1 '用于粘贴纯文本 Selection.PasteAndFormat (wdFormatPlainText) End Sub Sub 文本粘贴2() 'ctrl+2 '用于粘贴从一般新闻网页中复制下来的文本，会自动去除多余的制表符和双行符。 Selection.PasteAndFormat (wdFormatPlainText) With Selection.Find ...
计算机端最好用的词典——GoldenDict
MortonWang
12-29 9516
介绍 GoldenDict 安装及配置 词典资源下载 添加在线翻译 有道词典在线 百度翻译 必应词典网页版 谷歌翻译 参考 Windows 上有哪些好的词典推荐？推荐理由是什么？ - 我林俊杰打钱的回答 - 知乎 Add Google translate to GoldenDict ...
word宏、宏编程以及VBA
热门推荐
绝圣弃智-零的博客
12-03 3万+
整理自网络   word宏是什么呢？ 宏是一个批量处理程序命令，正确地运用它可以提高工作效率。微软的office软件允许用户自己编写，叫VBA的脚本来增加其灵活性，进一步扩充它的能力。 如完成一个一打开word文件同时要打开某个文件的功能，必须要自己编写一段称之为宏的脚本。 具体做法是在菜单栏点击开发工具-宏，"宏"弹出的对话框输入宏名，然后按"创建"按钮会打开visual basic编...
uu软件工程——个人总结
weixin_30325487的博客
06-25 106
回想开学初对于软件工程这门课的期望，总结本课程对我带来的提升： 学习和使用的新软件：花生壳，wamp，word、ppt等 花生壳"支持的线路包括普通电话线、ISDN、ADSL、有线电视网络、双绞线到户的宽带网和其它任何能够提供互联网真实IP的接入服务线路，而无论连接获得的IP属于动态还是静态。对于使用动态IP接入的用户而言，您可以利用"花生壳"在办公室或家庭建立拥有固定域名的...
百度翻译Q1 DAU增长40%，疫情期学生在线学习率猛增
AI科技大本营
05-11 1661
5月11日，百度翻译公布最新的DAU（日活跃用户数量）相关数据，2020年Q1较上一个季度环比增长10%，较去年Q1同比增长40%。 此外，百度翻译还在一个季度内，将翻译的语种扩充了近7倍，目前百度翻译支持200种语言互译，是全球支持语种数量最多的翻译系统。涵盖近4万个翻译方向，每天来自世界各地的翻译请求字符量超过千亿，相当于2000部大英百科全书，平均每秒钟就要翻译超过一百万字符。 尤其此次疫情期间，在线学习的需求猛增，互联网突破了时间、空间的限制，以AI词典、口语智能测评等百度翻译长期打磨的优势
计算机绘图——AutoCADAutodeskInventorppt课件(完整版).ppt
05-30
计算机绘图——AutoCADAutodeskInventorppt课件(完整版).ppt
实验六--计算机基础——WORD段落设置.doc
09-30
实验六--计算机基础——WORD段落设置.doc
电脑培训学校计算机专业XX——XX三年发展计划.docx
06-21
电脑培训学校计算机专业XX——XX三年发展计划.docx
计算机设计与实践——32位ALU设计-完整版.pdf
04-14
计算机设计与实践——32位ALU设计-完整版.pdf
word宏命令——宋体引号
07-05
word宏命令——宋体引号
思维导图----百度百科
xqhrs232的专栏
11-04 4618
原文地址::http://baike.baidu.com/link?url=ocn4MnBEQRycwmoZqs7Fd5KPkuSUXMi1mQJb0mPLq4Tska_GOVOLXt04ZI6uXqku4bt6KtfAYXrncTqz4BOOZq MindManager即思维导图（思维导图）。 思维导图是有效的思维模式，应用于记忆、学习、思考等的思维“地图
xxxxdfgfdgfdgd
07-14
xxxxdfgfdgfdgd
SQL语句基础教程.pdf
最新发布
07-14
SQL语句基础教程.pdf
站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用
07-14
站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断路器保护灵敏度校验整改及剩余电流监测试点应用站用交流系统断

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值