我如何将用户名插入 Microsoft Word 文档的页脚？

我如何将用户名插入 Microsoft Word 文档的页脚？

问：

嗨，Scripting Guy！我如何将用户名插入 Microsoft Word 文档的页脚？

-- RR

答：

您好，RR。这是一个有趣的问题，这可能是我们收到的第一个有关“我如何将用户名插入 Word 文档的页脚”的问题。（不是可能，是千真万确的！）不管怎么说，让我们看看能不能为您找到一种答案吧。再说，这也给了我们一个厚着脸皮宣传即将推出的Scripting Week 2 网络广播系列的机会。在为该周安排的 10 个网络广播中：If You Want Something Done Right, Let Microsoft Office Do It For You（如果您想把事情做好，请让 Microsoft Office 来帮助您）是一个计划介绍如何使用脚本编写 Microsoft Office 应用程序的网络广播。如果您对使用脚本编写 Word、Excel 和/或 PowerPoint 感兴趣，那么这可能需要 90 分钟的时间。

当然，现在您想做的只是将用户名插入 Word 文档的页脚。没问题！实际上，我们将为您提供两种不同的执行此操作的方法。

作为 Microsoft 脚本专家，我们的大部分时间都用在帮助系统管理员编写 VBScript 脚本上。因此，让我们首先为您介绍一种从 .vbs 文件执行此任务的方法。下面这个脚本先确定登录用户的名称，启动 Word 实例，创建新文档，然后设置该登录用户名称的文档页脚文本：

 Set objNetwork = CreateObject("Wscript.Network") strUser = objNetwork.UserNameSet objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add()objDoc.Sections(1).Footers(1).Range.Text = strUser objDoc.Sections(1).Footers(1).Range.ParagraphFormat.Alignment = 1 

什么，您原以为很大、很长、很复杂？实际上，正如这个特定的示例所演示的那样，使用脚本编写 Microsoft Word 相当容易。在此脚本中，前两行代码使用 WSH Network 对象获取登录用户的名称，然后将该名称存储在变量 strUser 中。随后的三行代码创建 Microsoft Word 实例，使该实例在屏幕上显示，然后给我们提供一个可以使用的空白文档。

这时，我们只需要一行代码来设置页脚文本：

 objDoc.Sections(1).Footers(1).Range.Text = strUser 

稍微解释一下，页脚是与文档的特定部分相关联的。因为此文档只有一个部分，所以我们将它指定为“Sections(1)”。“Footers(1)”表示我们要将文本添加给该部分中的主页脚，“Range.Text”说明我们要设置页脚的“文本”属性。当然，strUser 是登录用户的名称。就这些，这就是全部所需要的脚本。

不过，我们最后添加了一行代码，该行代码使页脚在页面上居中显示，这只是为了好玩。这有什么不好呢？

当然，您很有可能不希望从 .vbs 文件执行此方法，而是希望将此代码作为 Word 宏使用。在这种情况下，请使用类似以下代码的宏脚本：

 Sub FooterAdder()Set objNetwork = CreateObject("Wscript.Network") strUser = objNetwork.UserNameThisDocument.Sections(1).Footers(1).Range.Text = strUser ThisDocument.Sections(1).Footers(1).Range.ParagraphFormat.Alignment = 1 End Sub 

这里，我们有一个名为“FooterAdder”的子例程，该子例程获取登录用户的名称并使该名称成为文档页脚。请注意，我们不需要创建 Word 实例；如果您正在运行 Word 宏，我们将假定 Word 已在运行。此外，此代码不创建新文档，它只是将页脚添加到当前文档中。“ThisDocument”所指示的就是页脚。

顺便提一句，我们知道人们对使用脚本编写 Office 应用程序有很大的兴趣，而且这种兴趣在 Scripting Week 2 播出之后很可能有增无减。因此请您在二月份关注“脚本中心”。在该月的某个时间，我们计划推出一个新部分（“Office Space”），专用于讨论 Microsoft Office 方面的脚本编写。同时，请告诉我们您另外还有哪些关于 Office 的问题。从现在起到 Office Space 推出这段时间内，我们将尝试回答我们收到的一些问题。