Question

word及excel中如何查找与替换包含指定文字的行（列）或段？

Answer 1

步骤1、在Microsoft
Office
Excel中打开需要修改的文档；
步骤2、点击顶部菜单中的“开始”，然后点击右上方工具栏中的望远镜（查找和选择）图标；
步骤3、在弹出的下拉菜单中点击“替换”，会弹出“查找和替换”窗口；
步骤4、切换到“替换”，在查找内容后的文本框中输入要被替换的文字，比如要把学生信息统计表格中性格列中的“Male”替换为“男”，则在查找内容输入Male，在替换为后的文本框输入男（不要输入双引号），然后点击”全部替换“，系统提示有10处被替换，参见下图，可以发现不仅Male被替换为了男，连Female也被替换成了Fe男，这显然不是想要的结果；
步骤5、出现步骤4的替换结果的原因是替换的时候没有区分大小写，下面重复步骤4的操作，但记得在查找和替换窗口中点击右下方的”选项“按钮，然后鼠标左键选中“区分大小写”前的小方框即可，此时再点击”全部替换“按钮，系统提示有7处被替换，这次Female没有被替换，因为区分了大小写；
步骤6、和步骤6操作类似，在在查找内容后的文本框输入Female，在替换为后的文本框输入女（不要输入双引号），可以把所有Female替换为女，最后效果参见下图；

Answer 2

不知道你要不要宏，所以只研究了前两题。
第一题：
Sub
查找行内容()
For
i
=
1
To
wdPropertyLines
With
Selection
If
.Start
<>
ActiveDocument.Content.End
-
1
Then
.Find.ClearFormatting
With
.Find
.Text
=
"鲁迅"
End
With
.Find.Execute
.MoveLeft
Unit:=wdCharacter,
Count:=1
.HomeKey
wdLine
.MoveDown
Unit:=wdLine,
Extend:=1
.Range.HighlightColorIndex
=
wdRed
.MoveRight
Unit:=wdCharacter,
Count:=1
End
If
End
With
Next
End
Sub
第二题：
Sub
查找表内容()
For
i
=
1
To
ActiveDocument.Tables.Count
With
Selection
'
.Find.ClearFormatting
With
.Find
.Text
=
"兰州队"
End
With
.Find.Execute
.Range.Rows.Select
.Range.HighlightColorIndex
=
wdRed
.MoveRight
Unit:=wdCharacter,
Count:=1
End
With
Next
End
Sub
那边的题我修改回答，好象不行。就贴这儿吧。
代码的依据的表格式样：A-F是页面的列，第一行是固定标题行，第2-47行是数据行，此后每46行是新页。
首先，设置全部单元格为加粗线，执行代码则会将47、93、139。。。行的下框线加粗。所以，你需要根据你的表格修改代码。不懂的地方HI我。
Sub
Bottomline()
For
i
=
2
To
[A65536].End(xlUp).Row
If
(i
-
1)
Mod
46
=
0
Then
Range("A"
&
i
&
":F"
&
i).Select
Selection.Borders(xlDiagonalDown).LineStyle
=
xlNone
Selection.Borders(xlDiagonalUp).LineStyle
=
xlNone
With
Selection.Borders(xlEdgeBottom)
.LineStyle
=
xlContinuous
.Weight
=
xlMedium
.ColorIndex
=
xlAutomatic
End
With
End
If
Next
End
Sub

Answer 3

在选定区域内替换，只能单击替换命令，不能选择全部替换。对于你前两个问题可以选择替换里的高级替换——格式设置，同样的“段”也可以这样查找与替换，但是列就不行了，我也期待答案。