Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #4  
Old 02-16-2021, 10:56 PM
macropod's Avatar
macropod macropod is offline Need help, get error message when place tbl.... Windows 10 Need help, get error message when place tbl.... Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

That's just a matter of transposing the process:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim Rng As Range, r As Long, c As Long
With ActiveDocument.Tables(1)
  If .Columns.Count * .Rows.Count > 63 Then
    MsgBox "Too many cells - 63 is the maximum supported", vbCritical
    Exit Sub
  End If
  For c = .Columns.Count To 1 Step -1
    For r = .Rows.Count To 2 Step -1
      If c = .Columns.Count Then
        .Columns.Add
      Else
        .Columns.Add .Columns(c + 1)
      End If
      Set Rng = .Cell(r, c).Range
      Rng.End = Rng.End - 1
      .Cell(1, c + 1).Range.FormattedText = Rng.FormattedText
    Next
  Next
  For r = .Rows.Count To 2 Step -1
    .Rows(r).Delete
  Next
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
 

Tags
error message, pasteandformat table



Similar Threads
Thread Thread Starter Forum Replies Last Post
Word Error Message Run time Error 4605 baes10 Word VBA 1 08-30-2018 02:37 PM
Error Message PointCheck Word VBA 1 08-13-2018 02:42 PM
No known fix for this error message... Aymincendiary PowerPoint 1 09-03-2017 05:38 PM
Need help, get error message when place tbl.... Reserved error(-1517); there is no message for this error ktest Office 1 02-12-2016 08:08 PM
Need help, get error message when place tbl.... Automation error Unknown error" message once they open the Excel file hlina Excel 1 10-08-2013 09:14 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:49 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft