title: Excel VBA: Save workbook as Word document
body: <p>I would like to save my workbook (all sheets) as one Word document.
  One sheets it's one page in document.</p>
  
  <p>I find only code for save activeSheet.</p>
  
  <pre><code>Sub ExcelToWord()
  Dim ws As Worksheet
  Set ws = ActiveSheet
  Dim objWd As Object
  Set objWd = CreateObject("word.application")
  objWd.Visible = True
  Dim objDoc As Object
  Set objDoc = objWd.Documents.Add
  objDoc.PageSetup.Orientation = 1 '  portrait = 0
  Application.ScreenUpdating = False
  ws.UsedRange.Copy
  objDoc.Content.Paste
  Application.CutCopyMode = False
  Application.DisplayAlerts = False
  objDoc.SaveAs (Application.ThisWorkbook.Path &amp; "\dokument.docx")
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>Thanks for your reply.</p>