窗口1_Button1_Click
Dim app As New MSWord.Application
try
'得到模版
Dim fileName =
"test2.doc"
app.Documents.Open(ProjectPath & fileName)
Dim count =
app.Documents(fileName).Characters.Count
Dim rng As
MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)
rng.Select() '全选
rng.Copy() '拷贝
'新建文档
Dim missing =
System.Reflection.Missing.Value
Dim nDoc =
App.Documents.Add(missing, missing, missing, missing)
nDoc.Activate()
'插入文段
Dim idx As
Integer = 0
For Each r As
Row In Tables("表A")
rng =
nDoc.Range(start:=0, End:=0) '从后面前面粘贴
rng.Paste
app.Selection.Find.ClearFormatting()
app.Selection.Find.Text = "[参赛选手]"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = r("参赛选手")
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
app.Selection.Find.ClearFormatting()
app.Selection.Find.Text = "[辅导老师]"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = r("辅导老师")
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
app.Selection.Find.ClearFormatting()
app.Selection.Find.Text = "[学校]"
app.Selection.Find.Replacement.ClearFormatting()
app.Selection.Find.Replacement.Text = r("学校")
app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
idx += 1
Next
nDoc.SaveAs("d:\test88.doc")
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
Dim proc As New Process
proc.File = "d:\test88.doc"
proc.Start
代码中只有字符引用的代码，图片引用的代码如何请指教。
另外，代码中的idx += 1是什么作用
加好友 
发短信
Post By：2013/1/14 17:45:00 [只看该作者]
