Thema Datum  Von Nutzer Rating
Antwort
Rot Suche stoppen am ersten gefundenen Element
 25.11.2012 14:10:41 Marina
NotSolved
26.11.2012 12:25:09 Dekor
NotSolved
01.12.2012 10:24:46 Gast76909
NotSolved

Ansicht des Beitrags:
Von:
Marina		 Datum:
25.11.2012 14:10:41		 Views:
1463		 Rating:
     
Antwort:
  Ja
Thema:
Suche stoppen am ersten gefundenen Element

Hallo,

ein Dokument mit durchnummerierten Absätzen.
Die Nummerirung fängt in jedem Abschnitt neu an,:Absatz nummer 8. ist zwei oder mehrere Male im Dokument.

Hilfe gebraucht bei einer Suchfunktion, die nach Absatznummern sucht und die Absätze selektiert.
Diese soll beim ersten gefundenen Absatz, diesen selektieren und nachfragen ob man den nächsten finden möchte.

Hier der Code. [ Fehler ist im Select Case Bereich.]

___________________________

Sub FindPara()
Dim para As String

para = InputBox("Type the number of the paragraph or heading you are looking for:")

    If Right(para, 1) = "." Then
    para = para
    Else: para = para & "."
    End If



For i = 1 To ActiveDocument.ListParagraphs.Count

Select Case ActiveDocument.ListParagraphs(i).Range.ListFormat.ListString
Case Is = para
        ActiveDocument.ListParagraphs(i).SelectNumber
       
Case Else
'Do Nothing

End Select

Next i

___________________________

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 Suche stoppen am ersten gefundenen Element
 25.11.2012 14:10:41 Marina
NotSolved
26.11.2012 12:25:09 Dekor
NotSolved
01.12.2012 10:24:46 Gast76909
NotSolved