Sub Macro3()
'
Dim x As Integer, y As Range
If Selection.Type = 2 Then
For Each y In Selection.Words
If y Like "#*" = True Then
y.Font.Superscript = True
End If
Next y
Else
MsgBox "请选定文本。", vbOK + vbInformation
End If
End Sub
在你电脑桌面上-右键-属性-外观-高级-项目-窗口-颜色-其它，色调设为85，饱和度设为123，亮度设为205。然后单击[添加到自定义颜色]-确定...一路确定。然后，打开浏览器，点击“工具”，点“INTERNET”选项，点右下角的“辅助功能”，然后勾选“不使用网页中指定的颜色”。点确定退出。这样所有的文档都不再是刺眼的白底黑字,而是非常柔和的豆沙绿色 。
这个是色调是眼科专家配置的。开始可能会有一点不适应，但长时间使用会很有效的缓解眼睛疲劳。可以试试！我就是这样用的,很适合长久的看网页等,有一定的效果,但还是过一小时到外面远眺一下风景好些,怎么设置都是要伤眼睛的,只是多与少的问题,长时间看书都对眼睛不好，何况电脑呢！！
如果我们要打印出一个Excel工作表，而这张表格有多页，如何让第一页以后的每一页都自动加上与第一页相同的表头呢？
可以这么做：单击“文件”菜单下的“页面设置”命令，弹出“页面设置”对话框；单击“工作表”选项卡，在“打印标题”下“顶端标题行”右边文本框中单击鼠标左键，出现闪烁光标后，在Excel表用鼠标左键选择表头所在行，最后选择“确定”即可。
这样，Excel就会自动为第一页后面的表格加上统一表头了。
看了dazhuer的模板感觉挺好的于是就照样子仿了wp的这个风格。大部分都是自己仿的和大猪的表面几乎一样。有什么不同大家自己看！
自09年2月底，到现在，山东菏泽地区多个县区发生广泛严重的手足口病疫情，当地政府也采取了一些宣传预防措施，但没有从根本上控制好疫情的广泛传染，也没有及时上报采取更严格的防治措施，已死亡几十个小孩子，都是5岁以下的婴幼儿，我家的亲戚一个不到一周岁的男孩今天上午去济宁市人民医院抢救到晚上7点多，但没有抢救过来，因并发严重的肺水肿而眼睁睁离去......我是刚到得到家里电话，无语中.......可是内地的各大网站这方面的一点消息都没有，再次我呼吁全国负责任各大媒体网站，去我们那里实际采访调查一下，促进当地政府加大力气采取更切实的措施来防治这个疫情，并警示全国各地都重视现在的这个情况。不信请到网页上搜索一下09年山东菏泽手足口病疫情的信息，为什么国内各大网站都不公开报道宣传这件事呢！我是山东菏泽市巨野县的，悲愤无奈中......菏泽.济宁的各大医院都住满了住院治疗的手足口病的孩子，还有好多没有被重视发现的，为什么不能公开宣传报这是我从网页搜索的一些网友的在各个论坛的发帖，还有，没想这次病魔会找到我们的亲人.....
道呢！救救孩子啊！！！！！『天涯互助-汶川地震』 [亲身经历]非典之痛，在山东省菏泽市延续！！！
一位不愿透露姓名的梁屯医疗合作社的负责人说，我们也急啊，可上面有死命令啊，要不然会吃不了兜着走啊！
1、急性起病，发热；
2、口腔粘膜出现散在疱疹，米粒大小，疼痛明显；
3、手掌或脚掌部出现米粒大小疱疹，臀部或膝盖偶可受累；
4、疱疹周围有炎性红晕，疱内液体较少；
5、部分患儿可伴有咳嗽、流涕、食欲不振、恶心、呕吐、头疼
最新评论及回复