Microsoft Office a ďalšie kancelárske programy | Fórum

hurricane
3.5.2005 10:57  |  Nevhodné
Pridať do obľúbených
Word hypertextové odkazy
Jde nějak ve wordu odebrat všechny odkazy z textu najednou?
7 príspevkov
iceboss
3.5.2005 11:01 | |
+0 -0
Reagovať
jestli to kopcis z netu, tak upravy/vlozit jinak - neformatovany text.... jinak me nic nenapada
matho83
12.12.2008 11:18 | |
+0 -0
Reagovať
neprisiel som na sposob ako otvorit viac http odkazov hromadne napr. search.php?author_id=20923&sr=posts&fid (http://forum.zive.cz/search.php?author_id=20923&sr=posts&fid)[]=13 search.php?author_id=28938&sr=posts&fid (http://forum.zive.cz/search.php?author_id=28938&sr=posts&fid)[]=13 search.php?author_id=13413&sr=posts&fid (http://forum.zive.cz/search.php?author_id=13413&sr=posts&fid)[]=13 search.php?author_id=7353&sr=posts&fid (http://forum.zive.cz/search.php?author_id=7353&sr=posts&fid)[]=13
ansam
12.12.2008 13:43 | |
+0 -0
Reagovať
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.
c.e.o
12.12.2008 14:08 | |
+0 -0
Reagovať
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
matho83
12.12.2008 16:03 | |
+0 -0
Reagovať
no a ako ich potom otvorim naraz
ansam
12.12.2008 16:20 | |
+0 -0
Reagovať
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?"
matho83
14.12.2008 15:12 | |
+0 -0
Reagovať
cez to makro to pojde 8-) , trochu mi s tym pomocou excel pozlucovanim textu 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