坐井观☜ wangjie335033
关注数: 16 粉丝数: 30 发帖数: 412 关注贴吧数: 51
word vba 中怎样选择文尾两行? 选择文尾两行用word不能录,想做个自动调整格式的宏,就差调整日期和名字的了,大神帮忙,谢谢 代码如下 Private Sub CommandButton1_Click() Selection.WholeStory Selection.Font.Name = "黑体" Selection.Font.Size = 16 Selection.WholeStory '全选文档 Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(1.2) ' 选定区域的首行缩进设置为0.74cm Content = InputBox("请输入标题行有几行", "请输入", "") '设置首行格式(也即是标题格式) Selection.HomeKey Unit:=wdStory '移至文首 Selection.EndKey Unit:=wdLine, Extend:=wdExtend '选中首行 Selection.ClearFormatting '清除首行格式 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '设置首行居中对齐 'Selection.ParagraphFormat.LineUnitBefore = 1 '设置首行段前间距1行 'Selection.ParagraphFormat.LineUnitAfter = 1 '设置首行段后间距1行 Selection.Font.Name = "黑体" '设置首行字体为“微软雅黑” Selection.Font.Size = 22 '设置首行字号为18号 Selection.Font.Bold = wdToggle '设置首行字形为加粗 Selection.EndKey Unit:=wdLine '移至首行末尾 dim i As Paragraph, n As Long Application.ScreenUpdating = False '关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环 If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档 i.Range.Delete '进行必要的修改可将任意长度段落删除 n = n + 1 '计数 End If Next MsgBox "共删除空白段落" & n & "个!" Application.ScreenUpdating = True '恢复屏幕刷新 End Sub
关于“车门看票”   更多铁路评论请登陆 中国铁道论坛(http://b “车门看票”只要简单的换位思考。我们的大环境就会好很多!各界通勤职工身心的苦和累我们理解,同时也需要通勤职工理解客运人员,同是劳苦大众就不要窝里斗了!别上车不让看票。别在车厢内吸烟。别站停时上厕所。别让客运人员的按章办事换来你们的无视、辱骂、威胁甚至攻击!总之,请自觉遵守客运规章,别让其他旅客因看到你们的行为而对铁路产生“恨”!这样外界百姓才会觉得铁路是有规矩、有方圆的企业,才会从心底看得起铁路,才会真正理解和遵守铁路的规章制度,铁路的客货运输才会平稳有序的发展!车门看票的重要性你们看到了吗?车门看票是客运部门与旅客的第一次接触,如果第一项原则都贯彻不下去,那么与旅客运输有关的一切政策、规章在旅客眼里都失去了必须遵守的必要性。特别是对铁路本身就有成见的旅客,会更加藐视甚至肆意违反规章制度,并以此为快,坐车不只是坐车,而是“坐车+发泄”!长此这样,论路风,客运人员在旅客和领导之间两面蒙冤;论安全,好多因旅客不遵章导致的安全隐患客运人员无能为力!细节决定成败!类似车门看票的我们早就应该预见!在广大百姓看来,很大程度上,客运部门的尊严就是铁路的尊严!所以,要真正落实安全、落实服务,先让客运人员能毫无顾虑的看票吧,先让客运人员能毫无顾虑的制止违章吧!!!再次呼吁同事和旅客们的内心各种文明化的要素,谢谢!
关于加开部分旅游列车的通知 一、2011年5月3日大同—太原加开Y125次(大同3:16K、怀仁3:56D/58K 、岱岳4:31D/33K、朔州5:10D/14K、宁武5:52D/55K、原平7:11D/17K、忻州7:46D/50K、太原9:35D/48K);5月3日太原—昆明加开Y128/5次;5月13日昆明—太原加开Y126/7次;5月15日太原—大同加开Y126次(太原10:36D/54K、忻州12:08D/14K、原平12:44D/54K、宁武14:37D/40K、朔州15:15D/19K、岱岳15:52D/54K、怀仁16:29D/31K、大同17:16D)。列车使用普通非空调车型,列车乘务工作由太原客运段、太原车辆段、大同铁路公安处担当。   列车编组,大同开机次:YW1(宿)、RW4(32)、YW1(广54)、CA1、YW7(60)计14辆,车厢顺号,大同开1—14。列车经由北同蒲、石太客专、京广、新焦、焦柳、沪昆线运行,车辆构造速度为120km/h。   Y128/5次在怀仁、岱岳、朔州、宁武、原平、忻州、太原、阳泉北、石家庄北站停车办理团体旅客乘降业务。   Y126/7次在石家庄北、阳泉北、太原、忻州、原平、宁武、朔州、岱岳、怀仁站停车办理团体旅客乘降业务。   Y125/6次太原—大同间机车乘务工作由太原机务段担当。   二、2011年5月8日大同—太原加开Y101次(大同5:59K、朔州7:53D/57K、原平10:00D/06K、忻州10:35D/39K、太原11:52D/12:08K);5月8日太原—深圳加开Y104/1次;5月13日深圳—九江加开Y102/3次;5月15日九江—太原加开Y102/3次;5月16日太原—大同加开Y102次(太原14:17D/30K、忻州15:49D/55K、原平16:25D/33K、宁武17:40D/43K、朔州18:24D/32K、大同20:17D)。列车使用普通非空调车型,列车乘务工作由太原客运段、太原车辆段、大同铁路公安处担当。   列车编组,大同开机次:YW1(宿)、YW1(广54)、YW6(60)、RW2(32)、CA1、YW7(60)计18辆,车厢顺号,大同开1—18。列车经由北同蒲、石太客专、石德、京九、广九线运行,车辆构造速度为120km/h。   Y104/1次在朔州、原平、忻州、太原、阳泉北、石家庄北站停车办理团体旅客乘降业务。   Y102/3次在石家庄北、阳泉北、太原、忻州、原平、朔州站停车办理团体旅客乘降业务。   Y101/2次太原—大同间机车乘务工作由太原机务段担当。
1 下一页