请问各位老师如何把空格一次填上“无”字？

chenxuemin0815 · 发表于 2014-7-15 11:10

请问各位老师如何把空格一次填上“无”字？
ZJP$DMC4O4YVIRWE30Q(AA9.jpg

快速填充.rar (8.12 KB, 下载次数: 7)

413191246se · 发表于 2014-7-15 11:47

在表格下面打一个“的”字，然后剪切，然后点击“表格菜单”——选择——表格——粘贴，OK

chenxuemin0815 · 发表于 2014-7-15 12:07

413191246se 发表于 2014-7-15 11:47
在表格下面打一个“的”字，然后剪切，然后点击“表格菜单”——选择——表格——粘贴，OK

chenxuemin0815 · 发表于 2014-7-15 15:13

413191246se 发表于 2014-7-15 11:47
在表格下面打一个“的”字，然后剪切，然后点击“表格菜单”——选择——表格——粘贴，OK

请问可以用“宏”完成吗？

dajiahaoxinku12 · 发表于 2014-7-15 16:24

Sub 填充()
For Each rg In ThisDocument.Tables(1).Range.Cells
      If rg.Range.End - rg.Range.Start = 1 Then
         rg.Range = "无"
      End If
Next
End Sub

chenxuemin0815 · 发表于 2014-7-15 16:50

dajiahaoxinku12 发表于 2014-7-15 16:24
Sub 填充()
For Each rg In ThisDocument.Tables(1).Range.Cells
If rg.Range.End - rg.Rang ...

运行宏后显示如下内容：
4B3RSHDG3MONFE%GTM4D008.jpg

dajiahaoxinku12 · 发表于 2014-7-15 16:53

………………………………………………………………………………

banjinjiu · 发表于 2014-7-15 17:25

本帖最后由 banjinjiu 于 2014-7-15 17:26 编辑

原理：
1、用代码先选择表格（不是手工的）。
2、如果表格有空的，就填充“无”。

Sub 填充2()
ActiveDocument.Tables(1).Select
For Each rg In ThisDocument.Tables(1).Range.Cells
If rg.Range.End - rg.Range.Start = 1 Then
rg.Range = "无"
End If
Next
End Sub

复制代码

试过了，很灵的！已经测试成功！

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

[求助] 请问各位老师如何把空格一次填上“无”字？

评分