javascript - Excel VBA addWatermarkFromText 的格式

Question

我有一个 VBA 代码，可以合并各种 PDF 文件，然后向每个页面添加水印(页码和页脚)，这是我找到的一些代码，并且工作正常:

Set jso = PartDocs(0).GetJSObject

    For q = 2 To n

        jso.addWatermarkFromText _
            cText:=Str(q) & "  ", _
            nFontSize:=10, _
            nStart:=q - 1, _
            nEnd:=q - 1
    Next q

        Set jso = Nothing

我查阅了 JavaScript API 引用，其中显示了如何格式化水印，以便使用各种参数。在这种情况下，我想使用“nHorizAlign”。然而，我在弄清楚如何在 VBA 代码中格式化它时遇到了一些麻烦。我需要做的就是保留已有的参数，但添加“nHorizAlign”，以便文本字符串位于页面的左侧。

Javascript 版本如下:

    this.addWatermarkFromText({
      cText: "Example",
      nTextAlign: app.constants.align.left,
      nHorizAlign: app.constants.align.left,
      nVertAlign: app.constants.align.top,
      nHorizValue: -72, nVertValue: -72
    });

当我使用“nHorizAlign:=Left”或“nHorizAlign:=(some number)”时，它不起作用。

非常感谢您的帮助。

Answer 1

以下代码将 cText 水平对齐到左侧:

Set jso = PartDocs(0).GetJSObject

    For q = 2 To n

        jso.addWatermarkFromText _
            cText:=Str(q) & "  ", _
            nFontSize:=10, _
            nHorizAlign:=0, _
            nVertAlign:=4, _
            nStart:=q - 1, _
            nEnd:=q - 1
    Next q

        Set jso = Nothing