Thema Datum  Von Nutzer Rating
Antwort
31.07.2014 14:08:22 Guido
NotSolved
31.07.2014 14:38:12 Gast40499
NotSolved
31.07.2014 14:57:16 Gast46277
NotSolved
Blau Position eines Lesezeichens in einer Tabelle
31.07.2014 17:46:27 Gast91431
Solved
06.08.2014 16:41:39 Guido
NotSolved

Ansicht des Beitrags:
Von:
Gast91431
Datum:
31.07.2014 17:46:27
Views:
742
Rating: Antwort:
 Nein
Thema:
Position eines Lesezeichens in einer Tabelle

Danke für die Antwort, aber das hilft mir nicht. Ich will die Zeilennummer in der Tabelle haben (oder das Zeilenobjekt). Wenn ich das richtig verstehe, prüft Dein Programm, ob die Tabelle mit dem Lesezeichen die gleiche ist wie die Tabelle, in der der Cursor steht. Das hatte ich aber schon vorausgesetzt

Was verstehst du unter vorrausgesetzt? In deinem Quelltext wurde das finden der richtigen Tabelle nicht umgesetzt. Und genau darum geht es erst mal nur.

Beim Programmieren wird ein Problem immer in Teilprobleme zerlegt und diese dann nach udn nach gelöst. Wenn alle Teilprobleme gelöst wurden, ist das gesamte Problem gelöst.

Du scheinst diesen Schritt (bzw. Schritte) komplett überspringen zu wollen und das läuft gegen den Baum. Eben darum kommst du auch zu keinem Ergebnis.

 

Nachdem man also das Problem mit der richtigen Tabelle gelöst hat, muss man nurnoch das gleiche Spiel wie schon bei der Tabelle mit den Zeilen machen. Ich verstehe nicht so ganz wo hier jetzt das Problem besteht dies selber umzusetzen?

Option Explicit
 
Sub Test()
   
  Dim tbl   As Word.Table
  Dim tblBM As Word.Table
  Dim bm    As Word.Bookmark
   
  If Selection.Information(wdWithInTable) Then
    Set tbl = Selection.Tables(1)
  Else
    Exit Sub
  End If
   
  With Selection.Document
    If .Bookmarks.Exists("Summe") Then
      Set bm = .Bookmarks("Summe")
      With bm.Range.Tables
        If .Count > 0 Then
          Set tblBM = .Item(1)
        Else
          Exit Sub
        End If
      End With
    Else
      Exit Sub
    End If
  End With
  
  Dim Row As Word.Row
  
  If tbl.Range.Start = tblBM.Range.Start _
  And tbl.Range.End = tblBM.Range.End _
  Then
    For Each Row In tblBM.Rows
      If Row.Range.Start <= bm.Start _
      And bm.End <= Row.Range.End _
      Then
      'die gesuchte Zeile, in welcher die Textmarke steht, wurde gefunden
        Exit For
      End If
    Next
  End If
  
  MsgBox "Textmarke steht in Zeile " & Row.Index
  
End Sub

*seufz* Irgendwie ist es immer das gleiche. Jede will hier eine Komplettlösung haben, die er einfach nur kopieren braucht, und ab da an ist alles vergessen. Oftmals kommt nicht mal ein Dankeschön zurück...

 


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
31.07.2014 14:08:22 Guido
NotSolved
31.07.2014 14:38:12 Gast40499
NotSolved
31.07.2014 14:57:16 Gast46277
NotSolved
Blau Position eines Lesezeichens in einer Tabelle
31.07.2014 17:46:27 Gast91431
Solved
06.08.2014 16:41:39 Guido
NotSolved