Замените ключевое слово в новом письме скопированным контентом из текстового документа - PullRequest
Новая
       24

Замените ключевое слово в новом письме скопированным контентом из текстового документа

0 голосов
/ 20 сентября 2018

Я просматривал много тем на этом сайте, но не могу найти решение для своей проблемы.

Здесь контекст:

Я пытаюсь создать электронное письмо стело из слова document => здесь не проблема.

В этом документе есть ключевые слова, которые я хочу заменить содержимым, которое я скопировал из другого слова.

Я знаю, как вставить вконец документа, но не заменяйте ключевое слово скопированным контентом.

Вот мой код: 

Sub DisplayMail()

Dim WDApp As Word.Application
Dim WDDoc As Word.Document
Dim OlApp As Outlook.Application
Dim OlItem As Outlook.MailItem

Set WDObj = ThisWorkbook.Sheets("Modèle").OLEObjects("Objet 1")

WDObj.Activate
WDObj.Object.Application.Visible = False

Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
WDDoc.Content.Copy

Set OlApp = CreateObject("Outlook.application")
OlApp.GetNamespace("MAPI").Logon
Set OlItem = OlApp.CreateItem(olMailItem)
With OlItem
.To = ""
.CC = ""
.BodyFormat = olFormatHTML
.Subject = "test"

Set Editor = .GetInspector.WordEditor
Editor.Content.Select
Editor.Application.Selection.Paste
'this works fine, the email's body now looks like my first word document
  ------------
Set WDObj = ThisWorkbook.Sheets("Sheet2").OLEObjects("Objet 2")
WDObj.Activate
WDObj.Object.Application.Visible = False
Set WDDoc = WDApp.ActiveDocument
WDDoc.Content.Copy
'Copy of the content of my second word document (that's what I want to replace the keyword with)
'Editor.Characters.Last.Select
'Editor.Application.Selection.Paste
'code I use to copy at the end of the email body
------------

------------
With Editor.Content.Find
.Text = "#Keyword#"
.Replacement.Text = "text"
.Forward = True
.Execute Replace:=wdReplaceAll
End With
'with this code I can replace the keyword with Text but not with the content of my second word document
.Display
End With
End Sub

1 Ответ

0 голосов
/ 21 сентября 2018

Для замены текста с использованием содержимого буфера обмена используйте поисковый код: ^c

Например (из кода, размещенного в вопросе): 

With Editor.Content.Find
  .Text = "#Keyword#"
  .Replacement.Text = "^c"
  .Forward = True
  .Execute Replace:=wdReplaceAll
End With

ВыВы можете найти список таких специальных кодов поиска, открыв диалоговое окно «Заменить» (нажмите Ctrl + H), нажав «Дополнительно», а затем «Специальный».Есть списки для «Найти», а также для «Заменить» - щелкните в соответствующем поле в верхней части диалогового окна, чтобы получить список для этого поля.

...