在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中的表格，您必须访问标题所在的Section。在您的情况下，该表位于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

希望这能让你开始。