Sub 自动调整所有表格() ' ' 自动调整所有表格 宏 ' 'Application.Browser.Target = wdBrowseTable For i = 1 To ActiveDocument.Tables.Count With ActiveDocument.Tables(i) .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容 .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Public Sub GetFirst() GetDataFromWord "初检" End Sub Public Sub GetDataFromWord(ByVal SheetName As String) AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Workbook Dim Sht A