使用变量复制粘贴表
伊本·阿希克（Ibn e Ashiq）
我想将表存储在变量中，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
示例在表格图片中：
@ken这是复制/粘贴表的简单代码，没有 variable
Selection.Tables(1).Select
Selection.COPY
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.PasteAndFormat (wdPasteDefault)
辛迪大师
无法将表存储在变量中。可以使用变量来引用表，以便您始终可以引用它。
此代码示例演示了在引用表之前还是之后插入新表都无关紧要。如果它是文档中的第一个表，并且已被复制到文档的开头，则仍可以将其复制到文档的末尾（或其他位置）。
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表示加书签的Range内的表数。）
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
使用变量复制粘贴表
- 2
使用下拉列表从表中复制粘贴值。
- 3
使用水豚复制粘贴吗？
- 4
复制粘贴列使用范围
- 5
在Excel中使用VBA复制粘贴
- 6
从Excel复制粘贴
- 7
Excel：如何使用复制粘贴命令到选定的工作表区域 (VBA)
- 8
跨工作表xlwings复制粘贴范围时出错
- 9
跨工作表xlwings复制粘贴范围时出错
- 10
使用“偏移”时如何加快“复制粘贴”值
- 11
如何使用Python批处理复制粘贴图像
- 12
使用普通复制粘贴免费替换cmd / powershell
- 13
使用对象在Excel上复制粘贴时出错
- 14
比较两列并使用vba复制粘贴
- 15
逐字复制粘贴公式
- 16
骨干-复制粘贴网址
- 17
在zsh中复制粘贴
- 18
根据日期复制粘贴
- 19
Excel VBA复制粘贴
- 20
复制粘贴范围的宏
- 21
VBA 复制粘贴数据
- 22
复制粘贴到终端？
- 23
VBA 复制粘贴循环
- 24
将工作表 1 中的列复制粘贴到工作表 2，但需要串联
- 25
一次定义几个变量（在shell中执行复制粘贴执行）
- 26
复制粘贴效率和VBA中的一系列工作表
- 27
HTML表复制粘贴数据到不带1000s分隔符的Excel
- 28
拖放和复制粘贴对FAT32文件表的影响
- 29
复制粘贴效率和VBA中的一系列工作表
我来说两句