EXCELL中某几个单元格的数据作为WORD文档中的页眉页脚问题

jiangrushu

能不能以EXCELL中某几个单元格的数据作为WORD文档中的页眉页脚.

哪位高手写个程序一起探讨一下.谢谢

守柔版主,我补充上传了附件,谢谢指导.

要求:VBA写在EXCEL文件中,即EXCEL为主程序

SXHTi86T.rar (10.2 KB, 下载次数: 13)

2007-3-12 11:14 上传

点击文件名下载附件
EXCELL中某几个单元格的数据作为WORD文档中的页眉页脚问题

[此贴子已经被作者于2007-3-12 17:13:13编辑过]

守柔

QUOTE:

以下是引用jiangrushu在2007-3-9 22:51:43的发言：

能不能以EXCELL中某几个单元格的数据作为WORD文档中的页眉页脚.

哪位高手写个程序一起探讨一下.谢谢

为慎重起见，请楼主上传您的示例文件和最后结果的文档示意，谢谢。

jiangrushu

附件已上传在一楼,请守柔版主及其他高手指教.

守柔

QUOTE:

以下是引用jiangrushu在2007-3-12 11:25:42的发言：
附件已上传在一楼,请守柔版主及其他高手指教.

这几天我很忙。

刚匆匆看了一下附件，问楼主一个问题，你的目的就是以EXCEL数据为页眉内容，以WORD模板为“模板”，有多少个EXCEL数据（记录），就生成多少个以此模板的DOC文件吗？还有其它特殊要求吗？

文档分三节，第三节后开始使用页眉，仅此一个页眉（对于每个文件），我这样理解对吗？

jiangrushu

谢谢版主的回复.

以EXCEL数据为页眉内容，以WORD模板为“模板”，有多少个EXCEL数据（记录），就生成多少个以此模板的DOC文件

准确的意思是:

以EXCEL数据为页眉内容，以WORD模板为“模板”，有多少个EXCEL数据（记录），就将多少个记录替换到模板.DOC文件中,最后生成一个跟效果文件类似的文件.

不知道我有没有将意思表达清楚.

守柔

请在EXCEL中运行此代码即可。

Option Explicit

Sub ExampleForjiangrushu()

'此程序在VBE中引用Microsoft Word 11.0 object library
    Dim wdDoc As Word.Document, wdSection As Word.Section, wdRange As Word.Range
    Dim myRange As Range, i As Range, myFolder As String, CurrentPath As String, EndCell As Range
    CurrentPath = ThisWorkbook.Path
    myFolder = CurrentPath & "\myFolder"
    If Dir(myFolder, vbDirectory) = "" Then VBA.MkDir myFolder
    Set EndCell = ThisWorkbook.Sheets(1).[A65536].End(xlUp)
    Set myRange = ThisWorkbook.Sheets(1).Range([A2], EndCell)
    For Each i In myRange
     Set wdDoc = VBA.CreateObject(CurrentPath & "\模版文件.doc")
        Set wdRange = wdDoc.Sections(3).Headers(wdHeaderFooterPrimary).Range
        With wdRange.Tables(1)
            .Cell(1, 1).Range.Text = i.Value
            .Cell(1, 3).Range.Text = i.Offset(, 1).Value
            .Cell(1, 5).Range.Text = i.Offset(, 2).Value
        End With
        Set wdRange = wdDoc.Sections(3).Footers(wdHeaderFooterPrimary).Range
        wdRange.Tables(1).Cell(1, 2).Range.Text = i.Offset(, 3).Value
        wdDoc.SaveAs myFolder & "\" & i.Value & ".doc"
        wdDoc.Close
    Next
End Sub

bxFksMdD.rar (14.44 KB, 下载次数: 44)

2007-3-13 06:18 上传

点击文件名下载附件
EXCELL中某几个单元格的数据作为WORD文档中的页眉页脚问题

jiangrushu

版主您好,我的EXCEL是2000的

我打开您上传的附件,在运行此程序前,将引用Microsoft Word 11.0 object library修改为Microsoft Word 9.0 object library后,执行宏,出现以下情况:

 

[此贴子已经被作者于2007-3-13 8:31:05编辑过]

守柔

请楼主到其他机器上测试一下，我又测试了一遍，没有发现问题

注意，你的模版文件我已改过，请解压时置于同EXCEL工作薄同一文件夹中，可自行修改一下其中的单元格宽度、字体等。

另外，请试一下，将

            .Cell(1, 1).Range.Text = i.Value
            .Cell(1, 3).Range.Text = i.Offset(, 1).Value
            .Cell(1, 5).Range.Text = i.Offset(, 2).Value

改为：

            .Cell(1, 1).Range = i.Value
            .Cell(1, 3).Range= i.Offset(, 1).Value
            .Cell(1, 5).Range = i.Offset(, 2).Value

试一下，同样的，把wdRange.Tables(1).Cell(1, 2).Range.Text = i.Offset(, 3).Value改为wdRange.Tables(1).Cell(1, 2).Range = i.Offset(, 3).Value

请及时回复测试结果。

jiangrushu

版主您好,我已经按照您上面的回复,修改了程序.但是问题依旧,我的EXCEL版本是2000的.不知道是不是版本问题,我身边的机子都是2000的,没有2003的机子可以试运行.[em04]

[此贴子已经被作者于2007-3-13 12:44:07编辑过]

jiangrushu

哪位坛友的电脑装的是EXCEL2000的帮我试运行一下这个程序是否正常

点击浏览该文件