首页 > 其他分享 >WPS宏编辑器批量设置word中表格样式

WPS宏编辑器批量设置word中表格样式

时间:2022-11-17 13:56:12浏览次数:50  
标签:function Tables word 表格 样式 WPS 编辑器 ActiveDocument var

设置表格占用宽度比例并自适应页面宽度

 /**
 * 表格自适应
 */
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

相关文章