如何用 vba 填充 table 单元格到最后？

Question

如果我尝试更改它，它的大小太有限

ActiveDocument.Tables(2).Cell(3, 2).Range = text + " " + String(200,".")

Answer 1

例如：

Sub Demo()
Const Txt As String = "abcdefghijklmnopqrstuvwxyz"
With ActiveDocument.Tables(2).Cell(3, 2)
  .Range.Text = Txt + " " + String(200, ".")
  .Range.FitTextWidth = .Width
End With
End Sub

如何用 vba 填充 table 单元格到最后？

How to fill a table cell to the end with vba?

vba

ms-word