- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]word中文字替换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153988)
-- 发布时间：2020/8/31 0:50:00
-- [求助]word中文字替换
老师，你好！
如题,烦请看看以下代码，怎么出现“未将对象引用设置到对象的实例”的错误信息。
Dim wj As String
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Word文件|*.docx|Word文件|*.doc" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
wj = dlg.Filter
End If
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)
doc.save
app.Quit
-- 发布时间：2020/8/31 1:35:00
--
老师，类似语句在其它word中用过，好像没问题，看看是不是word文件（无法上传，“错误：文件类型不正确! ”）本身有啥问题？谢谢！！
-- 发布时间：2020/8/31 8:34:00
--
word文件压缩后上传看看
-- 发布时间：2020/8/31 10:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:文件.zip |
-- 发布时间：2020/8/31 10:41:00
--
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)
doc.save
app.Quit
End If
-- 发布时间：2020/8/31 11:57:00
--
谢谢！！