Thema Datum  Von Nutzer Rating
Antwort
10.02.2023 12:18:58 HPLER
Solved
10.02.2023 13:24:35 Mase
NotSolved
10.02.2023 14:20:08 Mase
NotSolved
10.02.2023 16:01:29 HPLER
NotSolved
Rot Microsoft ActiveX Data Objects 6.1 Library
10.02.2023 22:59:30 Gast37636
NotSolved
11.02.2023 14:49:29 HPLER
NotSolved

Ansicht des Beitrags:
Von:
Gast37636
Datum:
10.02.2023 22:59:30
Views:
307
Rating: Antwort:
  Ja
Thema:
Microsoft ActiveX Data Objects 6.1 Library

Hallo

Ich mache es nun über den Word Editor. Kann mir jemand sagen, wie ich im ganzen Text, meinen zu ersetzenden Text, suchen bzw. finden kann ohne manuell den Text markieren zu müssen? Was ist noch falsch?

Sub Mailbody()
'Word Instanzen aufbauen und setzen
    Dim myInspector As Outlook.Inspector
    Dim myObject As Object
    Dim myItem As Outlook.MailItem
    Dim myDoc As Word.Document
    Dim mySelection As Word.Selection
    Dim strItem As String
    Dim strGreeting As String
    Set myInspector = Application.ActiveInspector
    Set myObject = myInspector.CurrentItem
'----------------------------------------------------------------------
    'Ändert die Werte ab
    'Grab the body of the message using a Word Document object.
Set myDoc = myInspector.WordEditor
    myDoc.Range.Find.ClearFormatting
Set mySelection = myDoc.Application.Selection
    With mySelection.Find
        .Text = "Wassuch"
        .Replacement.Text = WasText
        .Execute Replace:=wdReplaceAll
    End With

End Sub


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
10.02.2023 12:18:58 HPLER
Solved
10.02.2023 13:24:35 Mase
NotSolved
10.02.2023 14:20:08 Mase
NotSolved
10.02.2023 16:01:29 HPLER
NotSolved
Rot Microsoft ActiveX Data Objects 6.1 Library
10.02.2023 22:59:30 Gast37636
NotSolved
11.02.2023 14:49:29 HPLER
NotSolved