0
ブック(すべてのシート)を1つのWord文書として保存します。 1枚はドキュメントの1ページです。Excel VBA:ブックをWord文書として保存します。
私はアクティブシートを保存するためのコードしか見つかりません。
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 & "\dokument.docx")
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
ご返信ありがとうございます。
コードだけ保存を行う前に、コピー/貼り付けを行っている各ワークシート経由のコピー/貼り付けを行って、これだけループしているようです。 – YowE3K
はい、同じと思いますが、スクリプトは最後のページ(シート)のみを保存します。 n = Sheets.Count i = 1 To nについて シート(i).UsedRange.Copy objDoc.Content.Paste 次へ –