Добавить префикс - Microsoft Office Word

НеВа6464 · 25.05.2010, 16:00

Добрый день!
Есть таблица Ворд (2003).
В выделенном столбце необходимо к содержимому каждой ячейки добавить префикс.
Например. Было в ячейке 12345, надо получить ВВ12345. Содержимое ячеек разное, а вот префикс один для всех.
Спасибо!

viter.alex · 25.05.2010, 20:16

Код с коленки, попробуй

Код:

Sub AddPrefix()
  Dim oCell As Cell
  For Each oCell In Selection.Columns.First.Cells
    oCell.Range.Text = "ВВ" & oCell.Range.Text
  Next
End Sub

НеВа6464 · 25.05.2010, 21:16

Огромное спасибо. Всё работает.

25.05.2010, 16:00	#1
НеВа6464 Пользователь Регистрация: 16.05.2009 Сообщений: 64	Добавить префикс Добрый день! Есть таблица Ворд (2003). В выделенном столбце необходимо к содержимому каждой ячейки добавить префикс. Например. Было в ячейке 12345, надо получить ВВ12345. Содержимое ячеек разное, а вот префикс один для всех. Спасибо!

25.05.2010, 20:16	#2
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Код с коленки, попробуй Код: `Sub AddPrefix() Dim oCell As Cell For Each oCell In Selection.Columns.First.Cells oCell.Range.Text = "ВВ" & oCell.Range.Text Next End Sub` Лучше день потерять — потом за пять минут долететь!©

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
добавить cookie	пауэрлифтинг	Общие вопросы Delphi	1	27.04.2010 01:28
Добавить в файл...	qwerty55	Общие вопросы Delphi	4	24.02.2010 15:16
Как передать префикс в HTTPRIO?	Sasha_Sha	Общие вопросы Delphi	0	28.04.2009 05:28
вывести префикс соответствующий номеру телефона в отдельную ячейку	kutt	Microsoft Office Excel	5	11.08.2008 21:07

25.05.2010, 21:16	#3
НеВа6464 Пользователь Регистрация: 16.05.2009 Сообщений: 64	Огромное спасибо. Всё работает.