想批量修改Word内的第一列的数字，后面加上对勾

madao881213 · 发表于 2017-12-29 14:18

本帖最后由 madao881213 于 2017-12-29 20:04 编辑

想一键把类似附件中的原地及调查表改成附件中地籍调查表的模样

duquancai · 发表于 2017-12-29 18:35

没看懂。。。。。。。。。。。。。。。。。。。。。。

madao881213 · 发表于 2017-12-29 19:50

本帖最后由 madao881213 于 2017-12-29 19:51 编辑

duquancai 发表于 2017-12-29 18:35
没看懂。。。。。。。。。。。。。。。。。。。。。。

这是原始表格，变成这样

madao881213 · 发表于 2017-12-29 19:53

这是原始模样，一键变成

madao881213 · 发表于 2017-12-29 19:54

不好意思，附件传错了，希望谅解

duquancai · 发表于 2017-12-29 19:56

madao881213 发表于 2017-12-29 19:54
不好意思，附件传错了，希望谅解

那就重新传附件。。。。还有“最后的J1不用打对勾”这句话不懂啥意思？？？？？？？？？？？

madao881213 · 发表于 2017-12-29 20:06

duquancai 发表于 2017-12-29 19:56
那就重新传附件。。。。还有“最后的J1不用打对勾”这句话不懂啥意思？？？？？？？？？？？

已经更改，望不吝赐教

duquancai · 发表于 2017-12-29 20:07

madao881213 发表于 2017-12-29 20:06
已经更改，望不吝赐教

“最后的J1不用打对勾”这句话不懂啥意思？？？？？？？？？？？

madao881213 · 发表于 2017-12-29 20:11

本帖最后由 madao881213 于 2017-12-29 20:13 编辑

duquancai 发表于 2017-12-29 20:07
“最后的J1不用打对勾”这句话不懂啥意思？？？？？？？？？？？

因为界址点那一列有两个J1，第一个J1后两格已经打对勾，第二个J1后边两格就不用打对勾了

duquancai · 发表于 2017-12-29 20:22

madao881213 发表于 2017-12-29 20:11
因为界址点那一列有两个J1，第一个J1后两格已经打对勾，第二个J1后边两格就不用打对勾了

“最后的J1不用打对勾”我也不想管了。不懂。。。。。。
请测试如下代码

Sub test()
Dim t As Table, d As Document, c As Cell
Set d = ActiveDocument
For Each t In d.Tables
      For Each c In t.Range.Cells
         If c.ColumnIndex = 1 Then
            With c.Range
                  .End = .End - 1
                  If Len(.Text) * IsNumeric(.Text) Then
                     .InsertBefore "J"
                     .Move wdCell, 3: .Text = "√"
                  End If
            End With
         End If
      Next
Next
End Sub

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

[求助] 想批量修改Word内的第一列的数字，后面加上对勾