変数を使用してコピー貼り付けテーブル

Question

変数cTableにテーブルを保存し、すべての書式設定が必要なときに貼り付けます。

Sub copytable() 
Dim cTable As TABLE 

    Selection.Tables(1).Select 

    cTable = Selection.Tables ' how do i assign table into variable 

    Selection.MoveDown Unit:=wdLine, Count:=2 

    Selection.Paste cTable ' how it going to be paste exacty the copied table 

End Sub 

例は、テーブル画像である：variable

Selection.Tables(1).Select 
Selection.COPY 
Selection.MoveDown Unit:=wdLine, Count:=2 
Selection.PasteAndFormat (wdPasteDefault) 

Answer 1

それは、テーブルを格納することはできませんせずにこの@ken

は、コピー/ペーストテーブルの簡単なコードである変数にはがあります。変数を使用してテーブルに戻すことができるように、テーブルには参照を使用することは可能です。

このコードサンプルでは、​​参照されるテーブルの前または後に新しいテーブルを挿入するかどうかは関係ありません。ドキュメントの最初のテーブルで、ドキュメントの最初にコピーされている場合でも、ドキュメントの末尾（または他の場所）にコピーすることができます。

Sub ReuseTableReference() 
    Dim doc As word.Document 
    Dim tbl As word.Table 
    Dim rngTableTarget As word.Range 

    Set doc = ActiveDocument 
    Set tbl = doc.Tables(1) 
    Set rngTableTarget = doc.content 

    'Copy the table to the beginning of the document 
    rngTableTarget.Collapse wdCollapseStart 
    rngTableTarget.FormattedText = tbl.Range.FormattedText 

    'Copy the table to the end of the document 
    rngTableTarget.Start = doc.content.End 
    rngTableTarget.FormattedText = tbl.Range.FormattedText 

    'Copy the table to the current selection 
    Selection.FormattedText = tbl.Range.FormattedText 
End Sub 

もちろん、インデックス値のハードコーディングは、しばしば望ましくないことがあります。あなたの代わりに、ブックマークからそれを拾うことができるようにその場合には、テーブルをブックマークすることができます。

Set tbl = doc.Bookmarks("tbl").Range.Tables(1) 

（ここでは、インデックス値1は、ブックマークした範囲内のテーブルの数を指します。）