分享
 
 
 

三个宏:编号批量前进;错别字替换;将一个总文件按章节来分成小文件

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

'-----------------------编号批量前进---------------------------------------

Sub 批量前进()

'

' 批量后退,这个宏用于将出版书籍时对编号(如图像编号、章节编号)进行整体调整

' 作者 陈刚 glchengang@yeah.net

'

Dim prefix As String

Dim startI As Integer

Dim endI As Integer

Dim spaceI As Integer

prefix = InputBox("前缀", "", "图9.")

startI = InputBox("开始")

endI = InputBox("结束", "", "100")

spaceI = InputBox("前进值", "", "1")

Set myRange = ActiveDocument.Content

For i = startI To endI Step 1

myRange.Find.Execute FindText:=prefix & i, ReplaceWith:=prefix & (i - spaceI), Replace:=wdReplaceAll

Next i

End Sub

'-----------------------错别字替换,用词的统一---------------------------------------

Sub 错别字替换()

'

' 作者 陈刚 glchengang@yeah.net

'

Set myRange = ActiveDocument.Content

myRange.Find.Execute FindText:="做为", ReplaceWith:="作为", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="”→“", ReplaceWith:="→", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="->", ReplaceWith:="→", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="点击", ReplaceWith:="单击", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="部分", ReplaceWith:="部份", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="其它", ReplaceWith:="其他", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="右键快捷菜单", ReplaceWith:="右键菜单", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="附带光盘", ReplaceWith:="随书光盘", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="教师", ReplaceWith:="老师", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="图象", ReplaceWith:="图像", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="xml映射文件", ReplaceWith:="XML映射文件", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="eclipse3.1M4\", ReplaceWith:="", Replace:=wdReplaceAll

End Sub

'----------------------将一个总文件按章节来分成小文件--------------------------------------------------

Sub 分章()

'

' 作者 陈刚 glchengang@yeah.net

'本书一共26章,分四篇,并且每一篇一个目录。在文档后面有一个没有内容的第27章做结束标志。

'在使用此宏分章时,需要将光标定位在第一章的开头和目录的结尾

'

' 得到当前路径

Dim path As String

path = ActiveDocument.path '获得当前打开文档(总文档)的绝对路径

'生成“目录”

Selection.Find.ClearFormatting

Selection.Find.Text = "第1章"

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.HomeKey Unit:=wdStory, Extend:=wdExtend

Selection.Cut

Documents.Add DocumentType:=wdNewBlankDocument

Selection.PasteAndFormat (wdPasteDefault)

ChangeFileOpenDirectory path

ActiveDocument.SaveAs FileName:="目录.doc"

ActiveWindow.Close

'生成其他文件

'得到各章的保存目录。共四个目录

For i = 2 To 27

If (i >= 2 And i <= 6) Then

savePath = path & "\第一篇 起步篇(1-5)\"

ElseIf (i >= 7 And i <= 17) Then

savePath = path & "\第二篇 SWT_JFace篇(6-16)\"

ElseIf (i >= 18 And i <= 23) Then

savePath = path & "\第三篇 插件开发篇(17-22)\"

ElseIf (i >= 24 And i <= 27) Then

savePath = path & "\第四篇 WEB开发篇(23-26)\"

End If

Selection.Find.ClearFormatting

Selection.Find.Text = "第" & i & "章"

Selection.Find.Execute '开始查找

Selection.MoveLeft Unit:=wdCharacter, Count:=1 '相当于按“<-”光标键

Selection.HomeKey Unit:=wdStory, Extend:=wdExtend '相当于按Ctrl+Shift+Home

Selection.Cut '剪切

Documents.Add DocumentType:=wdNewBlankDocument '新建一个空白文档

Selection.PasteAndFormat (wdPasteDefault) '按原格式粘帖

ChangeFileOpenDirectory savePath '设定文件保存目录

ActiveDocument.SaveAs '保存

ActiveWindow.Close '关闭文档

Next i

End Sub

后记:很奇怪CSDN的博客没有粘帖代码的功能。在Java视线的论坛可以粘帖代码,代码关键字都会变颜色,和设置粗体,看起来舒服很多。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有