用代码保存FrontPage中两个带有链接的网页,出错“Windows SharePoint Services 网站中不包含 URL“C:\Temp\test.htm”,请问如何解决?具体做法,
1,启动FrontPage2000(或以上版本均有该问题)
2,新建两个页(new_page_1.htm和new_page_2.htm),在new_page_1.htm中做链接到new_page_2.htm ,在new_page_2.htm中做链接到new_page_1.htm .
3,写代码保存Sub TestSavePages()
    With Application.ActiveWebWindow
        .PageWindows(0).SaveAs "c:\temp\test1.htm"
        .PageWindows(1).SaveAs "c:\temp\test2.htm"
    End With
End Sub运行出错,Windows SharePoint Services 网站中不包含 URL“C:\Temp\test.htm”
请问高手该如何解决这种问题?另外发现,在FrontPage自己保存的时候,如果我只选择保存其中的一个文件,他会自动的提示保存另外一个,如果在保存第二个的时候选择取消,则第一个也没有保存。当然如果两个同时保存时,没有这个问题。是否有什么设置有关,还是程序代码不够健全?
谢谢

解决方案 »

  1.   

    呵呵,有人研究FrontPage中的VBA,斗胆问一句,想达到什么目的?
      

  2.   


    To:hhjjhjhj(大头) 
    想做一个带有网页编辑的软件,因为FrontPage2003对于我们软件来说非常实用,所以我们打算把网页编辑环境转移到FrontPage中。您有什么办法可以解决如上所说的问题吗?
      

  3.   

    这个方法不是最好的,但是可以解决问题。'保存修改链接代码
    Sub TestSave()
        Dim iCount As Integer
        Dim i As Integer
        Dim fpDoc As FPHTMLDocument
        Dim objLink As FPHTMLAnchorElement
        
        With Application.ActiveWebWindow
            iCount = .PageWindows.Count
            For i = 0 To iCount - 1
                For Each objLink In .PageWindows(i).Document.Links
                     objLink.href = "|" & objLink.href & "|"
                Next
                .PageWindows(i).SaveAs "D:\temp\" & TestGetFileName(.PageWindows(i).Caption), True
                For Each objLink In .PageWindows(i).Document.Links
                     objLink.href = Replace(objLink.href, "|", "")
                Next
                .PageWindows(i).Save True
            Next
        
        End With
    End Sub