su macro galima
pavyzduka pridedu

Sub remove_chars()
Dim x As Integer
Dim y As Integer
Dim strAddress As String
For y = 1 To 10 ' starting and ending columns
For x = 1 To 1000 ' starting and ending rows
strAddress = GetAddress( Cells(x, y))
If InStr(strAddress, "C:\Documents_And_Settings\") > 0 Then
Cells(x, y).Hyperlinks(1).Address = Right(strAddress,
Len(strAddress) - InStr(strAddress, "C:\Documents_And_Settings\") - 25) '
change 25 to the number of chars in the string to remove minus 1
End If
Next x
Next y
End Sub

Function GetAddress(HyperlinkCell As Range)
If HyperlinkCell.Hyperlinks.Count > 0 Then
GetAddress = HyperlinkCell.Hyperlinks(1).Address
End If
End Function

sekmes

"SLAVIKAZ" <slavikaz_trinti_@takas.lt> parašė naujienų 
news:hqm54f$d8$1@trimpas.omnitel.net...
> Sveiki
>
> yra excelis su kruva linku I dokumentus, kurie randasi shalia, sudeti I 
> atskira kataloga. Beda tame, kad hyperlinkai I dokus prasideda nuo disko 
> raides. dabar disko raide ir bendras kelias iki tu doku keiciasi. gal yra 
> kokia komanda ar softas su kurio galima butu sukeisti visus hyperlinkus 
> dokumente?
>
> SLAVIKAZ