我有一張桌子放在字形中。
我想在 Text ="123" 處獲得 Cell(2,1) 中的范圍
我嘗試了這段代碼，但它無法獲得形狀中的表格單元格范圍：
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"
筆記：
如果表格放入檔案中，我的代碼將起作用。但是當桌子放入形狀時不起作用
如何獲得形狀中的表格單元格范圍？
uj5u.com熱心網友回復：
首先將單元格的范圍分配給變數，然后使用SetRange方法調整范圍，然后再執行您想要的操作：
下面將第Cell(2,1)1 段中前 3 個字符的文本更改為“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"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/494348.html
上一篇：如何根據列標題添加單元格值？
下一篇：如何通過VBA添加新記錄