word 宏 表格格式 word 宏 表格 - 电脑|办公 - 电脑办公-杀毒安全-网络-V3学习网
微商网
 
 
导航:首页 |电脑|办公|正文

word 宏 表格格式 word 宏 表格

时间:2020-09-04 10:29:59
那位高手会在word中录制宏,批量更改表格格式用的 楼主可以直接写VBA,因为录制的宏其实也是VBA代码。比如,下面这几个步骤可以批量修改文档中所有表格的字体 字号为12磅黑体。1、键入Alt+
作者:

word 宏 表格格式

那位高手会在word中录制宏,批量更改表格格式用的...

楼主可以直接写VBA,因为录制的宏其实也是VBA代码。

比如,下面这几个步骤可以批量修改文档中所有表格的字体/字号为12磅黑体。

1、键入Alt+F11打开VBA编辑器,选择菜单“插入-模块”;2、将下面代码粘贴进去:Sub BatchChangeTableStyle()Dim oTable As TableFor Each oTable In ActiveDocument.TablesoTable.Range.Font.Name = "黑体" " 改变表格字体为“黑体”oTable.Range.Font.Size = 12 " 改变表格字号为12磅NextSet oTable = NothingMsgBox "完成!"End Sub可以根据需要修改上面代码中的字体和字号。

3、键入F5运行看到“完成!”结束;4、切换回Word窗口检查效果。

此外,我不太明白楼主说的“表格页边距”具体是什么意思?是说表格属性窗口里面那个“左缩进”还是其它什么属性?能补充说明一下吗? ______补充:哦,抱歉原来我可能没有看仔细题目,楼主还有一个重要的要求是需要对“很多文档”批量处理。

下面的代码可以完成完整的需求。

注意需要把代码里面设置文件夹以及设置表格字体/字号和页面边距的那些地方根据你的实际情况修改一下。

Sub BatchChangeTableAndPageMargins()On Error Resume NextConst strRootPath = "D:\Temp\Docs\Tables" " 存放所有需要调整的文件的目录Dim arrDocFiles As New CollectionDim fso, oFolder, oFileDim oDoc As DocumentDim oTable As TableSet fso = CreateObject("Scripting.FileSystemObject")Set oFolder = fso.GetFolder(strRootPath)For Each oFile In oFolder.FilesSet oDoc = Documents.Open(oFile.Path)oDoc.PageSetup.TopMargin = CentimetersToPoints(3) " 天头oDoc.PageSetup.BottomMargin = CentimetersToPoints(2.8) " 地脚oDoc.PageSetup.LeftMargin = CentimetersToPoints(2.5) " 切口oDoc.PageSetup.RightMargin = CentimetersToPoints(2) " 订口For Each oTable In oDoc.TablesoTable.Range.Font.Name = "黑体" " 改变表格字体为“黑体”oTable.Range.Font.Size = 12 " 改变表格字号为12磅NextoDoc.Close TrueNextSet oTable = NothingSet oDoc = NothingMsgBox "完成!"End Sub

word表格格式统一更改我有80页的表格,表格大小不一,超出打印

WORD中批量修改表格的格式:第一步,先用宏将所有表格选中:Sub 宏1() Dim mytable As Table Application.ScreenUpdating = False For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = TrueEnd Sub第二步,设置格式。

先设置好字体字号,再设置表格属性:右键——表格属性(或者点菜单栏的表格——表格属性)——行,选中“指定高度”,在“行高值是”中选择“固定值”,设定一个适当值。

...

在WORD与EXCEL中的“宏”是什么?1.“宏”是什么??2.

宏是微软公司为其OFFICE软件包设计的一个特殊功能,目的是让用户文档中的一些任务自动化。

OFFICE中的WORD和EXEAL都有宏。

在下面的讨论中我们以WORD为例。

如果在Word中重复进行某项工作,可用宏使其自动执行。

宏是将一系列的Word命令和指令组合在一起,形成一个命令,以实现任务执行的自动化。

您可创建并执行一个宏,以替代人工进行一系列费时而重复的 Word操作。

以下是宏的一些典型应用: 加速日常编辑和格式设置 组合多个命令 使对话框中的选项更易于访问 使一系列复杂的任务自动执行 Word提供了两种创建宏的方法:宏录制器和Visual Basic编辑器。

宏录制器可帮助您开始创建宏。

Word在Visual Basic for Applications编程语言中把宏录制为一系列的Word命令。

可在Visual Basic编辑器中打开已录制的宏,修改其中的指令。

也可用Visual Basic编辑器创建包括Visual Basic指令的非常灵活和强有力的宏。

您可将宏保存到模板或文档中。

在默认的情况下,Word将宏存贮在 Normal模板中,以便所有的Word文档均能使用。

注意这一特点几乎为所有的宏病毒所利用

word表格转换为excel表格?

而且原来的单元格内容间由一个制表符隔开,你就不必录制宏。

再将该特殊字符,原来的每个单元格之间用特定的符号标识。

再次运行一次编辑-->替换。

那些特殊字符,在你运行替换命令时,点高级,在特殊符号中一般能找到,自己找吧。

如果刚才你保留有不同表格之间的特殊符号,否则后果自负。

用全部替换法,再按编辑--&gt。

反复全部替换多次,就可删除多余的段落标记了。

如果还有特殊的标记。

估计你需要的最终格式是在Excel表中。

下面开始录制宏,直到第一张表的结尾处。

停止录制(有一个新产生的菜单上,按钮图标为实心方框),为下一步的宏录制打下一个良好的基础,点键盘。

首先点击查找下一处,然后不断地点击替换,注意选择分隔符号,而不是固定宽度。

分隔符为Tab,或者你的特殊符号(※),也可以在其他中输入该字符,每个人的信息占用一行。

那么我们需要做的就是将同一个人的信息变为一个段落,否则会影响你今后的工作)。

当箭头形光标上带有一个磁带形的标识时,说明已开始录制宏;宏-->录制新宏,将更改保存在中选择你当前的文档(不要选Normal,在查找内容中输入^p,替换为中输入^t或者其它的在整个Word中不可能有的字符(如※),这一步是为了让Word记住你替换的状态。

下面,你只需不断地按F12键,就可把表格转换为每段一个人记录的形式,点击替换,使之替换一次,将各个表格之间的多余段落标记去掉。

如原来有些表格之间可能有两个或多个段落标记符。

这样可以省去后面的宏命令。

如果这种标记不能为记事本识别。

工具--&gt,将光标放于文档开头处。

这一点很重要,可以用替换法删除。

查找内容中输入^p^p,替换为中输入^p;撤销恢复到未替换之前的状态,如统一的表格标题文字等,就必须要删除。

因为我这里的办法就是借用文本文件进行转化。

下面的操作就不用说了吧。

由于每张表的格式应该是完全相同的,可以用宏命令再次进行转换,如果这种标记能在记事本中显示,最好保留,还可以恢复,原来的每个单元格都变成了一个独立的段落。

此时的操作一定要小心啊,替换为^p另存为文本文件。

打开Excel,数据-->导入外部数据-->导入数据,为你录制的宏指定一个快捷键(如F12)。

而采用全部替换。

全选,表格-->转换-->文本转换为表格,表格-->转换-->表格转换为文本。

转换时用默认设置就可以。

经过两步转换。

这很重要,一旦操作失误首先备份你的Word文件...

word 宏 如何复制每一页表格中指定的列

方法一、启动WORD,新建一个空白文档,执行“插入——〉文件”命令,打开“插入文件”对话框,定位到需要解除保护的文档所在的文件夹,选中相应文档,单击“插入”按钮,将加密保护的文档插入到新文档中,文档保护会被自动撤销。

方法2:文件另存法打开保护的文档,执行“文件——〉另存为”命令,打开“另存为”对话框,将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”,然后取名保存,关闭该文档,重新打开一下,执行“工具——〉取消文档保护”命令即可。

或者将文件类型另存为HTML,然后将其中的内容,复制粘贴到新建文档中。

方法3:写字板法启动写字板,打开保护的WORD文档,另存为WORD文档,同时可以取消对文档的保护。

但此方法可能会使文档中的图片等要素丢失。

请写一个WORD宏,相当于点击格式

WORD中批量修改表格的格式:第一步,先用宏将所有表格选中:Sub 宏1()Dim mytable As TableApplication.ScreenUpdating = FalseFor Each mytable In ActiveDocument.Tablesmytable.Range.Editors.Add wdEditorEveryoneNextActiveDocument.SelectAllEditableRanges (wdEditorEveryone)ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)Application.ScreenUpdating = TrueEnd Sub第二步,设置格式。

先设置好字体字号,再设置表格属性:右键——表格属性(或者点菜单栏的表格——表格属性)——行,选中“指定高度”,在“行高值是”中选择“固定值”,设定一个适当值。

如何把word表格里的格式、字体、大小都调成一样的

宏有两种说法: 1种是指利用excel内嵌的ms vba语言编制(也可以通过工具“录制宏”记录)的一组程序,可以使大量重复工作自动化,也可以完成一些靠excel界面操作无法完成的工作,也可以自定义函数,总之,它就象dos的批处理,或其他语言编的程序。

2种是指把放在不同单元格的一大串公式合并简化到一个单元格,只有一个美国人这样提。

这方面的书不少,但市面上不多,如《vba使我把工作变轻松了》等。

有些网上科技书店有,可以邮购。

我就邮购过。

要学好宏不容易,可以先学着“录制宏”,把一些常用的重复工作录制下来以简化操作。

然后再多看书,多实践。

可以到

大家还关注
    
阅读排行
推荐阅读