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 = 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