Can QTP compare two MS word documents

[Yogini]

Hi,

Can QTP compare two word documents and report back the changes

Thanks,
Yogini

[krishnas.tester]

Hi,

I think its possible, we can compare documents line by line.

Regards
KrishDeep

[qtpdeepak]

Find the below code to Comapare Two word documents.

Code:

F_Path_1="D:\Compare\Document1.rtf"
F_Path_2="D:\Compare\Document2.rtf"

Public Function CompareFiles (F_Path_1, F_Path_2)

Dim FS, first_file, second_file
Set FS = CreateObject("Scripting.FileSystemObject")

  'Function will simply exit if the size of both files being
' compared is not equal

If FS.GetFile(F_Path_1).Size <> FS.GetFile(F_Path_2).Size Then
CompareFiles = True
Exit Function
End If

  'OpenAsTextStream Method: Opens a specified file and returns
'a TextStream object that can be used to read from, write to,
'or append to the file.

Set first_file = FS.GetFile(F_Path_1).OpenAsTextStream(1, 0)
Set second_file = FS.GetFile(F_Path_2).OpenAsTextStream(1, 0)

CompareFiles = False

  'AtEndOfStream Property: Read-only property that returns True
'if the file pointer is at the end of a TextStream file; False
'if it is not.

  Do While first_file.AtEndOfStream = False
      
  'The Read method reads a specified number of characters from
'a TextStream file

Str1 = first_file.Read(1000)
Str2 = second_file.Read(1000)

  'The StrComp function compares two strings and returns 0 if
'the strings are equal

CompareFiles = StrComp(Str1, Str2, 0)
  If CompareFiles <> 0 Then
   CompareFiles = True
   Exit Do
  End If
Loop

first_file.Close()
second_file.Close()
End Function

File1 =inputbox ("Enter first file nam")
File2 = inputbox ("Enter second file name")

If CompareFiles(File1, File2) = False Then
MsgBox File1 & " and " & File2 & " " &  "are identical."
Else
MsgBox File1 & " and " & File2 & " " &  "are NOT identical."
End If

Regards,

[ttguy]

I don't like the straight file compare method published here. I developed a method that uses Word built in compare revisions functionality. And this has the nice feature that you can get the system to save a word document that shows the differences between the two documents with markup that shows the differences.

The following code can be placed inside a Word document and then you can call the function from another place.
Thus, this is writen in VBA rather than VB script

Code:

Public Function CompareDocument(FileNameDoc1 As String, FileNameDoc2 As String, Optional blnIgnoreDateDiffs As Boolean = False, Optional ByRef pstrErrText As String) As Integer
Dim origDoc As Document, intDiffs As Integer, strFileNameDiffs As String, lngDiff As Long, intRevisionType As Integer, strRevisionType As String, strRevisionText As String
Dim intPrevRevisionType As Integer, strPrevRevisonText As String, lngRevisionStartPos As Long, lngPrevRevisionStartPos As Long
Dim lngRevisionEndPos As Long, lngPrevRevisionEndPos As Long, strPotentialDate As String
Dim intPosNextPara As Integer, intTextBoxDifs As Integer, strErrText As String
Dim intRealDiffCount As Integer, intDateOnlyDifference As Integer, intDeletionAndInsertOfSameTextDiffCount As Integer


    Documents.Open FileName:=FileNameDoc2, _
        ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
         Revert:=False, Format:=wdOpenFormatAuto
    Set origDoc = ActiveDocument ' save a pointer to our original doc
        ActiveDocument.Compare Name:=FileNameDoc1, DetectFormatChanges:=False, CompareTarget:=wdCompareTargetNew, _
                                IgnoreAllComparisonWarnings:=True, AddToRecentFiles:=False
    ' ActiveDocument becomes the result of merging/comparing the two documents
    
    'MsgBox ActiveDocument.Name & " - revision count : " & CStr(ActiveDocument.Revisions.Count)
    intDiffs = ActiveDocument.Revisions.Count ' number of differences word reckons there are

    If intDiffs = 0 Then
        intRealDiffCount = 0
        ActiveDocument.Close (False)  ' Close and dont save to document that resulted from the Compare

    Else ' word thinks there are some differences. Find cases where we have deleted text and inserted text straight after
         ' For such cases check if the difference is a change in date and keep score of how many differences are due to this change
         ' Also compare the apparently deleted and insertion texts are the same and count such cases
        For lngDiff = 1 To intDiffs
               intPrevRevisionType = intRevisionType
               strPrevRevisonText = strRevisionText
               lngPrevRevisionStartPos = lngRevisionStartPos
               lngPrevRevisionEndPos = lngRevisionEndPos
               strRevisionText = ActiveDocument.Revisions(lngDiff).Range.Text
               lngRevisionStartPos = ActiveDocument.Revisions(lngDiff).Range.Start
               lngRevisionEndPos = ActiveDocument.Revisions(lngDiff).Range.End
               intRevisionType = ActiveDocument.Revisions(lngDiff).Type

              
               'MsgBox lngDiff & " " & strRevisionType & " revision text: " & strRevisionText & " start pos " & lngRevisionStartPos & " prev type " & intPrevRevisionType & " prev text " & strPrevRevisonText & " prev end pos " & lngPrevRevisionEndPos
               If intPrevRevisionType = wdRevisionDelete And intRevisionType = wdRevisionInsert And intPrevRevisionType <> 0 And lngPrevRevisionEndPos = lngRevisionStartPos Then
                    ' This if statement determines if there was a deletion of text
                    ' and then an insertion of text right afterwards
                    
                    
                    If strPrevRevisonText = strRevisionText Then
                    ' same text inserted as deleted - count this
                        intDeletionAndInsertOfSameTextDiffCount = intDeletionAndInsertOfSameTextDiffCount + 2 ' to of the observed differences are due to deletion and insertion of the same text
                                             ' we are going to subtract intDeletionAndInsertOfSameTextDiffCount off the total difference count at the end of the process
                                            
                       ' MsgBox lngDiff & "Deleted |" & strPrevRevisonText & "| and apparently inserted the same|"
                    Else ' not the same text inserted as deleted. It might be just a date change - check
                        
                        'MsgBox lngDiff & "Deleted |" & strPrevRevisonText & "| and inserted |" & strRevisionText & "|"
                        
                        ActiveDocument.Revisions(lngDiff).Range.Select
                        Selection.EndOf wdParagraph, wdExtend '' in some situations this selects an entire block of text. I think it does this when the text is a field
                                                               ' However, we use this to find the position of the end of the paragraph.
                        intPosNextPara = Selection.End ' note end of selection
                        'ActiveDocument.Range(lngRevisionStartPos, intPosNextPara - 1).Select ' select from the begining of the revision up to one less than the end of the selection
                        ' Works for "17 May 2006<newParagraph>"
                        ' but this still causes a selection of a whole block of a field
                        ' Field ... 17 May2006<sectionend> -- does not work
                        
                        ' The act of selecting the end of the field causes the beginging of the field to be selected as well
                        ' And we get a lot of text before the revision in question.
                        
                        ' To get around this don't to a .Select but just extract the text from the Range of the lngRevisionStartPos
                        ' and just before the end of the paragraph
                        '
                        strPotentialDate = ActiveDocument.Range(lngRevisionStartPos, intPosNextPara - 1).Text
    
                        
                         If isDate(strPotentialDate) Then
                            'blnDeletionAndThenInsertionOnDateField = True
                            intDateOnlyDifference = intDateOnlyDifference + 2 ' two differences are due to dates only

                          Else
                           ' Not a date only difference - the insertion and deletion text is different. This is thus a
                           ' genuine difference. Thus don't increment the intDateOnlyDifference or the intDeletionAndInsertOfSameTextDiffCount

                          End If
                    End If
                    
               Else ' revisions are not a deletion then an insertion straight after
                 ' This is thus a
                ' genuine difference. Thus don't increment the intDateOnlyDifference or the intDeletionAndInsertOfSameTextDiffCount
               End If
              
              
        Next 'Next  revision
        intRealDiffCount = intDiffs - intDeletionAndInsertOfSameTextDiffCount ' substract away the pseudo differences where the same text was inserted as deleted
        If blnIgnoreDateDiffs Then
  
            'MsgBox "ignore date diffs"

            intRealDiffCount = intRealDiffCount - intDateOnlyDifference  ' if we are running with  blnIgnoreDateDiffs = TRUE
                                             ' then we are only interested non- date differences
            
            
        End If 'blnIgnoreDateDiffs
                    ' MsgBox origDoc.Path & "\" & Left(origDoc.Name, Len(origDoc.Name) - 4) & "_diff.doc"
        strFileNameDiffs = origDoc.Path & "\" & Left(origDoc.Name, Len(origDoc.Name) - 4) & "_diff.doc"
            
        ActiveDocument.SaveAs FileName:=strFileNameDiffs, AddToRecentFiles:=False
        ' Save the differences document if Word has it flagged that there are differences
        ' save a differences document even if we think the differences are only Date differences
        ' or if there are apparenly insertion of same text difference. so we can double check
        ActiveDocument.Close (False)
    End If ' word thinks there are some differences.
    intTextBoxDifs = CompareTextBoxes(FileNameDoc1, FileNameDoc2, pstrErrText)
    origDoc.Close (False)  ' Close and dont save FileNameDoc1
    intRealDiffCount = intRealDiffCount + intTextBoxDifs
     CompareDocument = intRealDiffCount
End Function

[Saket]

Yes, I also liked the Word built in feature to compare documents. You will find this in third part of the ongoing series
Automating Word Documents
here is the simple peice of code to compare two documents -

Code:

Doc1= "c:\Test1.docx"
Doc2= "c:\Test2.docx"
    set oWord = createobject("Word.Application")
     oWord.Visible =true
     set oCompared = oWord.Documents.Open(Doc2)
    oCompared.Compare(Doc1)
    oCompared.Close

[ttguy]

Where is part 3 of Automating word docs? Your link takes me to part 1. And that brings me to this thread.
https://www.learnqtp.com/automating-word...nts-part-3 does not exist. So I can't find part 3

[Saket]

this is an on-going series, third part will be available soon.