Thema Datum  Von Nutzer Rating
Antwort
13.06.2015 14:13:03 Mword2015
NotSolved
Blau Textmarken automatisch Setzen
 14.06.2015 11:58:54 Gast60643
NotSolved
14.06.2015 14:04:51 Mword2015
NotSolved
14.06.2015 20:01:28 Gast24067
NotSolved
14.06.2015 20:05:10 Gast21771
NotSolved
14.06.2015 21:38:33 Mword2015
NotSolved
15.06.2015 10:57:26 Mword2015
NotSolved

Ansicht des Beitrags:
Von:
Gast60643		 Datum:
14.06.2015 11:58:54		 Views:
880		 Rating:
     
Antwort:
  Ja
Thema:
Textmarken automatisch Setzen

Die Textmarken sollen dann z.b.  "13" "13a" "14" lauten.

Das sind ungültige Bezeichner für Textmarken. Eine Textmarke muss mit einem Buchstaben anfangen.

Darum erzeugt das folgende Makro: "R13" "R13a" "R14"

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Sub Bsp()
   
  Dim rngCurrent As Word.Range
  Dim objWord As Word.Range
   
  Set rngCurrent = ThisDocument.Range
   
  With rngCurrent
     
    '>> Suche definieren
    With .Find
      .ClearFormatting
      .Forward = True
      .Font.Bold = True
      .Text = "R"
    End With
    '<<
     
    'suchen...
    Call .Find.Execute
    Do While .Find.Found
       
      Call .Expand(WdUnits.wdSentence) 'auf ganzen Satz erweitern
      If .Words.Count >= 2 Then
        Set objWord = .Words(2)
        Call objWord.MoveEndWhile(" ", wdBackward)
        'auf Satzanfang (zurück)setzen..
        Call .Collapse
        '..und dort die Textmarke erstellen
        Call rngCurrent.Document.Bookmarks.Add("R" & objWord.Text, rngCurrent)
      End If
       
      'nach diesem Fund: weitersuchen...
      Call .Move(WdUnits.wdSentence)
      Call .Find.Execute
    Loop
     
  End With
   
End Sub

 

Gruß

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
13.06.2015 14:13:03 Mword2015
NotSolved
Blau Textmarken automatisch Setzen
 14.06.2015 11:58:54 Gast60643
NotSolved
14.06.2015 14:04:51 Mword2015
NotSolved
14.06.2015 20:01:28 Gast24067
NotSolved
14.06.2015 20:05:10 Gast21771
NotSolved
14.06.2015 21:38:33 Mword2015
NotSolved
15.06.2015 10:57:26 Mword2015
NotSolved