[开_45] 基础操作题★★★（已总结）

如意 · 发表于 2005-6-29 20:10

特别注明：本题目是WORD的基础试题，因此不得使用VBA来解决。凡使用VBA解决者，答案作废。

本题有两部分：

一、按下图的要求自己做一个模版，将你最后做题的答案放在此模版里打包发上来。

9xmgZumj.rar (4.22 KB, 下载次数: 388)

[此贴子已经被作者于2005-7-21 8:49:02编辑过]

来生缘 · 发表于 2005-6-29 20:20

用EXCEL做还是用word做呀?

守柔 · 发表于 2005-6-29 20:33

我觉得来生缘兄，你要是用EXCEL做出来，我同如意版主商量一下，给你一个最佳球员奖，应该没有问题吧！

来生缘 · 发表于 2005-6-29 21:14

如果用EXCEL做成图一那个像封面的样子应该可以吧（不过，我好似没读懂题意，不知道图一有什么功能）

图二的拼音不懂

如意 · 发表于 2005-6-29 22:15

图一是考大家对WORD窗体的使用，以及对文档进行保护的一些基础知识。大家可以根据个自的审美观来美化该模版。

图二是考考大家对查找替换以及一些WORD基础操作的熟练操作。

rylane · 发表于 2005-6-30 08:23

真的感觉用EXCEL做比WORD做要容易，哈，随便说说了。

有些地方做起来不难，有些就根本不会了，我还是等答案，如果这题我全会了，那我的WORD就又上一个新台阶了。等。。。

apolloh · 发表于 2005-6-30 08:32

以下是引用rylane在2005-6-30 8:23:47的发言：

真的感觉用EXCEL做比WORD做要容易，哈，随便说说了。

有些地方做起来不难，有些就根本不会了，我还是等答案，如果这题我全会了，那我的WORD就又上一个新台阶了。等。。。

[em04]

konggs · 发表于 2005-6-30 09:53

版主，全部做完了，第一吧。高兴好一阵了。

我不知道你的邮箱，怎传给你，只好上传论坛了。

mzot1V8l.rar (6.13 KB, 下载次数: 205)

[此贴子已经被作者于2005-6-30 9:56:55编辑过]

konggs · 发表于 2005-6-30 11:07

第一题不用说了吧，比较简单。（谢谢版主的节提醒）

第二题答案：

先把不要的内容删除。 1.直接删，或用 sub delpargraphs()

Sub delparagrph() Dim a As Paragraph Application.ScreenUpdating = False On Error Resume Next Application.ScreenUpdating = False For Each a In ActiveDocument.Paragraphs If Len(a.Range) <> 7 And Len(a.Range) <> 9 Then a.Range.Delete '删除不是7或9的段落，即不是五言绝句或七言绝名的段落 End If Next End Sub

再用查找“?^13”替换为“”删掉不要的回车前的“，”和”。”及所有的回车符。

代码为：

With ActiveDocument .Content.find.Execute findtext:="?^13", replacewith:="", MatchWildcards:=True, Replace:=wdReplaceAll End With

再全选，选择格式/中文版式/拼音指南，为所有的加了拼音。

再全选，选复制，再选选择性粘贴/无文本格式。出现汉字加后面代（拼音）的样式。

再用查找” ( “，替换为“,”（此处为短号，就是用于分隔的） ----若此步略了，则再后一步应为先转为表格。再用修改样式）

再查找“）”，替换为“^p”回车，

代码为：

With ActiveDocument .Content.find.Execute findtext:="）", replacewith:="^p", Replace:=wdReplaceAll End With

再全选，选表格/表格自动套用格式/流行/修改样式/表格线选全部。

[此贴子已经被作者于2005-7-9 12:24:27编辑过]

sheep204 · 发表于 2005-6-30 12:41

没有页眉和花边的图片怎么办呀？能用其他的代替吗？

		自动登录	找回密码
密码			免费注册

[Word 应用与开发] [开_45] 基础操作题★★★（已总结）