none
הצגת שינויים במסמך בטבלה RRS feed

  • שאלה

  • I found this VBA code for displaying tracked changes in a table (a feature I think Microsoft implement themselves)
     
    http://www.pcreview.co.uk/forums/summary-table-track-changes-t3873170.html
     
    Sub ExtractRevisions()
    Dim srcDoc As Document, destDoc As Document
    Dim oRev As Revision
    Dim oTbl As Table
    Dim nRows As Long

    Set srcDoc = ActiveDocument
    Set destDoc = Documents.Add
    destDoc.Sections(1).Headers(wdHeaderFooterPrimary) _
    .Range.Text = "Revisions in " & _
    srcDoc.FullName

    Set oTbl = destDoc.Tables.Add(Range:=destDoc.Range, _
    numrows:=1, numcolumns:=5)
    nRows = 1
    With oTbl
    .Cell(1, 1).Range.Text = "Date & Time"
    .Cell(1, 2).Range.Text = "Page"
    .Cell(1, 3).Range.Text = "Line"
    .Cell(1, 4).Range.Text = "Author"
    .Cell(1, 5).Range.Text = "Item"

    For Each oRev In srcDoc.Revisions
    .Rows.Add
    nRows = nRows + 1
    .Cell(nRows, 1).Range.Text = oRev.Date
    .Cell(nRows, 2).Range.Text = oRev.Range.Information( _
    wdActiveEndAdjustedPageNumber)
    .Cell(nRows, 3).Range.Text = oRev.Range.Information( _
    wdFirstCharacterLineNumber)
    .Cell(nRows, 4).Range.Text = oRev.Author
    .Cell(nRows, 5).Range.Text = oRev.Range.Text
    Next oRev

    .Rows(1).HeadingFormat = True
    End With
    End Sub


     
    Is it possible to change the code so it displays old  vs new text, and shows "comment", "deleted" or "inserted". I was thinking you could choose, say 5 words before and after the change to show the context...

    יום חמישי 30 אוגוסט 2012 11:41

כל התגובות

  • כמובן שזה אפשרי

    אתה יכול להעסיק איש מקצוע שיעשה לך את העבודה ויספק לך קוד מוכן, או ללמוד לפתח לבד. אנחנו נשמח מאוד לעזור לך אם יעלו שאלות ספציפיות בדרך בשלבי הלימוד.



    [Personal Site] [Blog] [Facebook]signature

    יום ראשון 10 נובמבר 2013 16:44
    מנחה דיון