ok bandysiu

aciu

"BJ" <bj@bj.com> wrote in message news:hqmi2t$m2i$1@trimpas.omnitel.net...
> 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
>