Как напечатать номера страниц, которые изменились после сравнения слов документов - PullRequest
Новая
       11

Как напечатать номера страниц, которые изменились после сравнения слов документов

0 голосов
/ 13 декабря 2018

Как напечатать номера страниц, которые изменились после сравнения слов документов.Я написал следующий код, чтобы найти различия, используя скрипт vb.Пожалуйста, помогите определить и напечатать номера страниц. 

    > Declaring FSO
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.DeleteFile("C:\Users\amunaga\Desktop\POC doc comparision\POC\DocumentsWithChanges\*.docx")

    'Getting absolute path
        Dim objFSO
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim CurrentDirectory
        CurrentDirectory = objFSO.GetAbsolutePathName(".")

        Set objExcel = createobject("Excel.Application") 
        Set objWorkBook = objExcel.Workbooks.open("C:\Users\amunaga\Desktop\POC doc comparision\POC\Report.xlsx")    
        Set objSheet=  objWorkBook.Worksheets("Sheet1")   
        Set objRange = objSheet.UsedRange
            RowsCount = objRange.Rows.Count      

    For Iterator = 2 To RowsCount

        BaseDocName= objSheet.Cells(Iterator,2).Value  
        NewDocName = objSheet.Cells(Iterator,3).Value    

        strBaseDoc = "C:\Users\amunaga\Desktop\POC doc comparision\POC\BaseDocuments\"&BaseDocName&".docx"
        strNewDoc  = "C:\Users\amunaga\Desktop\POC doc comparision\POC\NewDocuments\"&NewDocName&".docx"    

        fContinue = True

        fContinue = objFSO.FileExists(strBaseDoc)
        fContinue = objFSO.FileExists(strNewDoc)


        If fContinue = False Then
                MsgBox "Invalid File Paths" ,vbExclamation ,"Error"
        Else

                Set objWord = CreateObject("Word.Application")
                Set opnstrBaseDoc=objWord.Documents.Open(strBaseDoc)
                Set opnstrNewDoc=objWord.Documents.Open(strNewDoc)

             > Comparing 2 documents
                Set Dcomp=objWord.Comparedocuments(opnstrBaseDoc,opnstrNewDoc)
                RevCount=Dcomp.Revisions.count


                If RevCount<>0 Then
                    'msgbox RevCount
                    objSheet.Cells(Iterator,4).Value ="There are changes.Please check " &BaseDocName&"_CHANGE.docx file in  'DocumentsWithChanges' folder"
                    objExcel.ActiveWorkbook.Save
                    objWord.ActiveDocument.SaveAs2 ("C:\Users\amunaga\Desktop\POC doc comparision\POC\DocumentsWithChanges\"&BaseDocName&"_CHANGE.docx")                    

                    objWord.Quit SaveChanges
                    Set objWord=Nothing 

                Else
                    objSheet.Cells(Iterator,4).Value ="No changes in the content"   

                    objWord.Quit SaveChanges
                    Set objWord=Nothing

                End If      
        End If
    Next   

    objWorkBook.Close
    objExcel.Quit
    Set objSheet=Nothing                                
    Set objWorkBook=Nothing                               
    Set objExcel=Nothing
    Set objFSO = Nothing

Как распечатать номера страниц, которые изменились после сравнения слов документов.Я написал следующий код, чтобы найти различия, используя скрипт vb.Пожалуйста, помогите определить и напечатать номера страниц.

...