格式的Excel VBA addWatermarkFromText

Question

我已經能夠綜合各種PDF文件，然後在VBA代碼添加水印（頁碼和頁腳）的每一頁，這是一些代碼，我發現是工作的罰款：

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：=左」 或 「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