VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Outlook VBA Tabelle	10.02.2023 12:18:58	HPLER
Ja, aber es wird Dir nicht gefallen (Word-Editor)	10.02.2023 13:24:35	Mase
Microsoft ActiveX Data Objects 6.1 Library	10.02.2023 14:20:08	Mase
Microsoft ActiveX Data Objects 6.1 Library	10.02.2023 16:01:29	HPLER
Microsoft ActiveX Data Objects 6.1 Library	10.02.2023 22:59:30	Gast37636
Microsoft ActiveX Data Objects 6.1 Library	11.02.2023 14:49:29	HPLER

Ansicht des Beitrags:

Von:
Gast37636

Datum:
10.02.2023 22:59:30

Views:
515

Rating:

Antwort:

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
Outlook VBA Tabelle	10.02.2023 12:18:58	HPLER
Ja, aber es wird Dir nicht gefallen (Word-Editor)	10.02.2023 13:24:35	Mase
Microsoft ActiveX Data Objects 6.1 Library	10.02.2023 14:20:08	Mase
Microsoft ActiveX Data Objects 6.1 Library	10.02.2023 16:01:29	HPLER
Microsoft ActiveX Data Objects 6.1 Library	10.02.2023 22:59:30	Gast37636
Microsoft ActiveX Data Objects 6.1 Library	11.02.2023 14:49:29	HPLER