How to split the selected Table by every single Row by VBA. Many Thanks!
Original
Sample question .docxSample question.jpg
Final outcome as below
Sample (Final Outcome).docxSample question (final1).jpg
How to split the selected Table by every single Row by VBA. Many Thanks!
Original
Sample question .docxSample question.jpg
Final outcome as below
Sample (Final Outcome).docxSample question (final1).jpg
That's simple enough
Sub Split() Dim oTable As Table Dim lRow As Long Set oTable = Selection.Tables(1) For lRow = oTable.Rows.Count To 1 Step -1 oTable.Rows(lRow).Select Selection.SplitTable Next lRow Set oTable = Nothing End Sub
Graham Mayor - MS MVP (Word) 2002-2019
Visit my web site for more programming tips and ready made processes
http://www.gmayor.com