拟阿卡玛与雷比尔将军:word图片和目录编辑

来源:百度文库 编辑:偶看新闻 时间:2024/04/26 22:45:22
使WORD里面的文章自动生成目录:假如文章中标题格式为第一节……大标题(一级)
1.1……小标题(二级)
1.1.1—……小标题下的小标题(三级)
……
第N节……大标题(一级)
n.1……小标题(二级)
n.1.1—……小标题下的小标题(三级)
自动生成文章目录的操作:一、设置标题格式1.选中文章中的所有一级标题;
2.在“格式”工具栏的左端,“样式”列表中单击“标题1”。
仿照步骤1、2设置二、三级标题格式为标题2、标题3。二、自动生成目录1.把光标定位到文章第1页的首行第1个字符左侧(目录应在文章的前面);
2.执行菜单命令“插入/引用/索引和目录”打开“索引的目录”对话框;
3.在对话框中单击“目录”选项卡,进行相关设置后,单击“确定”按钮,文章的目录自动生成完成。
第2个问题:
目录页码应该与正文页码编码不同。
把光标定位在目录页末,执行“插入/分隔符/下一页/确定”操作,在目录与正文之间插入分页符;
执行“视图/页眉和页脚”命令,把光标定位到正文首页的页脚处,单击“页眉和页脚”工具栏上的“链接到前一个”按钮正文页脚与目录页脚的链接;
执行“插入/页码”命令,在“格式”中选择页码格式、选中“起始页码”为“1”,单击“确定。
至此完成正文的页码插入。 Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
工具——>宏——>VB