Принуждение таблицу, чтобы соответствовать поля

Question

также код предложил в ответ на этот вопрос (Exporting a sheet to a word table gives a weird outcome) не делает таблицу подгонку в полях, в результате чего часть таблицы прячась

Как я могу заставить таблицы, чтобы поместиться в полях? Я пробовал objDoc.Tables.AutoFitBehavior (wdAutofitWindow), но он не работает.

Answer 1

Sub Export_Click() 
    Dim objWord As Word.Application 
    Dim myDoc As Word.Document 
    Dim myTable As Word.Table 
    Dim myRange As Excel.Range 
    Dim lastRow As Long 

    Set objWord = CreateObject("Word.Application") 
    objWord.Visible = True 

    Set myDoc = objWord.Documents.Add 

    lastRow = Sheets("export").Range("$G$1").Value 'number of lines to export 

    Set myRange = Range("A1:F" & lastRow) 
    myRange.Copy 

    myDoc.Paragraphs(1).Range.PasteExcelTable _ 
     LinkedToExcel:=False, _ 
     WordFormatting:=False, _ 
     RTF:=False 

    Set WordTable = myDoc.Tables(1) 
    WordTable.AutoFitBehavior (wdAutoFitWindow) 

    Application.CutCopyMode = False   'clear the clipboard 
End Sub 

Этот код составлен на основе вашего last question.

Для выполнения вышеуказанного кода вам нужно будет добавить ссылку Microsoft Word 12.0 Object Library. Вы можете сделать это в VBE. В меню Tools нажмите References и выберите Microsoft Word 12.0 Object Library