Excel-Vba-重复使用Word的Dot文件。

ningyong58

请先看附件后：讨论问题
一个word文件，添加一个dot文件.采用下面标准模块是可行的。
但是，如果要在一个word文件，同时将收文号，1-3号放到一个Word文件，采用下面标准模块就有问题了。
问题提出：要是在同一个word文件中，重复使用n次dot文件。
1 copy　- Paste　----工作方法
２ Insert　　　　----工作方法　　　　　


    '实例化Word对象，从模板生成新文件
    Set WordAPP = CreateObject("Word.Application")
    Set myWord = WordAPP.documents.Add(Template:=myPath & "\A4.DOT", NewTemplate:=False)
   

    '设置应用程序Word可见
    WordAPP.Visible = True
   

    '向新建的Word文档 写入行文的信息
    myWord.bookmarks("a").Range = Cells(CurrentRow, 5)
    myWord.bookmarks("b").Range = Cells(CurrentRow, 6)
    myWord.bookmarks("c").Range = Cells(CurrentRow, 3)
    myWord.bookmarks("d").Range = Cells(CurrentRow, 4)
    myWord.bookmarks("e").Range = Cells(CurrentRow, 7)
   

    '新文档以文号命名保存[可根据需求以主题命名]
    myWord.SaveAs Filename:=Fullname
Dot文件在word文件的应用.rar (16.96 KB, 下载次数: 28)

2010-1-21 07:46 上传

点击文件名下载附件

[ 本帖最后由 ningyong58 于 2010-1-21 07:48 编辑 ]

ningyong58

参考这个帖子，http://club.excelhome.net/viewth ... replyID=&skin=0
《关于批量合并word文档的疑问》
Sub test()
'
'把待插入文件放在同一个文件夹下

    Dim fs As FileSearch, i As Long, n As Long
    Set fs = Application.FileSearch
    Documents.Add
    With fs
        .NewSearch
        .LookIn = InputBox("输入待插入文件所在文件夹路径！")
        .FileType = msoFileTypeWordDocuments
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
            Selection.InsertFile FileName:=.FoundFiles.Item(i)
            n = n + 1
            Next
        End If
    End With
    MsgBox "共插入" & n & "个文档！"
End Sub

http://club.excelhome.net/viewth ... d=643700#pid2090676
《关于批量合并word文档的疑问》

[ 本帖最后由 ningyong58 于 2010-1-21 14:33 编辑 ]