0

我正在从 PowerPoint 创建 Word 文档，在表格中复制幻灯片等。然后我制作了这样的页脚：

Const wdSeekCurrentPageFooter = 10
Const wdFieldEmpty = -1
...
wrdApp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
wrdApp.Selection.TypeText Text:="Column1" & " " & CStr(Date) & " " & "Page "
wrdApp.Selection.Fields.Add Range:=wrdApp.Selection.Range, _
Type:=wdFieldEmpty, Text:="PAGE  ", PreserveFormatting:=True
wrdApp.Selection.TypeText Text:=" of "
wrdApp.Selection.Fields.Add Range:=wrdApp.Selection.Range, _
Type:=wdFieldEmpty, Text:="NUMPAGES  ", PreserveFormatting:=True

所以我在页脚中得到了 3 个信息，但我可以使用标签让它们看起来不错，我想要类似的东西

  • 手动添加页脚，内置，空白（三列）或

  • 页脚，插入 3 个文本，编辑，插入对齐标签

但是我无法使这两种解决方案中的任何一种都可以在 PowerPoint VBA 中使用。

  1. 循环浏览模板时，我看不到“Building Blocks.dotx”

  2. 此代码中断（未找到命名参数）

    wrdApp.Selection.Range.InsertAlignmentTab Alignment:=0,Relative:=0,Leader:=0

我需要在 Offices 2007 2010 和 2013 中工作的解决方案。有什么想法可以做到这一点吗？

4

1 回答 1

1

InsertAlignmentTab 只有2个参数，Alignment 和RelativeTo（不是Relative）

为了让 VBA “看到”参数的名称，您需要对 Word 对象模型进行引用（工具->引用...）。但是由于您针对的是多个版本的 Office，您可能会尝试避免这种情况，在这种情况下，请使用位置参数传递

wrdApp.Selection.Range.InsertAlignmentTab 0, 0

回覆。循环构建积木，我猜你不能保证 Building Blocks.dotx 存在。

于 2013-09-20T09:50:54.820 回答