Adding to a macro

[Ulodesk]

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.

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