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

Question

If I try to change it, its size is too limited

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

Answer 1

For example:

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