论文部分内容阅读
随着教学的进行,资料的积累越来越多,将资料放在一个word文档中,用目录超链接的形式展现出来也是一种方法,不过缺点在于阅读不方便,内存占用大引起刷新速度很慢等。所以本文介绍一种不需太多VBA知识就能整理好文档的方法,实现办公自动化。
一、准备工作
1.建立模板
打开word文档,点击文件→另存为,文件名为备课夹,文件类型为文档模板。
然后在当前文件夹中再建立一个文件夹,改名为运动的描述,点击进入该文件夹,建立新文档,改名为质点参考系和坐标系。
2.宏安全
点击工具→宏→安全性,将安全等级改为中等以下。
二、制作备课夹
1.建立工具栏
打开备课夹模板,点击菜单上空白之处右击,弹出新的菜单,选择最下面自定义。在命令栏的最下面有保存于,点击改成备课夹,再点击工具栏 新建,将工具栏名称命名为高一物理,确定后在文档中就会出现高一物理这个工具栏。
2.插入新菜单
关闭自定义界面,点击菜单上空白之处右击,弹出新的菜单,在命令栏的左边,拉到最下面,会看到新菜单,点击后在右边也会出现新菜单,点击再按住右键将其拖到上面刚建立的高一物理工具栏中,右击改名为运动的描述。
3.编写宏
关闭自定义后,点击工具 宏 VB编辑器,弹出VB编辑器后选中Templateproject(备课夹)右击插入模块,选中模块1,点击,将下面的宏复制进去。
Sub 质点参考系和坐标系()
On Error GoTo chuc
Documents.Open FileName:=ActiveDocument.AttachedTemplate.Path & “运动的描述质点参考系和坐标系.doc”, AddToRecentFiles:=False
Exit Sub
chuc:
MsgBox “没有找到文件,请确定同一目录下有” + Chr(10) + “运动的描述质点参考系和坐标系.doc”
End Sub
第一句为错误提示,如果在运动的描述文件夹中找不到质点参考系和坐标系.doc这个文档,就会有提示。
第二句为打开模板所在文件夹中运动的描述中的文档
4.在新菜单中插入宏
点击保存后,回到word文档界面,点击菜单上空白之处右击,弹出新的菜单,选择最下面自定义,在命令栏的左边,选中宏,在右边就可以看到刚才编的宏TemplateProject.模块1.质点参考系和坐标系。
用左键拖到高一物理运动的描述中,右击改名为质点参考系和坐标系,关闭自定义界面后,点击高一物理菜单中的质点参考系和坐标系就可以打开这个文档了。
5.继续制作,重复第1步。
一、准备工作
1.建立模板
打开word文档,点击文件→另存为,文件名为备课夹,文件类型为文档模板。
然后在当前文件夹中再建立一个文件夹,改名为运动的描述,点击进入该文件夹,建立新文档,改名为质点参考系和坐标系。
2.宏安全
点击工具→宏→安全性,将安全等级改为中等以下。
二、制作备课夹
1.建立工具栏
打开备课夹模板,点击菜单上空白之处右击,弹出新的菜单,选择最下面自定义。在命令栏的最下面有保存于,点击改成备课夹,再点击工具栏 新建,将工具栏名称命名为高一物理,确定后在文档中就会出现高一物理这个工具栏。
2.插入新菜单
关闭自定义界面,点击菜单上空白之处右击,弹出新的菜单,在命令栏的左边,拉到最下面,会看到新菜单,点击后在右边也会出现新菜单,点击再按住右键将其拖到上面刚建立的高一物理工具栏中,右击改名为运动的描述。
3.编写宏
关闭自定义后,点击工具 宏 VB编辑器,弹出VB编辑器后选中Templateproject(备课夹)右击插入模块,选中模块1,点击,将下面的宏复制进去。
Sub 质点参考系和坐标系()
On Error GoTo chuc
Documents.Open FileName:=ActiveDocument.AttachedTemplate.Path & “运动的描述质点参考系和坐标系.doc”, AddToRecentFiles:=False
Exit Sub
chuc:
MsgBox “没有找到文件,请确定同一目录下有” + Chr(10) + “运动的描述质点参考系和坐标系.doc”
End Sub
第一句为错误提示,如果在运动的描述文件夹中找不到质点参考系和坐标系.doc这个文档,就会有提示。
第二句为打开模板所在文件夹中运动的描述中的文档
4.在新菜单中插入宏
点击保存后,回到word文档界面,点击菜单上空白之处右击,弹出新的菜单,选择最下面自定义,在命令栏的左边,选中宏,在右边就可以看到刚才编的宏TemplateProject.模块1.质点参考系和坐标系。
用左键拖到高一物理运动的描述中,右击改名为质点参考系和坐标系,关闭自定义界面后,点击高一物理菜单中的质点参考系和坐标系就可以打开这个文档了。
5.继续制作,重复第1步。