Thema Datum  Von Nutzer Rating
Antwort
18.11.2008 23:56:37 Limi (Nadine)
NotSolved
Blau Aw:automatisches Textmark setzen
 21.11.2008 14:56:57 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
21.11.2008 14:56:57		 Views:
764		 Rating:
     
Antwort:
  Ja
Thema:
Aw:automatisches Textmark setzen
Hallo Limi (Nadine),
deiner Beschreibung gemäß sollen irgendwo im Text ggf. mehrfach „Start“ und „Ende“ stehen, die jeweils Anfang und Ende einer zu erzeugenden Textmarke darstellen. Ich gehe davon aus, dass es zu jedem Start auch ein Ende gibt (das wird nicht geprüft!) und beide Wörter jeweils gelöscht werden sollen. Die Textmarken nenne ich Textmarke1, Textmarke2 usw.

Sub TextmarkenMaker()
n = 1
With Selection
.HomeKey unit:=wdStory
Do
.Find.Execute FindText:="Start", Forward:=True
If .Find.Found = True Then
.Delete
start = .start
End If
.Find.Execute FindText:="Ende", Forward:=True
If .Find.Found = True Then
.Delete
Set a = ActiveDocument.Range(start:=start, End:=.End)
ActiveDocument.Bookmarks.Add Range:=a, Name:="Textmarke" + CStr(n)
n = n + 1
End If
Loop While .Find.Found = True
End With
End Sub

Gruß
Holger



Limi (Nadine) schrieb am 18.11.2008 23:56:37:

Huhu,

Ich würde gerne per VBA-Makros automatisch Bookmarks setzen...
dieses Bookmark sollte ein Startwert(z.B. "Start") von selbst erkennen. Gleiches beim "Ende"

Könnt ihr mir irgendwie helfen ?

Danke im Voraus

Nadine

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
18.11.2008 23:56:37 Limi (Nadine)
NotSolved
Blau Aw:automatisches Textmark setzen
 21.11.2008 14:56:57 Holger
NotSolved