Auto-Increment Counter Footer Time in Word Document Saved as PDF Using VBA

Title: Auto-Increment Counter Footer Time in Word Document Saved as PDF Using VBA

In this article, we will discuss how to auto-increment a counter in the footer of a Microsoft Word document and save the document as a PDF with the incremented counter in the footer. We will use VBA (Visual Basic for Applications) automation to achieve this.

Prerequisites

1. Microsoft Word application installed on your computer.
2. Basic understanding of VBA programming.

Steps to Auto-Increment Counter Footer Time in Word Document Saved as PDF

Step 1: Create a User-Defined Function

First, we will create a user-defined function to get the current date and time in a readable format.

1. Open Microsoft Word, and press Alt + F11 to open the VBA editor.
2. In the VBA editor, go to Insert > Module.
3. Paste the following code:

Function GetDateTime() As String
    Dim dt As Date
    dt = Now
    GetDateTime = Format(dt, "dd-MMM-yy hh:mm:ss")
End Function

Step 2: Modify the Document Footer

Next, we will modify the document footer to display the auto-incremented counter and the current date and time.

1. Go back to the Word document, and navigate to the footer section.
2. Replace the existing text in the footer with the following code:

& "[GetDateTime]" & " Page & [Page]"

Step 3: Create a Macro to Save the Document as PDF

Finally, we will create a macro to save the document as a PDF with the auto-incremented counter in the footer.

1. In the VBA editor, go to Insert > Module.
2. Paste the following code:

Sub SaveAsPDFWithCounter()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdPDF As Object
    Dim Counter As Long

    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Open("YourDocument.docx")

    Counter = wdDoc.Footers(wdLastFooter).Range.Find.Execute FindText:="Counter", Forward:=True, Wrap:=wdFindContinue
    If Not Counter Is Nothing Then
        Counter.Text = Counter.Text + 1
    Else
        wdDoc.Footers(wdLastFooter).Range.Text = "Counter: 1"
    End If

    Set wdPDF = wdApp.ActiveDocument.ExportAsFixedFormat(wdExportFormatPDF, wdPDFOptionsDefault, wdExportOptimizeForPrint, wdExportOptimizeForWeb, wdExportTagAsMetadata, wdExportCreateBookmarks, wdExportDoNotOptimizeFontSubstitution, wdExportAddHiddenTextAsBookmarks, wdExportAddHyperlinks, wdExportAddPictures, wdExportAddTextOnly, wdExportAddWebFonts, wdExportTagAsCustomXml)
    wdPDF.Close SaveChanges:=False

    wdDoc.Close SaveChanges:=False
    wdApp.Quit

    Set wdPDF = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

Replace YourDocument.docx with the path to your Word document.

Step 4: Run the Macro

1. Go back to the Word document, and press Alt + F8 to open the Macro dialog box.
2. Select the SaveAsPDFWithCounter macro and click Run.
3. The document will be saved as a PDF with the auto-incremented counter and the current date and time in the footer.

References

1. Microsoft Support: How to run a macro in Microsoft Word
2. Microsoft Documentation: Export a Word document as a PDF
3. MSDN: Find method (Word)
4. W3Schools: VBA - Date and Time Functions
5. MSDN: Word Object Model Reference