Thema Datum  Von Nutzer Rating
Antwort
20.01.2023 20:31:42 derhammer
NotSolved
Blau Aktuellen Absatz markieren und erste Tabelle zusätzlich markieren
10.09.2023 16:06:49 Ben
Solved

Ansicht des Beitrags:
Von:
Ben
Datum:
10.09.2023 16:06:49
Views:
455
Rating: Antwort:
 Nein
Thema:
Aktuellen Absatz markieren und erste Tabelle zusätzlich markieren

Hallo,

entspricht das in etwa den Vorstellungen?

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub selectTest()
    Dim rngPar As Range
    Dim rngTab As Range
    Dim rng As Range
    Set rngPar = Selection.Paragraphs(1).Range
    Set rngTab = ActiveDocument.Tables(1).Range
     
    Set rng = ActiveDocument.Range( _
                Start:=IIf(rngPar.Start < rngTab.Start, rngPar.Start, rngTab.Start) _
                , End:=IIf(rngPar.End > rngTab.End, rngPar.End, rngTab.End) _
            )
    rng.Select
End Sub

Dieser Befehl setzt voraus, dass sich die Markierung in einem Absatz befindet.

Zur Info: Anders als in Excel kann in Word nur ein zusammenhängender Bereich markiert werden.


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
20.01.2023 20:31:42 derhammer
NotSolved
Blau Aktuellen Absatz markieren und erste Tabelle zusätzlich markieren
10.09.2023 16:06:49 Ben
Solved