Allen Wyatt posted this useful macro on WordTips.net quite a while ago. I would like an addition to it that will, after pasting, strip all styles from the tables, including table styles. I would normally use Ctrl+spacebar, Ctrl+Q, and Alt+Ctrl+u.
This would be useful for anyone needing to bring the tables from another document into one in, for instance, a custom template with its own table styles.
I'm sure this is a simple matter for someone who knows VBA, and I thank him or her in advance.
Code:
Sub CopyTables()
Dim Source As Document
Dim Target As Document
Dim tbl As Table
Dim tr As Range
Set Source = ActiveDocument
Set Target = Documents.Add
For Each tbl In Source.Tables
Set tr = Target.Range
tr.Collapse wdCollapseEnd
tr.FormattedText = tbl.Range.FormattedText
tr.Collapse wdCollapseEnd
tr.Text = vbCrLf
Next
End Sub