请问：如何创建Word文档并且存储到指定的文件夹

要能将TextBox1的文字作为该文档的名称；

非常感谢您！

正是我想要的，

但我不理解这样的用法。能否给代码加上说明？想好好学习一下！

窗口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是什么作用