Question

vba语句制作报告循环过程中光标定位出错，求帮助！！！！！

Sub 生成报告()
Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, 判断, i, j
当前路径 = ThisWorkbook.Path
最后行号 = Sheets(3).Range("B65536").End(xlUp).Row
判断 = 0
导出文件名 = "水质常规分析报告.docx"
导出路径文件名 = 当前路径 & "\" & 导出文件名
FileCopy 当前路径 & "\水质常规分析报告模板.docx", 导出路径文件名
With Word对象
Documents.Open ThisWorkbook.Path & "\水质常规分析报告.docx"
Documents.Open 导出路径文件名
Visible = False

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '设置位置在正文
Selection.WholeStory '全选
Selection.Copy '复制
If 最后行号 > 5 Then
For i = 3 To 最后行号 - 2 '复制页
.Selection.EndKey Unit:=wdStory '光标置于文件尾
.Selection.InsertBreak Type:=wdPageBreak '分页
.Selection.PasteAndFormat (wdPasteDefault) '粘贴
Next i
End If
For i = 3 To 最后行号
ActiveDocument.Tables(i - 2).Cell(1, 2).Range = Sheets(3).Cells(i, 2).Value

Next i
End With
Word对象.Documents.Save
Word对象.Quit
Set Word对象 = Nothing
If 判断 = 0 Then
i = MsgBox("已生成"" & 导出路径文件名 & ""！", 0 + 48 + 256 + 0, "提示：")
End If
End Sub
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
这儿运行提示“运行时错误'438'对象不支持该属性或者方法”

Answer 1

Word对象.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
这样试试

追问

还是不行 ，可以帮助调试下吗

追答

我测试过 office2007 word 这句代码是没问题的

追问

还是不行 ，可以帮助调试下吗？可以的话加下我QQ吧！QQ号码：2015004151
非常感谢！！！

追答

你试试 Visible = true

不要隐藏对象

追问

好的 我试试 ！主要我是小白，这些东西还是很长时间才凑乎能出来的！还是不行~~~~~~~~~加QQ 协助下呗

追答

加了