这里我用到了一个工具,是在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