如何将文档中的编号自动生成？

壹号公馆 · 发表于 2021-9-1 13:15

本帖最后由壹号公馆于 2021-9-9 14:06 编辑

如何在word文档中任意生成8位数合同编号？求助？

daibao88 · 发表于 2021-9-1 17:37

利用时间戳，还是唯一的

壹号公馆 · 发表于 2021-9-1 20:24

daibao88 发表于 2021-9-1 17:37
利用时间戳，还是唯一的

求解，师傅你帮我做一份，谢谢！

daibao88 · 发表于 2021-9-2 10:08

Sub 合同编号()
Dim bh As Long, rg As Range
bh = VBA.Left(VBA.DateDiff("s", #1/1/1970 8:00:00 AM#, Now()), 8)
With ActiveDocument.Range.Find
      .ClearFormatting
      .Text = "合同编号:（ "
      .Execute
      If .Found = True Then
         Set rg = Selection.Range
         ActiveDocument.Range(rg.End, rg.End).InsertAfter bh
      End If
End With
End Sub

daibao88 · 发表于 2021-9-2 10:11

编号同一分钟内会重复，审核中

壹号公馆 · 发表于 2021-9-2 12:53

daibao88 发表于 2021-9-2 10:11
编号同一分钟内会重复，审核中

谢谢，但是文档插入宏后，运行不了，不知道怎么回事？
再麻烦师傅把文档制作好发我，非常感谢！

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

[求助] 如何将文档中的编号自动生成？

评分