主题：如何创建WORD文档并且存储到指定的文件夹

以下是引用cxabc123在2013-9-1 22:01:00的发言：
把图片装进表格，对 表格长高锁定就可以了

以下是引用cxabc123在2013-8-31 15:28:00的发言：

 

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

以上代码有一个问题，就是跨页表格效果不好，主要原因出在rng.Select()   '全选

    rng.Copy()   '拷贝

这两句代码及其相关的代码上，感觉是不能全选，我不知道如何处理，请那位指点

以上代码有一个问题，就是跨页表格效果不好，