Word中的书签功能可快速.准确定位文档中特定的位置,经常用于模板定制.文档产出等. 可一直以来,书签功能存在一个不便的操作,即无法批量删除,只能单个删除,操作极不友好. 解决方案 我用代码暂时还改变不了世界,但可以提高工作效率.使用两VBA代码,即可完成遍历.删除. ALT+F11,打开VBA编辑器,在ThisDocument页面写下语句,F5执行即可. Sub DelBookmarks() Dim MyBk As Bookmark For Each MyBk In ActiveDocumen
需求:经常阅读网上的研报(没钱买排版漂亮的高质量研报),有些需要保存的复制下来到word里,图片很大都超出word的边界了,也没有居中,手工一张张调整不现实,上百页的研报,几十张图片. 解决方案:利用VBA宏批量解决.第一种方法经过测试,只是前面部分有些,后面部分无效,不知道何解. 以下是代码: Sub setpicsize() '设置图片尺寸 '第一种方法,经测试,文档前面部分图片有效,后面部分无效 'Dim n '图片个数 'On Error Resume Next '忽略错误 'For n
如何禁止 Mac OS X 在外接设备上生成 .DS_Store 文件?以及如何批量删除 .DS_Store 文件?原文链接:http://www.java2class.net/bbs/viewthread.php?tid=254背景信息.DS_Store文件(Desktop Services Store)是一个隐藏的文件,在每一个目录下都有,它存放着这个文件目录的一些特定属性信息 Metadata,比如图标大小.位置.背景图片等属性:有点儿类似于 Windows 操作系统上的 Thumbs.d
Python作为一种脚本语言.其很适合文件级的各种操作.以下的代码能够批量删除指定目录下的所有特定类型(CSV类型)的文件. import sys, csv , operator import os import glob for i in range(0, 20): path = "C:\\Python34\\Folder_" + str(i) for infile in glob.glob( os.path.join(path, '*.csv') ): os.remove(infi
excel中批量删除公式,保留数值 Sub macro1() Dim sh As Worksheet For Each sh In Sheets sh.UsedRange = sh.UsedRange.Value Next End Sub ALT+F11进入VBE编辑界面,菜单-->工具-->添加模块,复制粘贴9楼代码,ALT+F11返回工作表,ALT+F8执行宏macro1.