shasso

Sub ExportPagesToTextFilesUTF8()
    Dim pubDoc As Document
    Dim page As page
    Dim outputFolder As String
    Dim pageText As String
    Dim filePath As String
    Dim pageIndex As Integer
    Dim startPageNumber As String
    Dim currentPageNumber As Integer
    Dim stream As Object ' ADODB.Stream