Word VBA自动排版（6）- 专利撰写生成权利要求模板

下述代码功能：
1.判断当前权利要求，如果为独权1则生成独权模板，如果为从权则生成从权模板，点一次宏，生成一条权利要求
2.笔者习惯显示文件的扩展名，所以在获取当前文件名称时会保留doc或docx，需在生成权利要求后自动删除
3.上述代码需要获取当前文件名称，因此需要将专利名称作为文件名称

Sub 生成权利要求()documentname = ActiveDocument.Name       '获取当前文件名Num = ActiveDocument.Paragraphs.Count    '获取指针段落号del = Array(".docx", ".doc")                              '删除多余文本para = ActiveDocument.Paragraphs(Num)     '获取指针段落全文I = Left(para, 2)I = Val(I)J = II = I + 1If J = 0 ThenSelection.TypeText Text:="" & I & ". 一种" & documentname & "，其特征在于："ElseSelection.EndKey Unit:=wdLineSelection.TypeParagraphSelection.TypeText Text:="" & I & ". 根据权利要求" & J & "所述的" & documentname & "，其特征在于："End If'删除相应文本For I = 0 To UBound(del)With Selection.find.Text = del(I).Replacement.Text = "".Forward = True.Wrap = wdFindContinueEnd WithSelection.find.Execute Replace:=wdReplaceAllNext
End Sub

Word VBA自动排版（6）- 专利撰写生成权利要求模板相关推荐

Word VBA自动排版（5）- 专利具体实施方式批量增加附图标记
专利说明书在撰写时,如遇到附图标记过多时,往往需要手动替换各部件以增加附图标记,较为耗时,通过下述代码可对文中的所有部件快速标记,通常只需几秒. Sub 自动增加附图标记()Dim fea(0 To ...
Word VBA自动排版（1）-新建窗口，并且设置并列分布
就是一个通过VBA实现的word宏,代码虽然比较LOW,但是很好用. 该宏可以同时实现新建窗口.并排查看和取消同步滚动,如果需要保留同步滚动,只需在相应处进行修改即可. 兼容了doc和docx格式代 ...
Word VBA自动排版（2）-通过自动查找替换去除叠字
叠字主要包括以下几种: 1型aabbcc 2型ababab 3型abcabcabc 4型abcdabcdabcdabcd(这个算思考题,自己根据原理增加吧) 代码原理为通过自建数组和通配符替换逐一替换 ...
VBA宏实现Word论文自动排版
一.灵感与动机作为一名即将毕业的大四学生,不仅经历了设计.编写系统的痛苦,还经历了撰写论文的烦恼,尤其是最后论文排版阶段,非常的繁琐和费时.所以我就希望可以有一个自动排版的"脚本" ...
word vba高效排版范例应用_收藏 | 原来word里面也有函数！
Word里面的rand"函数" 可以在文档中快速生成文本,小伙伴在Word中练习排版时,可以用虚拟文本来练习排版.在任意位置输入=rand()必须为英文半角,按[Enter]键,就 ...
word vba高效排版范例应用_Word 排版指北丨高效律师
1 前言前几天看到同事还在以敲回车的方式对word进行分页,我不禁感叹:虽然 Word 是很多律师必备的工具,但是很多人并不会用 word 排版.于是总结下自己平时使用Word排版的相关经验,希望能 ...
word公式自动排版最简单
如果我们在word是insert equation插入的公式的话,只要在公式后面输入#(number)然后回车,就会直接居中,并且自动更新编号. 效果:
Web 自动化下载及转换Word自动排版
Web 自动化下载及转换 Word 的应用,主要涉及到爬虫技术的应用和 docx 的应用.通过爬虫的应用,能快速把你想搜集的内容以及图片,视频等下载,利用 docx实现对Word的自动排版等功能 ...
【秃头系列】-【本科生毕设论文格式Word】自动生成论文多级标题并排版正文
文章目录 01 - 论文多级标题及正文 1.1 - 多级标题 1.2 - 正文 02 - 如何自动生成 2.1 - 格式约定 2.2 - 设置多级标题 2.2.1 - 设置标题样式 2.2.2 - 设 ...

Word VBA自动排版（6）- 专利撰写生成权利要求模板

Word VBA自动排版（6）- 专利撰写生成权利要求模板相关推荐

最新文章

热门文章