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

最新推荐文章于 2025-03-10 17:54:16 发布

Fenrir9999

最新推荐文章于 2025-03-10 17:54:16 发布

阅读量1.3k

点赞数

分类专栏： VBA编程专利撰写

本文链接：https://blog.youkuaiyun.com/weixin_44559388/article/details/86799027

版权

VBA编程同时被 2 个专栏收录

15 篇文章

订阅专栏

专利撰写

4 篇文章

订阅专栏

本文介绍了一款利用VBA宏自动在Word中生成专利权利要求的代码。该宏能够根据当前段落的内容，判断是独立权利要求还是从属权利要求，并自动生成相应的模板。此外，宏还会自动删除文件名中的.doc或.docx扩展名。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下述代码功能：
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 = I
 I = I + 1
      
 If J = 0 Then
     Selection.TypeText Text:="" & I & ". 一种" & documentname & "，其特征在于："
 Else
     Selection.EndKey Unit:=wdLine
     Selection.TypeParagraph
     Selection.TypeText Text:="" & I & ". 根据权利要求" & J & "所述的" & documentname & "，其特征在于："
 End If
 
 '删除相应文本
 For I = 0 To UBound(del)
        With Selection.find
            .Text = del(I)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
    End With
    Selection.find.Execute Replace:=wdReplaceAll
  Next
End Sub