Stránka 1 z 1

Word hypertextové odkazy

Odeslat příspěvekNapsal: 3. 5. 2005 10:57
od Hurricane
Jde nějak ve wordu odebrat všechny odkazy z textu najednou?

Odeslat příspěvekNapsal: 3. 5. 2005 11:01
od ICEBOSS
jestli to kopcis z netu, tak upravy/vlozit jinak - neformatovany text.... jinak me nic nenapada

Re: Word hypertextové odkazy

Odeslat příspěvekNapsal: 12. 12. 2008 12:18
od matho83

Re: Word hypertextové odkazy

Odeslat příspěvekNapsal: 12. 12. 2008 14:43
od Ansam
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.

Re: Word hypertextové odkazy

Odeslat příspěvekNapsal: 12. 12. 2008 15:08
od c.e.o
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

Re: Word hypertextové odkazy

Odeslat příspěvekNapsal: 12. 12. 2008 17:03
od matho83
no a ako ich potom otvorim naraz

Re: Word hypertextové odkazy

Odeslat příspěvekNapsal: 12. 12. 2008 17:20
od Ansam
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?"

Re: Word hypertextové odkazy

Odeslat příspěvekNapsal: 14. 12. 2008 16:12
od matho83
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