创建一个Range对象：

'@Param filePath 被打开的文件路径
public Sub start(byval filePath As String)
    Dim filePath As String
    Dim targetDoc As Document
    Dim tmpRange As Range
    Set targetDocument = Documents.Open(filePath, , False)
    Set tmpParagraph = targetDoc.Paragraphs(j)
    Set tmpRange = tmpParagraph.range
End Sub

自动编号

1. 清除

tmpRange.ListFormat.RemoveNumbers

无返回值

2. 自动编号转换为普通字符串

tmpRange.ListFormat.ConvertNumbersToText

无返回值

3. 插入自动编号

无返回值

批注

1. 添加批注

tmpRange.Select
Selection.Comments.Add range:=Selection.range, text:="插入一个批注"

无返回值

2. 获取所有批注

3. 删除批注

Range上的图形

1. 获取数目

tmpRange.ShapeRange.count

返回值类型为 Integer 整形，如 0 或 1

样式

1. 字体大小

- 设置

tmpRange.Font.Size = 10.9

输入类型可为 整形（如Integer） 或者是浮点型（如 Single）

- 获取

tmpRange.Font.Size

返回值类型为 整形（如Integer） 或者是浮点型（如 Single），注意此处如果需要变量来存储，一定要考虑返回值有小数点的情况，也就是如果使用整型存储小数会导致精度丢失，从而是实际字体大小不准确。

2. 字体样式

- 设置

tmpRange.Font.Name = "宋体"

- 获取

tmpRange.Font.Name

返回值类型为 String 字符串，如“宋体” “黑体”，此名称与Word中字体名称相同：