07-29-2010, 10:24 AM
with tables...
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
End Sub
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
Selection.MoveRight Unit:=wdCell
Selection.Paste
End Sub
