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

tgzhang

我主控文档中的子文档都是以全路径形式存在的，将他们拷贝到别的机器上，发现子文档就打不开了。 请问如何修改子文档的路径，最好能够修改成相对路径！ 谢谢

konggs

域中可用的函数太少，很难摆平他，

思想是通过filename \p 取出他的路么，然后用一个函数取出从右向左第一个\开始的右边字符，再用hypelink域来做。

用Excel由相关的函数，但Word没有这些，

见意楼主可以用目录的形式，把字文档放到一个文档中，利用目录跳转。

konggs

请教：

Private Sub Document_close1()
Dim asty As Hyperlink, str As String
Dim i%
'On Error Resume Next
i = 1
str = ActiveDocument.Path
For Each asty In ActiveDocument.Hyperlinks
If asty.Name = str & "\第" & "i" & "章.doc" Then
asty.Range.Select
Selection.MoveEnd Count:=1
'这一句出错 'Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Bookmarks.Add Name:="a" & i, Range:=Selection.Range
i = i + 1
End If
Next
End Sub

在前台却可以完成，为什么VBA中不行。

我的思路是在关闭主文档时，替换为书签，

在打开主文档时，替换为超链接。

但第一步就卡住了。烦请高手出招!

守柔

KONGGS，这句代码有问题：If asty.Name = str & "\第" & "i" & "章.doc" Then

应改为If asty.Name = str & "\第" & i & "章.doc" Then

另外，请楼主上传你的主控文档，我看一下，好象你也没有说清楚，KONGGS的理解也有些问题，我则更晕。

谢谢。

tgzhang

谢谢版主。 我仅上传了主控文档，其中你可以看到子文档的名字。现在主控文档中的子文档是以全路径的形式存在的，当拷贝到其他机器上时，路径不正确当然打不开了。所以我想将其改成相对路径，这样就能到处拷贝了。 举例： 现在子文档路径为：I:\matching\毕业论文\第1章-概述.doc 我希望改成 .\第1章-概述.doc 再次感谢！ Jcp9Fusl.rar (26.52 KB, 下载次数: 35)

2006-1-10 19:16 上传

点击文件名下载附件
谢谢

[此贴子已经被作者于2006-1-10 19:16:05编辑过]

tgzhang

守柔斑竹，帮我看看这个问题，谢谢了

守柔

最近非常忙，非常抱歉！

我简单地做了一个，你可以参考修改一下：

Option Explicit

Sub Example()
Dim i As Hyperlink, filePath As String, myArray() As String
Dim myPath As String, NewName As String
myPath = Me.Path
For Each i In Me.Hyperlinks
filePath = i.Address
myArray = VBA.Split(filePath, "\")
NewName = myArray(UBound(myArray))
i.Address = myPath & "\" & NewName
i.TextToDisplay = myPath & "\" & NewName
Next
End Sub
请将该代码置于活动文档的THISDOCUMENT模块中，或者在其它标准模块中，以THISDOCUMENT代码ME关键字。

konggs

行的，

老大牛！[em17]

tgzhang

非常感谢斑竹守柔！

[em17]

dtxingmc

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

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

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

[此贴子已经被作者于2006-1-16 21:05:29编辑过]