设置表格占用宽度比例并自适应页面宽度
/**
* 表格自适应
*/
function tableAutoFitWindow() {
var count = ActiveDocument.Tables.Count;
for(i = 1; i <= count; i++) {
var table = ActiveDocument.Tables.Item(i);
table.AutoFitBehavior(wdAutoFitWindow);
table.PreferredWidth = 70;
table.Rows.Alignment = wdAlignRowCenter;
}
}
设置表格边框样式
/**
* 表格边框
*/
function tableLineStyle() {
var count = ActiveDocument.Tables.Count;
for(i = 1; i <= count; i++) {
var table = ActiveDocument.Tables.Item(i);
table.Borders.Item(wdBorderDiagonalDown).LineStyle = wdLineStyleNone;
table.Borders.Item(wdBorderDiagonalUp).LineStyle = wdLineStyleNone;
table.Borders.Item(wdBorderTop).LineStyle = wdLineStyleSingle;
table.Borders.Item(wdBorderTop).LineWidth = wdLineWidth050pt;
table.Borders.Item(wdBorderTop).Color = wdColorBlack;
table.Borders.Item(wdBorderBottom).LineStyle = wdLineStyleSingle;
table.Borders.Item(wdBorderBottom).LineWidth = wdLineWidth050pt;
table.Borders.Item(wdBorderBottom).Color = wdColorBlack;
table.Borders.Item(wdBorderLeft).LineStyle = wdLineStyleSingle;
table.Borders.Item(wdBorderLeft).LineWidth = wdLineWidth050pt;
table.Borders.Item(wdBorderLeft).Color = wdColorBlack;
table.Borders.Item(wdBorderRight).LineStyle = wdLineStyleSingle;
table.Borders.Item(wdBorderRight).LineWidth = wdLineWidth050pt;
table.Borders.Item(wdBorderRight).Color = wdColorBlack;
table.Borders.Item(wdBorderHorizontal).LineStyle = wdLineStyleSingle;
table.Borders.Item(wdBorderHorizontal).LineWidth = wdLineWidth050pt;
table.Borders.Item(wdBorderHorizontal).Color = wdColorBlack;
table.Borders.Item(wdBorderVertical).LineStyle = wdLineStyleSingle;
table.Borders.Item(wdBorderVertical).LineWidth = wdLineWidth050pt;
table.Borders.Item(wdBorderVertical).Color = wdColorBlack;
}
}
设置表格内字体样式和字体大小
/**
* 表格字体
*/
function tableFont() {
var count = ActiveDocument.Tables.Count;
for(i = 1; i <= count; i++) {
var table = ActiveDocument.Tables.Item(i);
Selection.SetRange(table.Range.Start, table.Range.End);
Selection.Font.Name = "Times New Roman";
Selection.Font.Size = 9;
Selection.Font.SizeBi = 9;
var FirstRow = table.Rows.First;
Selection.SetRange(FirstRow.Range.Start, FirstRow.Range.End);
Selection.Font.Bold = -1;
Selection.Font.BoldBi = -1;
FirstRow.Cells.Shading.Texture = wdTexture20Percent;
FirstRow.Cells.Shading.BackgroundPatternColor = wdColorGray20;
}
}
复制表格样式并全局粘贴,先用格式刷选择需要复制的表格样式,然后执行该方法
/**
* 表格样式粘贴
*/
function tablePasteFormat() {
var count = ActiveDocument.Tables.Count;
for(i = 1; i <= count; i++) {
var table = ActiveDocument.Tables.Item(i);
Selection.SetRange(table.Range.Start, table.Range.End);
Selection.PasteFormat();
}
}
标签:function,Tables,word,表格,样式,WPS,编辑器,ActiveDocument,var
From: https://www.cnblogs.com/huanruke/p/16899239.html