vba - 在 MS Word 2007 中传输特定表格内容的宏

Question

我有大约 50 个旧格式的 word 文档，我需要将其转换为新格式。我正在考虑使用新格式模板并使用宏将所需的编号字段从旧格式复制到新格式中，最后保存这个新文档。

我以旧格式对字段进行了编号，从 1 到 6，其中一些字段位于标题中。我需要序列不同的新格式的这些字段。

我是宏的绝对初学者，需要明天提交，所以非常感谢任何帮助或紧急建议。

Word文档下载链接如下：

旧格式：http ://www.scribd.com/R0cKyMan/d/90470134-Old-Format

新格式：http ://www.scribd.com/R0cKyMan/d/90473107-New-Format

Answer 1

所以你能帮我复制标题字段吗？谢谢 – R0cKy 3 分钟前

---

Header必须以不同的方式访问表中的表。

当表格在正文中时，您可以像这样使用它

ActiveDocument.Tables(1).Cell(1, 1).Select
Selection.Copy

但是要访问其中的表，Header您必须访问SectionHeader 所在的表。在你的情况下，桌子在wdHeaderFooterPrimary

试试这个

Option Explicit

Sub Sample()
    '~~> Copies the 2nd Cell in the first row of a table which is in the Header
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Select
    Selection.Copy

    '~~> Pastes it in say 1st cell in Row 1 of a table which is in the body
    ActiveDocument.Tables(1).Cell(2, 3).Select
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

希望这能让你开始。