专利撰写
Fenrir9999
/*n*/
展开
-
Word VBA自动排版(5)- 专利具体实施方式批量增加附图标记
专利说明书在撰写时,如遇到附图标记过多时,往往需要手动替换各部件以增加附图标记,较为耗时,通过下述代码可对文中的所有部件快速标记,通常只需几秒。Sub 自动增加附图标记()Dim fea(0 To 9, 0 To 9, 0 To 9) As Stringi = 1Do With Selection.find .Text = "[!0-9]" & i &a...原创 2019-02-01 15:59:39 · 2000 阅读 · 1 评论 -
VBA统计WORD文档中汉字、英文及其组合出现的次数,并输出
使用前,需要在word内插入一个textbox1和一个commandbutton1,然后去掉文档中的标点符号。笔者比较懒,未加入剔除标点的代码。理论上下述代码可以统计999个字符(含标点)的文本,如需增加文本数量,则只需要增加数组体积即可。代码只是通过比较简单的for ,do循环实现,没啥技术含量哈。Sub Button1_click() '统计词频 Dim input_wo...原创 2019-02-21 15:09:21 · 2104 阅读 · 0 评论 -
Word VBA自动排版(6)- 专利撰写生成权利要求模板
Sub 生成权利要求() documentname = ActiveDocument.Name '获取当前文件名 Num = ActiveDocument.Paragraphs.Count '获取指针段落号 del = Array(".docx", ".doc") '删除多余文本 para = ActiveDo...原创 2019-02-09 11:22:26 · 1260 阅读 · 0 评论 -
VBA excel数据提取(1)——从某一列中提取所需内容区间,并赋值给另一列
笔者最近在做一个数据库项目,其中需要从EXCEL中提取关键字段。提取内容如下图所示,需要将图中加粗部分单独提出后进行去噪处理。如果通过word处理,文字量小的时候尚可实现,但几十万字的处理量很容易就造成假死。因此采用了EXCEL进行数据处理。代码如下:功能是将B列中的数据筛选后存入C列Sub 提取内容()Dim searchtextDim textlongDim str_startD...原创 2019-03-07 23:50:57 · 12306 阅读 · 1 评论