ссылки

Автор tavka, 23 марта 2011, 11:40

0 Пользователи и 1 гость просматривают эту тему.

tavka

народ привет всем, помогите если кто занет
у меня есть список
мне из него надо сделать еще в одной колонке гиперссылку на отправку на электронку
но проблема в том если я в ячейке напишу
=CONCATENATE("<A HREF=";"""mailto:zz.zz.zz""";">zzzz</A>")
и потом сделаю сохранить файл в html
то openoffice при сохранении меняет знаки <> на спец символы   &lt;   &gt; и т.д.
и при просмотре html файла ссылка отображается как текст, а мне нужно что бы она как ссылка отображалась.
вот, можно как-нибудь запретить сохранять эти символы как спецсимволы или есть какой-нить еще выход
что бы сделать в ячейке гиперссылку!?!?

JohnSUN

Можем помозговать. Но сначала дай честное слово, что это не спам-рассылка
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

tavka

#2
проблему попытался решить по другому
=HYPERLINK("mailto:zz.zz.zz?subject=zzzzz";"название")
но при сохранеии в html эту формулу сохраняет тока как текст  "название"
так что проблема еще актуальна


ЗЫЖ это не спам рассылка :))), просто у меня в офисе пользуются html народ локально и что бы заявки формировали быстрее эта вставка с электронкой

JohnSUN

Поздравляю!

[offtopic on]
Но ведь что прикольно!
Как заявила Бритни, "Oops!... I Did It Again..."
В вольном перевод - "Во блин! Опять, в который раз! Начал жаловаться на затык и по ходу дела нашел решение..."
У меня такое случается где-то в 75% случаев: топчешься на граблях долго и утомительно (минут десять или пару недель). А стоит хоть с кем-то поделиться проблемой - решение находится как бы само собой...
А у вас, коллеги, как часто такое бывает?
[offtopic off]
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

tavka

ЫЫЫЫыы проблема решена тока для openoffice calc
при сохранении в  html ссылка исчезает, остается тока ее название

RFJ

#5
Сохраняется в html только если вставлена как Гиперссылка.

Или в ячейке написать просто

mailto:zz.zz.zz

[вложение удалено Администратором]

tavka

привет и пасибо за ответы
с mailto:zzz@zz.zz понятно но не понятно как это применить, если у меня часть адреса электроной почты находится в другой ячейке. то есть как сделать типа такого:
Mailto:CONCATENATE(A1;"@mail.ru")
Или как всетаки сохранять символы <> в html что бы они таковыми и оставались, а не заменялись на спец символы   &lt; &gt; и т.д.

RFJ

Можно использовать макрос для создания гиперссылок.

tavka

Цитата: RFJ от 24 марта 2011, 12:30
Можно использовать макрос для создания гиперссылок.
а если не трудно, можно примерчик, а то я с макросами туго

ЗЫЖ думаю уже написать проще программу на дельфях, которая будет читать файл и на его основе создавать html

RFJ

#9
Как-то так:

sub mail_to
oDoc=ThisComponent
oSheet = oDoc.getCurrentSelection.getSpreadSheet
oCell = oDoc.CurrentSelection

oCell1=oSheet.getCellByposition(oCell.CellAddress.Column+1, oCell.cellAddress.Row)
nn1 = oCell1.getString()

oCell2=oSheet.getCellByposition(oCell.CellAddress.Column+2, oCell.cellAddress.Row)
nn2 = oCell2.getString()

If nn1="" Then Exit Sub

dim document   as object
dim dispatcher as object

document   = oDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Hyperlink.Text"
If nn2="" Then nn2=nn1
args1(0).Value = nn2
args1(1).Name = "Hyperlink.URL"
nn1="mailto:" & nn1
args1(1).Value = nn1
args1(2).Name = "Hyperlink.Target"
args1(2).Value = ""
args1(3).Name = "Hyperlink.Name"
args1(3).Value = ""
args1(4).Name = "Hyperlink.Type"
args1(4).Value = 1

dispatcher.executeDispatch(document, ".uno:SetHyperlink", "", 0, args1())

end sub



[вложение удалено Администратором]

tavka