title: Text gets cut off when publishing Excel Range to HTML
body: <p>to automatise some business process I am copying a Excel cell range into a outlook mail. I use the HTML method to insert the range into the mail body. However, the top of the range is a "normal" table with clear bounderies. Below the table there is some freetext (written into 1 cells at the beginning).</p>
  
  <p>If the freetext is longer than the range of the table, then the text is cutted and not displayed. </p>
  
  <p>Is there a workaround? </p>
  
  <p>Find attached the section of the code where the HTML file is generated (and the text is cut). As well as a screenshot for illustration.</p>
  
  <pre><code>rng.copy
  Set TempWB = Workbooks.Add(1)
  With TempWB.Sheets(1)
      .Cells(1).PasteSpecial Paste:=8
      .Cells(1).PasteSpecial xlPasteValues, , False, False
      .Cells(1).PasteSpecial xlPasteFormats, , False, False
      .Cells(1).Select
      Application.CutCopyMode = False
      On Error Resume Next
      .DrawingObjects.Visible = True
      .DrawingObjects.Delete
      On Error GoTo 0
  End With
  
  
  'Publish the sheet to a htm file
  'Until here Text is displayed correctly. 
  With TempWB.PublishObjects.Add( _
       SourceType:=xlSourceRange, _
       filename:=TempFile, _
       Sheet:=TempWB.Sheets(1).name, _
       Source:=TempWB.Sheets(1).UsedRange.Address, _
       HtmlType:=xlHtmlStatic)
      .Publish (True)
  End With
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/6gPiJ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/6gPiJ.png" alt="Screenshot"></a></p>
  
  <p>The very last two words of the textfile should display: </p>
  
  <ul>
  <li><p><strong>football</strong> instead of footba</p></li>
  <li><p><strong>treehouse</strong> instead of treeho</p></li>
  </ul>
  
  <p>As you can see this is due to the fact that the text would go beyond the boundary of the table range. </p>
  
  <p>Thanks for your help. Max </p>