当前位置：文档库 › 文档整理工具终结版代码

文档整理工具终结版代码

'2009元宵终极完美版

Sub 一键表格转文本()

'一键表格转文本

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=True

End Sub

Sub 清除选区格式()

' 清除选区格式

Selection.ClearFormatting

End Sub

Sub 一键整理_Word格式()
'
'一键整理通用文档：标准Word 格式

Call 清除选区格式
Call 一键整理文档_网页格式

End Sub

Sub 一键整理文档_网页格式()
'
'一键整理网页：保留网页格式

Call 智能清除选区软回车
Call 清除选区段首2字空格
Call 清除选区2单字节空格
Call 清除选区Tab
Call 清除选区多余空段
Call 选区段首缩进2字
Call 合并选区多余分段

End Sub

Sub 智能清除选区软回车()
'
' 智能清除选区软回车

With Selection.Find
.Text = "?^l"
.Replacement.Text = "^&^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^1^l"
.Replacement.Text = "^&^p"
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^l"
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清除选区多余空段()
'
' 清除选区多余空段（233223222）

With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p "
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wd

ReplaceAll

With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 合并选区多余分段()

' 合并选区中“，”结束的多余分段

With Selection.Find
.Text = "，^p"
.Replacement.Text = "，"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "、^p"
.Replacement.Text = "、"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清除选区单字节空格()

' 清除选区单字节空格

With Selection.Find
.Text = " "
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清除选区2单字节空格()

' 清除选区单字节空格

With Selection.Find
.Text = " "
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清除选区1字空格()

' 清除选区1字空格
With Selection.Find
.Text = "　"
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清除选区段首2字空格()

' 清除选区段首2字空格

With Selection.Find
.Text = " "
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清除选区Tab()

' 清除选区Tab

With Selection.Find
.Text = vbTab
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 增加选区空格()
'
' 增加选区空格

With Selection.Find
.Text = "　"
.Replacement.Text = " "
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 选区段首无缩进()
'
' 选区段首缩进0字

With Selection.Find
.Text = "　"
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0) '左缩进0字符
.RightIndent = CentimetersToPoints(0) '右缩进0字符
.FirstLineIndent = CentimetersToPoints(0) '首行缩进点0公分
.CharacterUnitLeftIndent = 0 '左缩进单位0字符
.C

haracterUnitRightIndent = 0 '右缩进单位0字符
.CharacterUnitFirstLineIndent = 0
End With

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0) '左缩进1字符
.RightIndent = CentimetersToPoints(0) '右缩进2字符
.FirstLineIndent = CentimetersToPoints(0) '首行缩进点0.35公分
.CharacterUnitLeftIndent = 0 '左缩进单位0字符
.CharacterUnitRightIndent = 0 '右缩进单位0字符
.CharacterUnitFirstLineIndent = 0
End With

End Sub

Sub 选区段首缩进2字()
'
' 选区段首缩进:2字

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0) '左缩进1字符
.RightIndent = CentimetersToPoints(0) '右缩进2字符
.FirstLineIndent = CentimetersToPoints(0.35) '首行缩进点单位公分
.CharacterUnitLeftIndent = 0 '左缩进单位0字符
.CharacterUnitRightIndent = 0 '右缩进单位0字符
.CharacterUnitFirstLineIndent = 2
End With

End Sub

Sub 选区段首缩进转空格()
'
' 选区段首缩进转空格—已完美

Selection.InsertParagraphBefore

Call 选区段首无缩进

With Selection.Find
.Text = "^p"
.Replacement.Text = "^p "
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Delete

With Selection.Find
.Text = " ^p"
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 选区段后间距1行()
'
' 选区段后间距1行

Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
Selection.ParagraphFormat.LineUnitAfter = 1

End Sub

Sub 选区段前段后间距半行()
'
' 选区段后间距1行

Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
Selection.ParagraphFormat.LineUnitBefore = 0.5
Selection.ParagraphFormat.LineUnitAfter = 0.5

End Sub

Sub 选区段前段后无间距()
'
' 选区段后间距1行

Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
Selection.ParagraphFormat.LineUnitBefore = 0
Selection.ParagraphFormat.LineUnitAfter = 0

End Sub

Sub 清除选区图片()
'
' 清除选区图片

With Selection.Find
.Text = "^1"
.Replacement.Text = ""
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 选区硬回车转软回车()
'
' 选区硬回车转软回车

With Selection.Find
.Text = "^p"
.Replacement.Text = "^l"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 清

除选区软回车()
'
' 清除选区软回车

With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 合并选区段落()
'
' 合并选区段落

With Selection.Find
.Text = " "
.Replacement.Text = ""
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^p"
.Replacement.Text = "^l"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Paragraphs.Add '添加段落符号

End Sub

Sub 选区空格转硬回车()

' 选区空格转硬回车

With Selection.Find
.Text = "　"
.Replacement.Text = "^p"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 选区标点半角转全角()

' 选区标点半角转全角

With Selection.Find
.Text = ","
.Replacement.Text = "，"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ";"
.Replacement.Text = "；"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ":"
.Replacement.Text = "："
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "?"
.Replacement.Text = "？"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "!"
.Replacement.Text = "！"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "......"
.Replacement.Text = "……"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "."
.Replacement.Text = "。"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 选区标点全角转半角()

' 选区标点全角转半角

With Selection.Find
.Text = "，"
.Replacement.Text = ","
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "；"
.Replacement.Text = ";"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "："
.Replacement.Text = ":"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "？"
.Replacement.Text = "?"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "！"
.Replacement.Text = "!"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "……"
.Replacement.Text = "......"
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "。"
.Replacement.Text = "."
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 选区中文句号转半角()

' 选区中文句号转半角

With Selection.Find
.Text = "。"
.Replacement.Text = "."
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub 标题1()

Selection.Style = ActiveDocument.Styles("标题 1")
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub

Sub 标题2()

Selection.Style = ActiveDocument.Styles("标题 2")
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub

Sub 标题3()

Selection.Style = ActiveDocument.Styles("标题 3")
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub

Sub 标题4()

Selection.Style = ActiveDocument.Styles("标题 4")
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub

Sub 标题5()

Selection.Style = ActiveDocument.Styles("标题 5")
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub

Sub 横向居中()

Call 选区段首无缩进
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub

'************2009春节元宵终结版*****************