word 使用宏批量设置表格

Sub ChangeTable()

Application.Browser.Target = wdBrowseTable

    For i = 1 To ActiveDocument.Tables.Count

        ActiveDocument.Tables.Item(i).Select

        With Selection

            ‘表格外边框
            .Borders.OutsideLineStyle = wdLineStyleSingle
            ‘表格内边框
            .Borders.InsideLineStyle = wdLineStyleSingle
            ‘表格内边框
            .Borders(wdBorderRight).Color = wdColorAutomatic
            .Borders(wdBorderLeft).Color = wdColorAutomatic
            .Borders(wdBorderTop).Color = wdColorAutomatic
            .Borders(wdBorderBottom).Color = wdColorAutomatic
            ‘表格居中
            .Rows.Alignment = wdAlignRowLeft
            ‘表格内容居中
            .Range.Paragraphs.Alignment = wdAlignParagraphLeft

        End With

    Next i

End Sub

相关链接:http://blog.chinaunix.net/uid-20423564-id-1949478.html

时间： 2024-08-20 18:10:12

word 使用宏批量设置表格的相关文章

沫沫金提供：word文档批量选择表格【启用宏】

上百上千表格,需要全部设置大小.手动就废了 记录这个word批量选择表格的方法 ALT+F8,打开宏对话框,创建名为SelectAllTables的宏 Sub SelectAllTables()    Dim tempTable As Table        Application.ScreenUpdating = False        '判断文档是否被保护    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then  

Word批量设置表格宽度自动适应页面宽度

怎么批量修改Word表格的宽度呢.Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样. 当页面设置了新的页边距后,所有的表格都需要调整新的宽度.或者文档中有许多大大小小的表格,希望宽度全部调整与页宽一样.下面的方法就非常有用啦 步骤阅读 百度经验:jingyan.baidu.com 工具/原料 Word 2013 百度经验:jingyan.baidu.com 方法/步骤 1 打开Word文档,按下[Alt + F11] 步骤阅读 2 在VBA编辑器窗口的左上方,双击[Thi

word 文档操作类，可以读出word中书签 批量替换内容，直接调用

using System;using System.Collections.Generic;using System.Text;using Word = Microsoft.Office.Interop.Word; namespace ELO.BLL{ /* * Description:用于Word基本操作类 */public partial class Helper_Word { #region 私有成员 private Word.ApplicationClass _wordApplicati

delphi 设置表格样式。

//设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle; wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineWidth = Word.WdLineWidth.wdLineWidth050pt; wordDoc.Ta

C# 在word文档中复制表格并粘帖到下一页中

object oMissing = System.Reflection.Missing.Value;            Microsoft.Office.Interop.Word._Application oWord;            Microsoft.Office.Interop.Word._Document oDoc;            oWord = new Microsoft.Office.Interop.Word.Application();            //

Android 批量设置监听器，监听器传递参数，重写监听器构造函数

这个问题困扰了我好几天,就在我做的课程表应用中,每个页面有15个TextView,每个都要设置监听器,但是这还不是难事,难的是,用匿名内部类实现监听借口的时候,还要再在里面设置监听器!简而言之,TextView长按变为EditText,EditText点击完成之后把值传回TextView,这一个地方需要两个监听器. 我最早的实现方法是(mon_tv[ ]是一个TextView数组,mon_et[ ]是一个EditText数组): mon_tv[1].setOnLongClickListener(

设置表格单双行颜色

<script type="text/javascript"> $(document).ready(function () { $("table").attr("bgColor", "#222222"); //设置表格的背景颜色 $("tr").attr("bgColor", "#3366CC"); //为单数行表格设置背景颜色 $("tr:ev

table 设置表格有滚动条。

<!DOCTYPE HTML> 2 <html> 3 4 <head> 5 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 6 <title>设置表格有滚动条</title> 7 <style> 8 * { 9 margin: 0; 10 padding: 0; 11 } 12 13 table

win7操作系统安装之后的批量设置脚本

在win7操作系统安装完成之后,对系统做些设置,主要包括以下设置项,如果和自己的需求有悖,请自己更改脚本或者不要用此脚本执行自动化设置: 禁用IPv6的协议 关闭IP Helper,Windows backup,window Time,window Update,禁用防火墙服务 更改显示设置:只保留:"平滑屏幕字体边缘","在窗口和按钮上使用视觉样式" 更改系统常用目录的路径,将我的文档,视频,音乐,下载等目录改到非系统盘(如果系统有两个以上分区的话) 取消桌面上程