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" 



© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrev