不知道是不是我选择错了版块。关于excel和word数据

浪人甲乙丙

1. Private Sub CommandButton1_Click()
   
2. Set WDApp = CreateObject("word.application")
   
3. WDApp.Visible = True
   
4. Set WordDoc = WDApp.documents.Add
   
5. For i = 3 To 5
   
6. Sheets("低压线路模板").Cells(2, 2).Value = Sheets("基础数据").Cells(i, 2).Value
   
7. Sheets("低压线路模板").Cells(8, 8).Value = Sheets("基础数据").Cells(i, 3).Value
   
8. Sheets("低压线路模板").UsedRange.Copy
   
9. With WordDoc.Select
   
10.          WDApp.Selection.Paste  '粘贴表格
    
11.          WDApp.Selection.PageSetup.Orientation = wdOrientLandscape
    
12.          WordDoc.SaveAs Filename:=ThisWorkbook.Path & "" & Sheets("基础数据").Cells(i, 2).Value '保存文档
    
13. End With
    
14.    Next
    
15.    Set WDApp = Nothing
    
16.     Set WordDoc = Nothing
    
17. End Sub
    

复制代码

新手求助，利用excel数据批量生成word文档。1、为何设置不了word为横向。
2、为何生成的文件后面还有空白。
3、“主要问题具体描述:”这段文字如何设置如果超过三行字就自动根据框大小调整字体。

4、选择性黏贴为excel对象会自动调整？