Thema Datum  Von Nutzer Rating
Antwort
21.05.2013 15:24:38 Sam751
NotSolved
Blau Makro gerät in Endlosschleife
 23.05.2013 14:16:41 kim
NotSolved
23.05.2013 14:28:11 Gast81861
NotSolved

Ansicht des Beitrags:
Von:
kim		 Datum:
23.05.2013 14:16:41		 Views:
1612		 Rating:
     
Antwort:
  Ja
Thema:
Makro gerät in Endlosschleife

hallo,

 

insofern ist ein anpassende Objekt z.B., "Überschrift 3" gefunden ist, ist "rng" nicht mehr zu aktualisieren. also, folgende Änderungen kann helfen:

 

...............

Do While .Found = True

    
    'packt die gefundenen texte ins select
    rng.Select
    'Selection.MoveDown Unit:=wdLine, Count:=1
    ueberschrift = rng
    ueberschrift = Left(ueberschrift, Len(ueberschrift) - 1) 'Diese Zeile setzt den Curser an die Stelle, die noch in der Reihe der Überschrift ist. Der Zeilenumbruch steht also hinter dem Curser
      
    'If [cursor rechts davon].Style = "Margin Note" Then
       ' [möglichkeit zur behebung des schleifenfehlers]
          
    'Schreibt den Text in der richtigen Formatierung
    Selection.TypeText Text:=ueberschrift
      
    'Hier muss noch der "C1H Topic Properties" style hinzugefügt werden
    Selection.Style = "C1H Topic Properties"
    Selection.TypeText Text:=" " & "|url=" & dateiname & "." & ueberschrift & ".htm"
    'Selection.MoveUp wdLine, 1
    Selection.MoveDown Unit:=wdLine, Count:=1
    'Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      
    rng.MoveEnd
    .Execute
      
      
      
  Loop
  'MsgBox rng
End With
 
.............
 
 
 

 

 

 

 

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
21.05.2013 15:24:38 Sam751
NotSolved
Blau Makro gerät in Endlosschleife
 23.05.2013 14:16:41 kim
NotSolved
23.05.2013 14:28:11 Gast81861
NotSolved