如何获得形状（VBA单词）的一系列桌子范围？

Question

我有一张桌子的桌子。

我想在text =“ 123”

我尝试此代码，但是它无法获得形状的单元格范围：

Dim oApp As Object
Dim oShape As Object
Dim oTable As Object
Dim oDoc As Object

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

Set oDocument = oApp.Documents.Open("E:\2022\t1.docx")
Set oShape = oDocument.Shapes(1)
Set oTable = oShape.TextFrame.TextRange.Tables(1)

Dim iStart As Integer
Dim iEnd As Integer
iStart = oTable.Cell(2, 1).Range.Paragraphs(1).Range.Start
iEnd = iStart + 3
oDocument.Range(iStart, iEnd).Text = "ABC"

注意：我的代码：

我的代码如果桌子放入文档，将有效。但是，当桌子放置一个形状时，

如何获得形状的一系列桌子范围？

Answer 1

首先将单元格的范围分配到变量，然后使用setRange方法在执行您想要的事情之前调整范围：

以下将更改cell（2，2，2， 1）“ ABC”的第一段：

Dim rng As Range
Set rng = oTable.Cell(2, 1).Range.Paragraphs(1).Range

rng.SetRange rng.Start, rng.Start + 3
rng.Text = "ABC"