2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Word topic
Keresés

Új hozzászólás Aktív témák

  • #1713 Fire/SOUL/CD félisten .mf #1710
    Új Válasz #1713
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fire/SOUL/CD

    félisten

    válasz .mf #1710 üzenetére

    Hát azt nem írtad, hogy a beszúrt/törölt módosítások is elfogadásra kerüljenek (beszúrásokat véglegesíti, törlésre jelölteket meg törli értelemszerűen) :B
    Ehhez egy kicsit kell csak bővíteni a kódon, teszteld, remélem így még egy lépéssel egyszerűsödik az utólagos munkád. (itt jegyzem meg, hogy a makró továbbra sem fog "dolgozni" az élőfej/élőlábban és bizonyos objektumokon belül, pl szövegdoboz stb stb, ez továbbra is kézi beavatkozást fog igényelni, de számos egyéb módosítást elvégez)

    Public Sub fscd_accepter()

    Dim MyRevision As Revision
    Dim MyStartDate As Date
    Dim MyRevisionRange As Range

    MyStartDate = "2013.05.10 0:00:00"

    If IsDate(MyStartDate) Then
    If ActiveDocument.Revisions.Count > 0 Then
    ActiveDocument.TrackRevisions = False
    Application.ScreenUpdating = False
    For Each MyRevision In ActiveDocument.Revisions
    If MyRevision.Date < MyStartDate Then
    If MyRevision.Type = wdRevisionDelete Or MyRevision.Type = wdRevisionInsert Then
    Set MyRevisionRange = MyRevision.Range
    End If
    MyRevision.Accept
    End If
    Next MyRevision
    Application.ScreenUpdating = True
    ActiveDocument.TrackRevisions = True
    MsgBox ("Művelet kész.")
    Else
    MsgBox ("Nem található egyetlen revízió sem.")
    End If
    Else
    MsgBox ("A megadott dátum formátuma nem értelmezhető!" & vbCrLf & "A program módosítások nélkül kilép.")
    End If

    End Sub

  • #1711 localhost Közösségépítő .mf #1710
    Új Válasz #1711
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    localhost

    Közösségépítő

    válasz .mf #1710 üzenetére

    Tapasztalat, nem megoldás!
    Volt már arra példa, hogy a legpofonegyszerűbb megoldás vezetett csak eredményre (w2003-nál).
    Teljes dokumentum kijelölése / Copy / Űj dokumentum megnyitása / beillesztés.
    Más esetekben a word térdrerogyott.... így meg jó lett.

Új hozzászólás Aktív témák