[求助]不知能否实现

yigepure

请问Word中怎么删除掉前面有加号(+)的行

例如文件内容是这样：

我的家 +我的中国 +msn excelhome

守柔

请确认是第一个字符带“+”的行，而非段落。

以下代码同样适用于行和段落起始。（如果是段落，则更为方便，可用查找替换）

Sub LineCount() Dim i As Integer, LineCount As Integer, Range1 As Long, Range2 As Range, l As String On Error Resume Next Application.ScreenUpdating = False With CommandBars("Word Count") .Visible = True .Controls(2).Execute l = .Controls(1).List(6) .Visible = False End With LineCount = Int(Mid(l, 1, Len(l) - 1)) With Selection .GoTo what:=wdGoToLine, which:=wdGoToLast For i = LineCount To 1 Step -1 .EndKey unit:=wdLine, Extend:=wdExtend If .Text Like "+*" = True Then .Range.Delete: .HomeKey unit:=wdLine, Extend:=wdExtend .GoTo what:=wdGoToLine, which:=wdGoToPrevious Next End With Application.ScreenUpdating = True End Sub

smart1078

我的方法：

For i = 1 To ActiveDocument.Paragraphs.Count Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:="+" If myRange.Find.Found = True Then Selection.Find.Execute FindText:="+" Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 End If Next

建议把“+”标志改为其他不容易有重名的符号，否则容易错误替换

守柔

以下是引用smart1078在2004-10-19 8:57:00的发言：

我的方法：

For i = 1 To ActiveDocument.Paragraphs.Count Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:="+" If myRange.Find.Found = True Then Selection.Find.Execute FindText:="+" Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 End If Next

建议把“+”标志改为其他不容易有重名的符号，否则容易错误替换

即使假如楼主说的是行,算它是段落好的,直接用WORD的查找替换功能即可完成:

先将段落标记替换为手动换行符,即查找:^p,替换为:^l,全部替换

再查找:选中使用通配符:查找:+*^l(意思为以"+"开头的任意手动换行的区域),替换为:"",空空,什么也不要输入,全部替换即可

最后再将手动换行符替换为段落标记:即查找:^l,替换为:^p,全部替换.

[此贴子已经被作者于2004-10-19 9:37:55编辑过]

yigepure

呵呵,版主的回复真是精典.特别是关于替换段落的这个"查找和替换"方法用的是随心所欲.真是佩服.

[em23][em17][em23]