siminair的个人博客分享 http://blog.sciencenet.cn/u/siminair

博文

文章修改稿中如何将修订的地方批量自动标红

已有 9017 次阅读 2020-11-10 17:30 |系统分类:科研笔记

      论文修改返回修改稿时,编辑总会要求把修改的地方标出来。有的时候修改了很多,最后提交修改稿时如何找到并标记修订的地方就有些犯难了,难以一一标出。有时是用Word的比较功能,但导出的文档都保留了修订的痕迹,版面看上比较乱。很多年前也用过Beyond Compare,BC可以直接将改动的地方标红,最近在尝试使用BC时,发现这个功能好像没有了,只能导出txt文件,离解决问题就很远了。

      于是求助万能的百度,果然只有提不出的问题,没有解决不了的问题。利用Word自带的VBA功能就可以实现,在word审阅模式下修订的地方批量自动标红,具体步骤如下:

  1. 在Word下利用比较功能,将2个版本的论文修改的地方识别出来(审阅模式),打开比较后的文档,作为需要标定的目标文件。

  2. 键入ALT+F11,打开Word的VBA环境

  3. 点击主菜单下的工具栏第二个工具-插入模块-模块,进入代码界面

  4. 在出现的代码窗口中,粘贴代码:

    Sub 更改修订插入内容的颜色()
    Dim n As Integer
    For n = 1 To 5000
        Selection.NextRevision (True)
        Selection.Font.Color = wdColorRed
    Next n
    End Sub

  5. 把键盘光标放到入口函数中任意一行代码上;

  6. 按F5运行程序-循环5000次需要一定的时间,需要等待下;

  7. 点击主菜单下的第一个工具WORD,回到word界面;

  8. 接收所有更改并停止修订,就可以看到所有的修改的地方都标记为红色了。


    以上关于VBA的具体实现源码都来源于网络,结合自己的实践做了一些细小的补充,记录下来组里以备后来之用。


PS:2020文章攒了几篇,但被拒的概率有点高,也很久没有静下心来学这些小技术了。

        道阻且长,行则将至。





https://m.sciencenet.cn/blog-3409822-1257847.html

上一篇:2020年学院新生入学青年教师代表发言
下一篇:MODIS单站点(小区域)数据的获取

1 强涛

该博文允许注册用户评论 请点击登录 评论 (0 个评论)

数据加载中...

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2022-11-30 20:58

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部