如何在Excel中使用VBA格式化Word文档？

Question

我需要从Excel中的工作表生成Word文档。为了完成编码，我需要一些格式化方面的技巧，因为其余的代码已经准备就绪。

1）页面必须为“横向”，但是当我使用此代码时，页面停留在“纵向”上：

    Set ProgramaWord = CreateObject("Word.Application")
    ProgramaWord.Visible = True
    Set Relatorio = ProgramaWord.documents.Add
    Set ProgramaRange = Relatorio.Range
    Relatorio.PageSetup.Orientation = wdOrientLandscape

2）如何向所有页面添加标题？我需要添加图片。

3）如何设置标题格式，以便生成目录。另外，如何生成目录？

如果任何人都知道如何执行这些主题中的任何一个，非常欢迎获得帮助！