Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Text zwischen zwei Bookmarks in Variable speichern
zurück: "Alles ersetzten"-Funktion ersetzt nicht alles weiter: Commandbar mit Button 'AnzeigenSignaturen' erstellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
BuffaloBill
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. März 2010, 10:36
Rufname:

Text zwischen zwei Bookmarks in Variable speichern - Text zwischen zwei Bookmarks in Variable speichern

Nach oben
       Version: Office 2003

Hallo Zusammen
Ich weis ich hab das schon mal gemacht - aber es ist ein ziemlich kopmlizierter Befehl. Ich möchte Text, der zwischen zwei Bookmarks steht in eine Variable speichern - ich versuche

Zitat:
client = ActiveDocument.Range(Start:=ActiveDokument.Bookmarks("GOclient").Range.Start, _
End:=ActiveDokument.Bookmarks("ENDclient").Range.Start)


Geht aber nicht, da sagt er mir er braucht ein Objekt - was hab ich vergessen?
Hubert_R
Gast


Verfasst am:
05. März 2010, 11:17
Rufname:

AW: Text zwischen zwei Bookmarks in Variable speichern - AW: Text zwischen zwei Bookmarks in Variable speichern

Nach oben
       Version: Office 2003

Hallo,

zwei Beispiele aus den Wordfaqs von René Probst.
Die Textmarkennamen müssen angepasst werden.
Markiert den Text zwischen zwei Textmarken. Im Beispiel heissen diese Textmarken «A» bzw. «B».
Code:
Sub TextZwischenZweiTextmarkenMarkieren()
  Dim oDoc As Document
  Set oDoc = ActiveDocument
  If oDoc.Bookmarks.Exists("A") And oDoc.Bookmarks.Exists("B") Then
    oDoc.Range(Start:=oDoc.Bookmarks("A").Range.Start, _
               End:=oDoc.Bookmarks("B").Range.Start).Select
  End If
End Sub

Bildet einen «Range», welcher den Bereich zwischen zwei Textmarken umfasst.
Code:
Sub RangeZwischenZweiTextmarkenBilden()
  Dim oDoc As Document, oRange As Range
  Set oDoc = ActiveDocument
  If oDoc.Bookmarks.Exists("A") And oDoc.Bookmarks.Exists("B") Then
    Set oRange = oDoc.Range(Start:=oDoc.Bookmarks("A").Range.Start, _
                            End:=oDoc.Bookmarks("B").Range.Start)
    oRange.Select
  End If
End Sub

Grüsse Hubert
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
05. März 2010, 13:54
Rufname:
Wohnort: Leipzig


AW: Text zwischen zwei Bookmarks in Variable speichern - AW: Text zwischen zwei Bookmarks in Variable speichern

Nach oben
       Version: Office 2003

Hallo BuffaloBill,

um Deine Frage zu beantworten: Schreib mal
Code:
Set

vor die Variable, also
Code:
Set client = ...

Objektvariablen werden in VBA mit "Set" erstellt im Gegensatz zu anderen Varialben (Strings, Integer ...).

Gruß
Lisa
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrief/Datenquelle dauerhaft speichern 11 Hermi9 18139 08. Jul 2013, 14:49
Konstantin Perso Serienbrief/Datenquelle dauerhaft speichern
Keine neuen Beiträge Word Serienbriefe: gruppierte Datensätze in einzelne Dokumente speichern 1 Gast_CH 586 22. Jun 2011, 10:29
Gast_CH gruppierte Datensätze in einzelne Dokumente speichern
Keine neuen Beiträge Word Serienbriefe: Word Quote Text 2 eisbeisser 1395 23. Dez 2010, 14:00
eisbeisser Word Quote Text
Keine neuen Beiträge Word Serienbriefe: Serienbrief in einzelne Dateien speichern 1 moneymeyer 4245 16. Jun 2010, 22:00
charlybrown Serienbrief in einzelne Dateien speichern
Keine neuen Beiträge Word Serienbriefe: Seriendruck in E-Mail (per Anlage) - E-Mail mit Text 1 Gast 2513 16. Jun 2010, 13:44
Gast Seriendruck in E-Mail (per Anlage) - E-Mail mit Text
Keine neuen Beiträge Word Serienbriefe: Text in abhängigkeit von mergefield 1 MissioWueBA04 1193 01. Jun 2010, 11:33
MissioWUEBA04 Text in abhängigkeit von mergefield
Keine neuen Beiträge Word Serienbriefe: Text von Seite 1 auf Seite 2 übernehmen 7 Chrissan79 1402 09. Apr 2010, 11:53
Chrissan79 Text von Seite 1 auf Seite 2 übernehmen
Keine neuen Beiträge Word Serienbriefe: Text im REF-Feld immer fett gedruckt 0 maxiline 2199 19. Nov 2009, 15:35
maxiline Text im REF-Feld immer fett gedruckt
Keine neuen Beiträge Word Serienbriefe: zwei Seriendruckfelder verknüpfen 4 Beach 1611 26. Jul 2009, 22:44
asdff zwei Seriendruckfelder verknüpfen
Keine neuen Beiträge Word Serienbriefe: Text einer Textmarke an anderer Stelle im Dokument anzeigen? 8 bbask 3232 07. Apr 2009, 13:07
Gast Text einer Textmarke an anderer Stelle im Dokument anzeigen?
Keine neuen Beiträge Word Serienbriefe: Text wird abgeschnitten 1 Thomas-Gast 4355 06. März 2009, 19:09
charlybrown Text wird abgeschnitten
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Anlage UND Text/Signatur im Outlook - wie? 0 Marmar77 1300 12. Feb 2008, 14:38
Marmar77 Serienbrief mit Anlage UND Text/Signatur im Outlook - wie?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen