Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub AddToPDF(ByVal FileLocation As String, ByVal FileDestination As String) Dim filepath As String Dim Filename As String filepath = FileLocation Dim sFileName() As String = Directory.GetFiles(filepath) Dim DocID As String 'FileName = 'FileName = "C:\Testing\STRTILT20001841.pdf" For Each s As String In sFileName Filename = s DocID = Filename.PadRight(4, Filename) App = CreateObject("AcroExch.App") PDDoc = CreateObject("AcroExch.PDDoc") If PDDoc.Open(Filename) Then jso = PDDoc.GetJSObject 'rect(0) = 2 * 72 ' x upper left 'rect(1) = 1 * 72 ' y upper left 'rect(2) = 300 * 72 ' x lower right 'rect(3) = 0.5 * 72 ' y lower right 'rect(0) = 100 ' x lower left 'rect(1) = 100 ' y lower left 'rect(2) = 300 ' x upper right 'rect(3) = 200 ' y upper right rect(0) = 1 * 72 ' x upper left rect(1) = 0.5 * 72 ' y upper left rect(2) = 150 * 72 ' x lower right rect(3) = 0.25 * 72 ' y lower right ' add a form field field = jso.addField("myFormField", "text", 0, rect) field.Value = "Doc ID # " & DocID jso.flattenPages() i = PDDoc.Save(PDSaveIncremental, Filename) End If PDDoc.Close() Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.