Thema Datum  Von Nutzer Rating
Antwort
Rot performante Code Alternative gesucht
 27.05.2016 22:49:15 samoth
NotSolved
27.05.2016 23:12:30 Gast28897
NotSolved
31.05.2016 13:58:07 Florian
NotSolved

Ansicht des Beitrags:
Von:
samoth		 Datum:
27.05.2016 22:49:15		 Views:
1091		 Rating:
     
Antwort:
  Ja
Thema:
performante Code Alternative gesucht

Hallo Miteinander,

 

Ich bin leider kein VBA Profi - denoch habe ich die Aufgabe erhalten bestehenden Code zu analysieren.

Das Problem lautet dass das selbe Script unter Word 2003 fast 10 mal schneller lief.

 

Das Hauptproblem scheint von folgendem Select Befehl zu kommen

.FormFields(i).Select

 

Kennt jemand eine Möglichkeit folgende Funktionalität ohne diesen Befehl abzubilden

    With ActiveDocument
        For i = .FormFields.Count To 1 Step -1
            Select Case Arr(i)
                Case cAndere
                    'Nix tun, also nicht löschen
                Case cLoesch
                    'Weg mit dem weil es nicht angehakt ist
                    .FormFields(i).Select
                    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
                    Selection.Delete
                Case cLassen
                    'Weg mit der Checkbox und weg mit dem Einzug des Absatzes
                    .FormFields(i).Select
                    .FormFields(i).Delete
                    With Selection
                        .Delete Unit:=wdCharacter, Count:=1
                        .MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
                    
                        With .ParagraphFormat
                            .LeftIndent = CentimetersToPoints(0)
                             .FirstLineIndent = CentimetersToPoints(0)
                        End With
                    End With
                Case Else
                    'Sollte ein Fehler auftreten
                    MsgBox "Constante nicht definiert"
            End Select
        Next i
    End With

 

 

Danke und FG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot performante Code Alternative gesucht
 27.05.2016 22:49:15 samoth
NotSolved
27.05.2016 23:12:30 Gast28897
NotSolved
31.05.2016 13:58:07 Florian
NotSolved