VBA Code
There is a built in ConvertToTable command ??
If Selection.Information(wdWithInTable) = False Then MsgBox("You are not in a table!")
Returning text from a table cell with no end marker
Set tblTable = ActiveDocument.Tables(1)
For Each clCell in tblTable.Rows(1).Cells
Set rgeRange = ActiveDocument.Range(start := clCell.Range.Start, end := clCell.Range.End - 1)
Call Msgbox(rgeRange.Text)
Next clCell
Adding a formula
Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="#,##0.00"
© 2022 Better Solutions Limited. All Rights Reserved. © 2022 Better Solutions Limited TopPrev