[VB] Word documenten vergelijken

[Toink]

Hoi,

Momenteel ben ik bezig een stukje code te maken dat word-documenten vergelijkt. De gebruiker heeft dus een oud en een nieuw document en wil de verschillen zien. Wat ik doe is in een vb-applicatie een word-instantie aanmaken waarin ik de volgend acties doe:

code:

1   Private Sub cmdCompare_Click()
2       
3       
4   
5        On Error Resume Next
6    
7    
8        Set oDoc = New Word.Application
9        oDoc.Documents.Open FileName:="c:\test1.doc"
10
11    
12        With oDoc.ActiveDocument
13            .SaveAs FileName:="c:\test1.doc"
14            .TrackRevisions = True
15            .ShowRevisions = True
16            .PrintRevisions = True
17            .Compare Name:="c:\test2.doc", CompareTarget:=
                            "c:\test3.doc", detectformatchanges:=True
18            .Close wdSaveChanges, wdWordDocument, False
19        End With
20    
21        cmdView.Enabled = True
22    End Sub

Dit lijkt allemaal heel cool te werken, echter het probleem is dat het vergelijk-algoritme VEEL meer fouten maakt dan de word-vergelijker die ik via word aan kan roepen. Het verschil: Bij de ene druk ik handmatig op het vergelijken en samenvoegen knop en bij de andere doe ik 't via code.

Heeft iemand een idee? Doe ik iets fout, heeft iemand een beter plan voor mij of andere suggesties?

[ Voor 43% gewijzigd door Toink op 29-11-2002 11:25 . Reden: /onzinregeltjes verwijderd.... ]