关于主控文档中的子文档路径的修改

守柔

以下是引用[I]dtxingmc[/I]在2006-1-16 21:03:08的发言：

用不了，版主能说的详细些吗？谢谢

我用的ＸＰ－ＳＰ２，word２００３ＳＰ２

以THISDOCUMENT代码ME关键字，是什么意思？详细说说，最好有图示

我这儿写错了一个字，是代替而不是代码，THISDOCUMENT代替ME关键字。如果你不明白，说明你需要学习一些基础的知识，另外，我由于时间关系，写得也不是太清楚。 http://club.excelhome.net/dispbbs.asp?boardID=23&ID=110721&page=1 这个代码的初衷是将原有文档中的超级链接的地址中的绝对路径改为相对路径，也就是楼主需要把超级链接中的所谓的子文档置于活动（当前）文档同一文件夹中，以保证超级链接的有效。当然，也要求用户如果有另存为时，应该及时把其它的“子”文档一同复制到另外的文件夹中。

[此贴子已经被作者于2006-1-17 11:50:54编辑过]

dtxingmc

谢谢版主，看到了你的回答，我好高兴，以后一定要好好用功了

tgzhang

可以用，但是还有一个问题。

按照守柔斑竹提供的程序可以似乎修改的超级连接的地址而不是子文档的地址！

修改之后，单个点击文件名，可以正确地在新Word窗口中打开文件。

但使用展开子文档命令时，依旧提示原来的全路径名称下面的文件不存在。

举个例子：

原来子文档的全路径名称为"I:\matching\毕业论文\第1章-概述.doc",用斑竹的程序将其修改为“.\第1章-概述.doc”。将主文档和子文档一起拷贝另一个目录下，此时展开子文档时提示“I:\matching\毕业论文\第1章-概述.doc”不存在！

konggs

我晕，

你拷过后，运行一个宏。不然，怎么自动查找相对路径，再替换。

tgzhang

你晕啥呀！ 我是说，斑竹给的程序只能修改超级连接的路径，而不是子文档的路径！！ 以后看清楚，再晕！

以下是引用[I]konggs[/I]在2006-1-19 19:46:03的发言：[BR]

我晕，

你拷过后，运行一个宏。不然，怎么自动查找相对路径，再替换。

守柔

确实有些问题，而且问题还不小。

再请测试：

Sub Example()
Dim fileName As String, myPath As String, NewName As String
Dim sdcCount As Integer, i As Integer, myArray() As String
Application.ScreenUpdating = False
With ActiveDocument
myPath = .Path
.Subdocuments.Expanded = True
sdcCount = .Subdocuments.Count
For i = sdcCount To 1 Step -1
With .Subdocuments(i)
fileName = .Name
myArray = VBA.Split(fileName, "\")
NewName = myArray(UBound(myArray))
.Range.Select
Selection.Delete
End With
Debug.Print myPath & "\" & NewName
.Subdocuments.AddFromFile Name:=myPath & "\" & NewName
Next
.Close True
End With
Application.ScreenUpdating = True
End Sub
注意，关闭后（代码中已设计）再打开（稍后，WORD更新需要一个时间），否则，子文档路径不会改变（超链接）。

konggs

以下是引用[I]tgzhang[/I]在2006-1-31 9:50:03的发言：[BR]你晕啥呀！ 我是说，斑竹给的程序只能修改超级连接的路径，而不是子文档的路径！！ 以后看清楚，再晕！

以下是引用[I]konggs[/I]在2006-1-19 19:46:03的发言：[BR]

我晕，

你拷过后，运行一个宏。不然，怎么自动查找相对路径，再替换。

[em04]不好意思。