VB中关于word给文本框插入数据

这里我用到了一个工具，是在word中插入带有名称的文本框这样可以迅速找到对应的文本框插入数据，工具链接：https://pan.baidu.com/s/1FtftRezCtt9J9OmbZEdSIg

首先打开word和工具，点击加载word按钮，就可以了，然后可以创建带有名称的文本框

接着就是代码实现了

Imports System.IO
Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop
Module Module1

    Sub Main()
        Dim wordfileName As String
        Dim commandLine As String
        Dim commandArray() As String
        Dim AttrShapes As Object
        commandLine = Command()
        commandArray = Split(commandLine, ",")
        wordfileName = commandArray(0)

        Dim buffer As String
        Dim data As String = ""
        Dim sr As StreamReader = New StreamReader(commandArray(1), System.Text.Encoding.Default)
        Do While sr.Peek() > 0
            Buffer = sr.ReadLine()
            data = data + buffer + Chr(10)
        Loop
        sr.Close()
        sr = Nothing

        Dim wordApp As Object
        Try
            wordApp = GetObject(Nothing, "Word.Application")
        Catch ex As Exception
            wordApp = CreateObject("Word.Application")
        End Try
        wordApp.Visible = False

        Dim wDoc As Word.Document
        wDoc = wordApp.Documents.Open(wordfileName)
        AttrShapes = wDoc.Shapes
        For Each bb As Object In AttrShapes
            If (bb.Name = "TC流程签署") Then
                bb.Select()
                wordApp.Selection.TypeText(data)
            End If
        Next
        wDoc.Close(SaveChanges:=True)   '关闭并保存
        wordApp.Quit()
    End Sub

End Module