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：=（某个数字）”时，它不起作用。

非常感谢您的帮助。

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

Answer 2

Set jso = PartDocs(0).GetJSObject

For q = 2 To n

    jso.addWatermarkFromText _
        cText:=Str(q) & "  ", _
        nFontSize:=10, _
        nTextAlign:=jso.app.Constants.Align.Left, _
        nHorizAlign:=jso.app.Constants.Align.Left, _
        nVertAlign:=jso.app.Constants.Align.Top, _
        nStart:=q - 1, _
        nEnd:=q - 1
Next q

    Set jso = Nothing