I have a VBA code which consolidates various PDF files and then adds a watermark (page number and footer) to each page, which is some code I found and is working fine:
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
I have looked up the JavaScript API reference which shows how to format the watermark, in order to get use out of the various parameters. In this case, I want to use "nHorizAlign". However, I am having a bit of trouble figuring out how to format this in VBA code. All I need to do is keep the parameters I already have, but add "nHorizAlign" so that the text string will be on the left side of the page.
The Javascript version would be as follows:
this.addWatermarkFromText({
cText: "Example",
nTextAlign: app.constants.align.left,
nHorizAlign: app.constants.align.left,
nVertAlign: app.constants.align.top,
nHorizValue: -72, nVertValue: -72
});
When I used "nHorizAlign:=Left" or "nHorizAlign:=(some number)" it does not work.
Assistance is much appreciated.
The following code aligns the cText horizontally on the left:
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