Word hypertextové odkazy

Programy pro práci s textem, tabulkami, prezentacemi

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod Hurricane 3. 5. 2005 09:57

Jde nějak ve wordu odebrat všechny odkazy z textu najednou?
Hurricane
Kolemjdoucí
Uživatelský avatar

Odeslat příspěvekod ICEBOSS 3. 5. 2005 10:01

jestli to kopcis z netu, tak upravy/vlozit jinak - neformatovany text.... jinak me nic nenapada
Intel rulez everywhere and everytime!
Nepiste mi na ICQ a mejl, reste sve problemy tady, na foru!
ICEBOSS
VIP uživatel
Uživatelský avatar

Odeslat příspěvekod matho83 12. 12. 2008 11:18

Konecne klud
ale nie od s60
v.i.p. roku 2008
Kto sa smeje naposledy ten sa smeje najlepsie
matho83
Junior
Uživatelský avatar

Odeslat příspěvekod Ansam 12. 12. 2008 13:43

Ak nepotrebuješ "Formátovanie textu" tak veľmi jednoducho:
Ulož ten wordový súbor ako *.txt a potom ten *.txt súbor otvor vo worde a pomenuj si ho ako chceš: napr *.doc.
Ansam
Mírně pokročilý
Uživatelský avatar

Odeslat příspěvekod c.e.o 12. 12. 2008 14:08

Pust ve wordu tohle makro:

Sub RemoveHyperlinks()
Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing
End Sub
c.e.o
Junior

Odeslat příspěvekod matho83 12. 12. 2008 16:03

no a ako ich potom otvorim naraz
Konecne klud
ale nie od s60
v.i.p. roku 2008
Kto sa smeje naposledy ten sa smeje najlepsie
matho83
Junior
Uživatelský avatar

Odeslat příspěvekod Ansam 12. 12. 2008 16:20

Ale veď ty si ich chcel ODOBRAŤ, a nie OTVORIŤ NARAZ.
Takže asi správna otázka v prvom príspevku mala byť:
"Jde nějak ve wordu spustit všechny odkazy z textu najednou?"
Ansam
Mírně pokročilý
Uživatelský avatar

Odeslat příspěvekod matho83 14. 12. 2008 15:12

cez to makro to pojde 8-) , trochu mi s tym pomocou excel pozlucovanim textu

Kód: Vybrat vše
Range("D1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D2").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D3").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D4").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D4").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D6").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D7").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D8").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal
    Range("D9").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.WindowState = xlNormal


btw. vdaka aspon za nakopnutie

takuto vec by to malo zvladat by default :hm , oznacim, klepnem enter otvori linky
Konecne klud
ale nie od s60
v.i.p. roku 2008
Kto sa smeje naposledy ten sa smeje najlepsie
matho83
Junior
Uživatelský avatar


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků