title: Select from 4th line onwards Word VBA
body: <p>I am using the following code to copy text and images from Microsoft Word and paste to the body of an Outlook e-mail. I am trying to exclude the first 4 lines from being copied (this code is copying everything in the document). How can I go about doing this?</p>
  
  <pre><code>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
  </code></pre>
  
  <p>I am also wondering if it is possible to use the text in the first line and set this as the email subject?</p>