Thema Datum  Von Nutzer Rating
Antwort
16.02.2006 12:49:51 Danwe
NotSolved
Blau Aw:ersetzung im selektierten Bereich/Absatz
 16.02.2006 22:23:21 Rasta
NotSolved
17.02.2006 10:02:34 Danwe
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
16.02.2006 22:23:21		 Views:
1024		 Rating:
     
Antwort:
  Ja
Thema:
Aw:ersetzung im selektierten Bereich/Absatz
Hi Danwe,

spiel doch mal mit den eigenschaften und methoden der "selektion" herum

z.b.
MsgBox Selection.Active
MsgBox Selection.Text

und schau was dabei heraus kommt(active gibt zurück ob etwas selektiert ist, text, welcher text selektiert ist....)

viele grüße

rasta

Danwe schrieb am 16.02.2006 12:49:51:

Hallo,

ich möchte gerne die ersetzungsfunktion von Word nur in einem selektierten Bereich durchführen.
Die ersetzungsfunktion lautet so:
Sub a_ersetzungstest()
With Selection.Range.Find
.Text = Chr(38)
.Replacement.Text = Chr(221)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub

Allerdings wird hier auch ausßerhalb des selektierten Bereichs ersetzt.

Ich bräuchte zusätzlich auch ein Selectionsobjekt und muss den momentan selektierten bereich einlesen, folgender Code funktioniert nicht:

Dim selected As Selection
selected = ActiveDocument.Paragraphs(2).Range.Select

wäre wirklich dankbar für einen Hinweis, wie ich es richtig machen muss.

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
16.02.2006 12:49:51 Danwe
NotSolved
Blau Aw:ersetzung im selektierten Bereich/Absatz
 16.02.2006 22:23:21 Rasta
NotSolved
17.02.2006 10:02:34 Danwe
NotSolved