宏操作

根据窗口自动调整表格

Sub 表格批量操作()
'
' 表格批量操作
'
'
Dim ofile As Document	
Dim oTable As Table		
Set ofile = Documents.Open("G:\Users\47468\Desktop\WWW\1.docx") '指定文件路径
For Each oTable In ofile.Tables
    oTable.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter    ' 文字水平居中
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter   ' 文字垂直居中
    Selection.Rows.Height = CentimetersToPoints(0.75)               ' 表格最小高度
    Selection.Columns.PreferredWidth = CentimetersToPoints(0.75)    ' 表格最小宽度
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)           ' 根据窗口自动调整表格
Next
MsgBox "完成！"
End Sub

其它操作

    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter	' 垂直居中
	
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)	' 根据内容自动调整表格
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
	
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)	' 根据窗口自动调整表格
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
	
    Selection.Tables(1).AutoFitBehavior (wdAutoFitFixed)	' 固定列宽
    Selection.Tables(1).AutoFitBehavior (wdAutoFitFixed)
	

    Selection.Collapse Direction:=wdCollapseStart	'插入1行表格
	

' 文字 
	Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft		' 文字左对齐
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter	' 文字居中
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight		' 文字右对齐
	Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify	' 文字两端对齐
	
' 表格
    Selection.Tables(1).Rows.Alignment = wdAlignRowLeft				' 表格左对齐
    Selection.Tables(1).Rows.Alignment = wdAlignRowCenter			' 表格居中
    Selection.Tables(1).Rows.Alignment = wdAlignRowRight			' 表格右对齐
	
' 调整表格(不能同时操作，现在我还不会)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)			' 根据内容自动调整表格
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)			' 根据窗口自动调整表格
    Selection.Tables(1).AutoFitBehavior (wdAutoFitFixed)			' 固定列宽

' 表格长宽
	Selection.Rows.Height = CentimetersToPoints(0.75)				' 表格最小高度
    Selection.Columns.PreferredWidth = CentimetersToPoints(0.75)	' 表格最小宽度
	
' 插入表格
	Selection.InsertRows 1											' 插入一行
    Selection.InsertRowsAbove 1										' 上方插入一行
    Selection.InsertRowsBelow 1										' 下方插入一行
    Selection.InsertColumns											' 左方插入一列
    Selection.InsertColumnsRight									' 有方插入一列
	
' 合并、拆分
    Selection.Cells.Merge											' 和并单元格
    Selection.Cells.Split NumRows:=4, NumColumns:=1, MergeBeforeSplit:=False	' 拆分成1列4行	

其它操作收集中