IT数码

圈子描述：Java程序设计交流区

圈主：jake

副圈主：

WORD宏批量修改 0/?

标签: word 宏

今天从某数据库导出700多条数据，需要导入到当前系统，因为数据库中牵扯到逐渐(自增长)，原来数据的逐渐都已经存在，就需要修改700条数据的逐渐，很累。就想起来word的宏，

新建一个红，

Sub 批量修改()

' 批量修改宏

Dim paste As String

Dim index As Integer

index = 3512

paste = "values (seq_t_code.nextval"

For i = index To 4286

With Selection.Find

.Text = "values (" + CStr(i)

.Forward = True

.Wrap = wdFindContinue

.MatchWholeWord = True

Selection.Find.Execute

.Replacement.Text = paste

.Execute Replace:=wdReplaceAll

End With

Next i

End Sub

因为原表中主键从3512开始，到4286结束，需要修改成oracle中的seq_t_code.nextval。

执行，OK。

其他部分数据，手动修改即可。

我是美丽签名档

分享 | 引用 | 回复 | 发表时间:2008-06-26