从第 4 行开始选择 Word VBA答案

【问题标题】：Select from 4th line onwards Word VBA从第 4 行开始选择 Word VBA
【发布时间】：2023-03-28 05:20:01
【问题描述】：

我正在使用以下代码从 Microsoft Word 复制文本和图像并粘贴到 Outlook 电子邮件的正文。我试图排除前 4 行被复制（此代码正在复制文档中的所有内容）。我该怎么做？

Sub CopycontentintoOutlook()

Dim oMailItem As Object
Dim oWordApp As Object
Dim oWordDoc As Object
Dim oMailWordDoc As Object

Set oWordApp = CreateObject("Word.Application")
Set oWordDoc = ActiveDocument

oWordDoc.Content.Copy

Set oMailApp = CreateObject("Outlook.Application")
Set oMailItem = oMailApp.CreateItem(0)

With oMailItem
.To = "email"
.Subject = "This email contains Word-formatted text"
.Display
End With

Set oMailWordDoc = oMailApp.ActiveInspector.WordEditor

oMailWordDoc.Application.Selection.Paste

End Sub

我也想知道是否可以使用第一行中的文本并将其设置为电子邮件主题？

【问题讨论】：

标签： vba ms-word outlook

【解决方案1】：

您可以使用带有wdGoToLine 值的GoTo() 函数将插入点设置为特定行。从那里，MoveEnd() 函数可以将选择的结尾设置为文档的结尾。

' Set start to line 4...   
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4

' Select up to end of document...
Selection.MoveEnd Unit:=wdStory

【讨论】：