VBA问题：怎样修改Word中图文框的内容？

Question

刚对VBA感兴趣，还对是RANGE 不清楚起什么作用？

Answer 1

我是这样解决的：Sub test()
    Dim oRange As Word.Range
    Dim n As Long
    For Each oRange In Application.ActiveDocument.Sentences
        n = n + 1
        if orange.end-orange.start>len(orange.text) then orange.start=orange.end-len(orange.text)
        oRange.Text = "Sentence " & CStr(n)
    Next oRange
End Sub这个方法我觉得不好，谁有更好的解决方法？

Answer 2

to click_ckl:
    这只是个说明问题的例子，实际环境中我要把一篇文档中的内容以句子（还有其他规则）为单位提取出来，处理完毕后再填回去。这一切都是在VB中完成的。