Dim wj As String
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Word文件|*.docx|Word文件|*.doc" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
wj = dlg.FileName
Dim app As New MSWord.Application
Dim doc As object = app.Documents.Open(wj)
'***************文字替换
app.Selection.Find.Text = "<#业主名称#>"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = e.Form.Controls("业主名称").text
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
'***************文字替换
app.Selection.Find.Text = "<#项目名称#>"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = e.Form.Controls("项目名称").text
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
'***************文字替换
app.Selection.Find.Text = "<#项目建设地#>"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = e.Form.Controls("项目建设地").text
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
加好友 
发短信
Post By：2020/8/31 0:50:00 [只看该作者]
