VBA唏嘘戏——简单单元格的设定（实例）

时间：2022-09-24 16:04:02

由于有很多个Word文件，所以应用宏会更加方便排版，而且版式较为统一。

Sub 设置列宽()

'

'  设置列宽宏

'

'

    ActiveDocument.Tables().Cell(, ).Width =    '将Word表格的第7行第2列（即B7单元格）的宽度设为45

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""  '将Word的表格第7行第17列单元格（Q7单元格）的值设置为空

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().AllowAutoFit = False

End Sub

VBA唏嘘戏——简单单元格的设定（实例）

相关文章