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

Ansicht des Beitrags:
Von:
Dekor		 Datum:
26.11.2012 12:25:09		 Views:
778		 Rating:
     
Antwort:
  Ja
Thema:
Suche stoppen am ersten gefundenen Element

Hallo Marina,

könnte vielleicht so gehen...

 

Sub FindPara()
   Dim para As String
   Dim LS 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
      LS = ActiveDocument.ListParagraphs(i).Range.ListFormat.ListString
      Select Case LS
         Case LS = para
            ActiveDocument.ListParagraphs(i).SelectNumber
         Case Else
            'Do Nothing
      End Select
   Next
End Sub

 

Gruß Detlev

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