jes - 博客园

公告

2021年7月29日

windows embedded standard 7安装字体

摘要： windows embedded standard 7下采用常规安装字体的方法（直接手工复制字体文件到C:\Windows\Fonts）没有生效。经测试成功，FontReg可以解决这个问题。一句命令FontReg /copy即可安装当前工作目录下的所有字体文件，而且重启后也依然有效。官网：htt 阅读全文

posted @ 2021-07-29 10:41 jes 阅读(278) 评论(0) 推荐(0)

2021年3月5日

JavaScript利用正则表达式实现快速查找

摘要：十几年前还是程序员的时候，在网上看到的一个JavaScript利用正则表达式实现快速从字符串中查找出关键字的一种方法，效率很高，速度很快。 /*js快速查找*/ function JS_cruel_search(data, key) { re = new RegExp(key, [""]); // 阅读全文

posted @ 2021-03-05 22:32 jes 阅读(837) 评论(0) 推荐(0)

2020年10月10日

Excel VBA保留表头拆分数据为若干新工作簿

摘要： Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 3, , , , , 1) If c = 0 Then Exit Sub 阅读全文

posted @ 2020-10-10 14:10 jes 阅读(2462) 评论(1) 推荐(0)

2020年4月26日

VBA操作WORD（〇）自动智能排版、格式化公文模板

摘要：需要的函数基本都在前面的文章中。如果看不懂代码想拿来就用，没什么用，因为改不了代码就不能适合自己的需要。程序是死的，人是活的。如果需要程序自动就能把格式排版好，需要用户按照规则书写文章，不然还需要手工调整。所以，结论就是，程序只是辅助用的，最终还需要人工核对一遍。个人的经验教训，尽量不要程序阅读全文

posted @ 2020-04-26 00:50 jes 阅读(4504) 评论(0) 推荐(1)

2020年4月24日

VBA操作WORD（八）设置标题格式（含主、副标题）

摘要：因为主标题和副标题一般都是包含一两句子的段落，所以参数直接传入Paragraph。至于判断主副标题的规则则外面调用部分再做判断。 Sub 设置主标题格式(ib As Paragraph) 'With ActiveDocument.Paragraphs(1).Range '.Style = Activ 阅读全文

posted @ 2020-04-24 00:27 jes 阅读(6225) 评论(0) 推荐(0)

2020年4月22日

VBA Trim CleanString 删除空白（空格）字符

摘要：重要: TRIM 函数专用于剪裁文本中的 7 位 ASCII 空格字符（值 32）。在 Unicode 字符集中，存在名为不间断空格字符的附加空格字符，其十进制值为 160。通常在网页中使用此字符作为 HTML 实体  。 TRIM 函数本身不会删除此不间断空格字符。有关如何从文本中阅读全文

posted @ 2020-04-22 23:30 jes 阅读(6003) 评论(0) 推荐(0)

2020年4月19日

VBA操作WORD（七）设置每一级大纲式样

摘要：摘抄自网络的一些代码，以备后用，部分也有修改。部分来源于： https://zhuanlan.zhihu.com/p/35695960 Sub 设置每一级样式格式() With ActiveDocument.Styles(wdStyleHeading1).Font .Color = wdColor 阅读全文

posted @ 2020-04-19 22:44 jes 阅读(4726) 评论(0) 推荐(0)

VBA操作WORD（六）另存为不含宏的文档

摘要： Sub 另存为不含宏的文档() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oRng As R 阅读全文

posted @ 2020-04-19 21:19 jes 阅读(3666) 评论(0) 推荐(0)

vba 用文档第一句话作为文件名另存为新文档

摘要： ActiveDocument.Paragraphs(1).Range.Text vba一直提醒出错，后来MsgBox(ActiveDocument.Paragraphs(1).Range.Text & ".doc")后发现中间还有个换行符，怪不得老是提醒错误。阅读全文

posted @ 2020-04-19 11:32 jes 阅读(1284) 评论(0) 推荐(0)

2020年4月16日

VBA操作WORD（四）：获知关键字所在段落及相关信息

摘要：思路参考自：http://club.excelhome.net/thread-1477855-1-1.html 以下是代码： Sub 关键字所在的段落() With Selection .HomeKey unit:=wdStory, Extend:=wdMove If .Find.Execute(F 阅读全文

posted @ 2020-04-16 21:24 jes 阅读(4635) 评论(1) 推荐(0)