word 表格第一列查找替换

土豆刺客 · 发表于 2018-11-22 23:30

只对word第二个表格的第一列进行查找替换。把第二个表格第一列中的冒号统统删除，如何操作啊，录制宏老不成功。

413191246se · 发表于 2018-11-23 00:43

Sub test()
ActiveDocument.Tables(2).Columns(1).Select
Selection.Find.Execute "[：:]", , , 1, , , , , , "", 2
End Sub

复制代码

201228 · 发表于 2018-11-23 14:22

大神就是大神，word宏代码都能写出来

ming0018 · 发表于 2018-11-23 15:00

大神就是大神，word宏代码都能写出来

413191246se · 发表于 2018-11-23 23:48

ming0018 老师是大神！杜先生是大神！loquat 老师是大神！守柔版主是大神！还有，我不熟悉的一些高人也是大神！……我可不是啊！我是试了好几遍的。

土豆刺客 · 发表于 2018-11-25 19:35

413191246se 发表于 2018-11-23 23:48
ming0018 老师是大神！杜先生是大神！loquat 老师是大神！守柔版主是大神！还有，我不熟悉的一些高 ...

我现在再试试

土豆刺客 · 发表于 2018-11-25 19:38

413191246se 发表于 2018-11-23 00:43

运行好像把第二列的也清除掉了

土豆刺客 · 发表于 2018-11-25 20:35

土豆刺客发表于 2018-11-25 19:35
我现在再试试

ActiveDocument.Tables(2).Columns(1).Select
' Selection.Find.ClearFormatting
' Selection.Find.Replacement.ClearFormatting
With Selection.Find
      .Text = "："
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

解决了  .Wrap = wdFindStop 录制宏后关键改这一句

413191246se · 发表于 2018-11-25 23:09

楼主，你重新试试，真的是我错了吗？（我有点儿不信。）

		自动登录	找回密码
密码			免费注册

[求助] word 表格第一列查找替换