主题：如何在word文档中插入表中的合同编号？

参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc As Object = app.Documents.Open(fileName)
   

    app.ActiveWindow.Selection.WholeStory
    If app.ActiveWindow.Selection.Find.Execute("[列名]")  Then
        app.ActiveWindow.Selection.TypeText(Text:="编号123")
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)   
app.Quit
finally
    'app.Quit
End try