UC知道追加400分，急求编辑一个简单宏，请教word高手~
来源：百度知道 编辑：UC知道 时间：2024/05/31 10:34:01
在做区域统计，从网页上把地域复制下来
从word内排成竖列再一起复制到Excel内
网上下的格式是这样的，有两个字的地区，有三个字的地区
还有其它多字的
：元坝镇、卫子镇、家镇、磨滩镇、柏林沟镇、太公镇、虎跳镇、红岩镇、昭化镇、晋贤乡、文村乡、清水乡、张家乡、香溪乡、青牛乡、陈江乡、丁家乡、黄龙乡、石井铺乡、白果乡、梅树乡、明觉乡、射箭乡、朝阳乡、大朝乡、沙坝乡、柳桥乡、子云乡；拣银岩社区街道。
求高手编辑一个可以删除段落内顿号的word宏，并可以把每个地区名排成一行便于直接粘贴到EXcel内如：
陵江镇
云峰镇
东青镇
白桥镇
八庙镇
五龙镇
永宁镇
鸳溪镇
万分感谢！
从word内排成竖列再一起复制到Excel内
网上下的格式是这样的，有两个字的地区，有三个字的地区
还有其它多字的
：元坝镇、卫子镇、家镇、磨滩镇、柏林沟镇、太公镇、虎跳镇、红岩镇、昭化镇、晋贤乡、文村乡、清水乡、张家乡、香溪乡、青牛乡、陈江乡、丁家乡、黄龙乡、石井铺乡、白果乡、梅树乡、明觉乡、射箭乡、朝阳乡、大朝乡、沙坝乡、柳桥乡、子云乡；拣银岩社区街道。
求高手编辑一个可以删除段落内顿号的word宏，并可以把每个地区名排成一行便于直接粘贴到EXcel内如：
陵江镇
云峰镇
东青镇
白桥镇
八庙镇
五龙镇
永宁镇
鸳溪镇
万分感谢！
帮你录了一个：
Sub Macro1()
'
' Macro1 Macro
' 宏在 2007-8-2 由 www 录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "、"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
这个不用宏就可以轻松完成，把地名存为.txt文件，然后用excel打开，会出现导入向导．步骤1，选”分隔符号”，下一步；步骤2，分隔符号选”其他："输入“、”；然后下一步，完成就可以了。
这样就在第一行得到地名，然后再复制，转置，就可以把行变成列。
如果在操作上有问题，给我发消息。
附属的 Macro1()
'
' Macro1 句集
' 棒的在 2007-8-2 是 www 的记录
'
Selection.Fin