word中将宏模块添加到Normal.dotm模板中

有关其他word教程如下；

《word添加MathType插件》https://blog.csdn.net/qq_52877060/article/details/124238155?utm_source=app&app_version=5.3.0&code=app_1562916241&uLinkId=usr1mkqgl919blen《word添加自定义快速访问工具栏》https://blog.csdn.net/qq_52877060/article/details/124238356?utm_source=app&app_version=5.3.0&code=app_1562916241&uLinkId=usr1mkqgl919blen《word添加自定义样式（导入normal.dotm）》https://blog.csdn.net/qq_52877060/article/details/124238823?utm_source=app&app_version=5.3.0&code=app_1562916241&uLinkId=usr1mkqgl919blen《word中将宏模块添加到Normal.dotm模板中》https://blog.csdn.net/qq_52877060/article/details/124239119?utm_source=app&app_version=5.3.0&code=app_1562916241&uLinkId=usr1mkqgl919blen

这个教程可以教你如何把自己的宏模块添加到word的Normal.dotm里，
只要保存好自己的Normal.dotm样式模板，随时随地可以导入自己的Normal模板，
随时都可以使用自己的宏模块

打开word，然后按照下面图片的步骤操作。

打开宏代码文档

如果大家觉得麻烦可以直接下载这个word文档，代码在里面。也可以复制下面的代码

蓝奏云：word宏代码（密码：2WTC）https://wwc.lanzouy.com/i3DQw03dfb4h
百度云；word宏代码（密码：2WTC）https://pan.baidu.com/s/1zqZlR1hbh_nguiau7CEnfA?pwd=2WTC

添加宏代码

代码1：将文档所有表格设置为“三线表”

Sub 三线表() '函数名Application.ScreenUpdating = False  '关闭屏幕更新i = ActiveDocument.Tables.Count     '获取表格数量If i > 0 Then   '如果存在表格t = TimerMsgBox "一共找到" & i & "个表格，请单击确定以继续……"For j = 1 To iWith ActiveDocument.Tables(j).Style = "三线表"   '设置表格样式为“三线表”。但是需要提前设置好三线表样式，样式名称为“三线表”.Range.ParagraphFormat.Alignment = wdcellalignverticaiCenter   '设置表格内容垂直居中.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter   '设置表格内容水平居中End WithNext jMsgBox "已处理完成，共用时" & Timer - t & "秒。'"ElseMsgBox "未找到表格，请单击确定退出……"End IfApplication.ScreenUpdating = True   '打开屏幕更新
End Sub

代码2：将文档所有图片设置指定尺寸、居中

Sub 图片格式统一()  '函数名Myheigth = 6   '设置高度Mywidth = 12   '设置宽度On Error Resume Next    '忽略错误For Each iShape In ActiveDocument.InlineShapesiShape.LockAspectRatio = msoFlase   '取消锁定纵横比iShape.Height = 28.345 * Myheigth   '图片高度iShape.Width = 28.345 * Mywidth     '图片宽度With iShape.Range.ParagraphFormat.Reset    '重置.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中End WithNextFor Each Shape In ActiveDocument.ShapesShape.LockAspectRatio = msoFlaseShape.Height = 28.345 * Myheigth    '1像素=28.345Shape.Width = 28.345 * MywidthWith Shape.Range.ParagraphFormat.Reset    '重置.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中End WithNext
End Sub

设置宏

创建宏，按照下面图片步骤操作，最后两个代码在上面的步骤中打开的“宏文档”里面复制的代码。

以后运行该宏，则就会自动将文档中的表格设置为三线表，图片设置为自定义的尺寸，我们可以在宏代码中修改自己想要的表格样式（表格样式是在“设计”选项中设置好的，名称叫“三线表”），图片尺寸，位置是居中还是其他我们都可以自己设置。

word中将宏模块添加到Normal.dotm模板中相关推荐

Normal.dotm正由另一程序占用或者用户占用解决方法
C# 生成word文档时弹出"Normal.dotm被另一程序或用户使用"的主要原因是在生成word文档后关闭word时发生的问题. //出现提示框前我们通常使用的关闭word代码 ...
怎样在设计中添加FIFO宏模块
quartus软件内置了很多我们经常用到的电路模块,统称为宏模块,在做EDA设计的时候,我们可以直接调用他们来简化设计过程.不要小看了宏模块,如果利用得当,可以省去你一多半的设计时间呢.这里以FIFO ...
Word中将多个表格内容批量居中：通过“宏”操作
Word中将多个表格内容批量居中操作系统:win10 word版本:office 2016 1. 打开word-->视图-->宏 2.输入宏名-->创建宏 3. 将下面的代码粘贴进 ...
word 解放双手，使用宏批量添加word中表格边框以及自适应
Sub 宏2() ' ' 宏2 宏 ' ' For Each aTable In ActiveDocument.TablesWith aTableaTable.SelectWith .Borders( ...
word 通过宏选中所有表格
1 将下面的脚本复制 2 word---视图---宏----查看宏----输入宏名:SelectAllTables----点击创建 Alt+F11打开VBA代码编辑窗口,新增模块 3 将脚本编辑窗口中 ...
latex排版原理常用算法排版伪代码模块添加注释以及注意事项
首先说一下latex关于排版的内部原理 latex的文档由两样元素组成: 字符文本,就是我们写进去的文字内容浮动体,默认 figure 和 table,但是我们可以定义额外的浮动体类型,比如algo ...
html to word mathml,在MS Word中将MathML转换为MathType
我正在从XML & MathML转换为MS Word文档. 我使用MFC和Word自动化,所以不应该这样写的文字没有问题:在MS Word中将MathML转换为MathType _Applic ...
Word VBA 宏 Bookmarks 报错5828 错误的书签名称解决办法
问题描述: 在用 Word VBA 编写自动添加书签的宏时,出现以下错误: 代码: Sub AddBookmark(prefix As String)Selection.HomeKey Unit:=w ...
word中将空格替换为_如何在MS Word中将“使用必应搜索”更改为使用Google
word中将空格替换为 Microsoft Word's context menu has a menu item that most people have probably seen but do ...
word 常用宏代码
2008年05月25日 11:08 Sub autonew1() Dim 存在, a, i, j, str On Error Resume Next For j = 1 To ActiveDocume ...

word中将宏模块添加到Normal.dotm模板中

word中将宏模块添加到Normal.dotm模板中相关推荐

最新文章

热门文章