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

• #1715 Fire/SOUL/CD félisten .mf #1714

  Új Válasz 2013-05-23 22:25:26 #1715

  Ú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 #1714 üzenetére

  igen, ott a doksiban van valami gixer, de hogy azt mi okozta, az passz. Ha a macro-ból kiszedem a dátum összehasonlítást, akkor ugyanúgy működik, mintha a word-ből, a menüből indítottad volna a módosítások véglegesítését. "gyorsan" debuggoltam a macro-t, de nem is találja meg régebbi dátummal azt módosítás.

  Mindegy, azt a pár javítást már kézzel megoldod.

• #1713 Fire/SOUL/CD félisten .mf #1710

  Új Válasz 2013-05-23 18:26:20 #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)
  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 2013-05-23 17:02:00 #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.

• #1709 Fire/SOUL/CD félisten .mf #1704

  Új Válasz 2013-05-23 16:07:24 #1709

  Ú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 #1704 üzenetére

  Tégy egy próbát ezzel (ez kb 760 revíziót fogadott el az általad küldött doksiban, 2013.05.10 dátum előttieket). Szúrópróbaszerűen megnéztem a módosított revíziókat és azok mindegyike valóban korábbi volt, remélem úgy működik, ahogy azt szeretnéd. természetesen másolatot mindig készíts a doksiról, mielőtt futtatnád a makrót.

  Public Sub fscd_accepter()
  
  Dim MyRevision As Revision
  Dim MyStartDate As Date
  Dim AcceptedCount As Long
  
  MyStartDate = "2013.05.10 0:00:00"
  
  AcceptedCount = 0
  
  If IsDate(MyStartDate) Then
  If ActiveDocument.Revisions.Count > 0 Then
  Application.ScreenUpdating = False
  For Each MyRevision In ActiveDocument.Revisions
  If MyRevision.Date < MyStartDate Then
  MyRevision.Accept
  AcceptedCount = AcceptedCount + 1
  End If
  Next MyRevision
  Application.ScreenUpdating = True
  MsgBox (MyStartDate & " dátumot megelőzően " & AcceptedCount & " revizió került elfogadásra.")
  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

• #1706 Fire/SOUL/CD félisten .mf #1704

  Új Válasz 2013-05-23 08:14:21 #1706

  Ú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 #1704 üzenetére

  Ha nincs semmi akadálya(személyes adatok vannak a doksikban stb), akkor töltsd fel egy fájlmegosztóra az egyik problémás doksit vagy küld el az email címemre (amit akkor adok meg ha nem gond, hogy elküld)

• #1705 localhost Közösségépítő .mf #1704

  Új Válasz 2013-05-23 07:57:33 #1705

  Ú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 #1704 üzenetére

  localhost passzol ... és viszontüdvözöl.

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