PDF file into individual pages using VBA (Visual Basic for Applications) in Microsoft Excel.

 Sub SplitPDFPages()

    ' Declare variables

    Dim AcrobatApp As Object

    Dim AcrobatDoc As Object

    Dim PDFPath As String

    Dim PDFName As String

    Dim SavePath As String

    Dim i As Integer

    

    ' Set the path to the PDF file

    PDFPath = "C:\example\input.pdf"

    ' Set the save path for the individual PDF pages

    SavePath = "C:\example\"

    ' Get the PDF file name

    PDFName = Dir(PDFPath)

    

    ' Create an instance of Adobe Acrobat

    Set AcrobatApp = CreateObject("AcroExch.App")

    ' Open the PDF file

    Set AcrobatDoc = AcrobatApp.GetActiveDoc(PDFPath)

    

    ' Loop through each page in the PDF file and extract it

    For i = 0 To AcrobatDoc.GetNumPages() - 1

        ' Extract the current page

        AcrobatDoc.SaveAs SavePath & "Page " & i + 1 & ".pdf", "com.adobe.acrobat.pdf"

        AcrobatDoc.GoToNextPage

    Next i

    

    ' Close the PDF file and exit Adobe Acrobat

    AcrobatDoc.Close

    AcrobatApp.Exit

End Sub


Comments

Post a Comment

Popular posts from this blog

how to work step-down transformer

step-down transformer is a device that reduces the voltage of an alternating current (AC) power supply. It is the opposite of a step-up transformer, which increases voltage. Step-down transformers are commonly used in various applications to safely provide lower voltage levels for specific devices or systems. Here's how a step-down transformer works: 1. Determine the input and output voltages: Identify the voltage level you have as the input (high voltage) and the voltage level you want to achieve as the output (low voltage). 2. Determine the transformer specifications: Find a step-down transformer that matches your desired input and output voltages. Consider factors such as power rating, current capacity, and physical size to ensure it meets your requirements. 3. Connect the transformer: Ensure the transformer is disconnected from the power source before making any connections. Typically, transformers have labeled terminals for the primary (input) and secondary (output) windings. ...
Read more

Python project to exe

 You can convert a Python project into an executable file (`.exe`) by using a third-party library called PyInstaller. PyInstaller can bundle a Python application and all its dependencies into a single executable file that can be run on any Windows machine without requiring any Python installation. Here are the general steps to convert a Python project to an exe file using PyInstaller: 1. Install PyInstaller by running `pip install pyinstaller` in your command prompt or terminal. 2. Navigate to the directory that contains your Python project using the `cd` command. 3. Run the following command to create a `.spec` file for your project:     ```    pyinstaller --name=<name_of_executable> --onefile <path_to_main_script>    ```    Replace `<name_of_executable>` with the name you want for your executable file and `<path_to_main_script>` with the path to your Python script that runs your application. 4. Open the generate...
Read more

Excel formula Sum/Max/Min

 Excel formulas available for various purposes. Here are a few commonly used formulas along with examples: 1. SUM: Calculates the sum of a range of cells. Example:  If you have a list of numbers in cells A1 to A5 (e.g., 5, 10, 15, 20, 25), you can use the SUM formula to calculate their sum. In an empty cell, enter "=SUM(A1:A5)" (without quotes), and press Enter. The result will be the sum of the numbers, which in this case is 75. 2. AVERAGE: Calculates the average of a range of cells. Example:  Suppose you have a range of numbers in cells A1 to A5 (e.g., 10, 20, 30, 40, 50). To find their average, enter "=AVERAGE(A1:A5)" (without quotes) in an empty cell, and press Enter. The result will be the average of the numbers, which is 30 in this case. 3. MAX: Returns the highest value in a range of cells. Example:  If you have a list of numbers in cells A1 to A5 (e.g., 5, 10, 15, 20, 25), you can use the MAX formula to find the highest value. Enter "=MAX(A1:A5)" (...
Read more