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

 

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

二楼的这个例子在一定程度上可以替代专业报表

请具体指导一下，我对上面的代码纯粹不懂，只是套用，劳驾了

请高手帮助

感谢提点，但本人的水平太差，不能理解，还望具体指点

        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.InlineShapes.AddPicture("C:\SamplePicture.jpg")

只能把照片复制到光标的位置，如何让照片替代Word文档中"[照片]"的位置，并能否设置照片的大小

请那位高手指点一下，就这一点卡壳，因为是自动生成报表，字符的引用问题已经解决，如果图片能够解决，就好多了，请大家帮忙

编程语言根本不懂，要是懂一点的话，问题早就解决了，麻烦您了，您这回说的就是我要的结果，能写出具体的代码吗

求高手指点，完善代码