ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
22 сообщений из 22, страница 1 из 1
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36854750
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Добрый всем день!
Проблема в следующем - в тексте документа Word указаны числа как текст в виде 100000,00 руб. Необходимо пройтись по всему тексту и привести к виду 100 000,00 руб. Это реально вообще? Буду рад прочитать ваши идеи!
...
Рейтинг: 0 / 0
20.09.2010, 09:53
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36854954
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Ципихович Эндрю,

то есть я должен перебрать все возможные числа и заменить их?
то есть в VBA будут процедуры а-ля ищем 100000,00 руб. - заменяем на 100 000,00 руб. , затем ищем 100001,00 руб. - заменяем на 100 001,00 руб.

Или есть какой-то другой способ???
...
Рейтинг: 0 / 0
20.09.2010, 11:19
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855187
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Ципихович Эндрю,

Что-то у меня не получается, видимо делаю что-то не то
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "***** руб."
        .Replacement.Text = "**" & " " & "***" & " " & "руб."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
...
Рейтинг: 0 / 0
20.09.2010, 12:41
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855211
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Понял что надо было
Код: plaintext
.MatchWildcards = True
Однако со звездочкой он берет целую строку, а не предыдущий символ, и как поменять я так и не понял!
...
Рейтинг: 0 / 0
20.09.2010, 12:47
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855256
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
trexmernii,

вставка формулы(формулы)

сумма по строке таблицы

=SUM(LEFT) \# "# ##0,00"


единичное число в тексте
=(2222,88) \# "# ##0,00"
...
Рейтинг: 0 / 0
20.09.2010, 12:58
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855317
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
ПЕНСИОНЕРКА,
Это не Excel! это Word!!!
...
Рейтинг: 0 / 0
20.09.2010, 13:19
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855339
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
trexmerniiПЕНСИОНЕРКА,
Это не Excel! это Word!!!

я вам и дала ответ для ворда (вставка поля)
...
Рейтинг: 0 / 0
20.09.2010, 13:25
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855353
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
ПЕНСИОНЕРКА,

Я что-то не понял, у меня в word-е не таблица, а просто в тексте встречаются числа , мне их необходимо привести к такому виду. Я что то не могу догнать где таблица?
...
Рейтинг: 0 / 0
20.09.2010, 13:30
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855361
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
trexmernii,

единичное число в тексте. вставить поле

{=(2222,88) \# "# ##0,00"}

вроде все ясно
...
Рейтинг: 0 / 0
20.09.2010, 13:31
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855388
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
ПЕНСИОНЕРКА,

Все равно не понял...
к примеру у меня есть текст
Код: plaintext
...  31  ноября  2009  г.  была отнесена сумма в размере  1582668 , 00  руб., при этом согласно условиям договора  01  декабря  2009  г. необходимо было перечислить аванс в сумме  500000 , 00  руб. ...

куда что вставлять и каким образом, я хотел через VBA по всему тексту пройтись и везде сделать красиво!
...
Рейтинг: 0 / 0
20.09.2010, 13:40
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855410
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
trexmernii,

после слов в размере встатить пустое поле и ввести сумму
по образцу {=(1582668,00) \# "# ##0,00"}
...
Рейтинг: 0 / 0
20.09.2010, 13:47
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855441
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
trexmernii,

одно число можно вставить через неразрывный пробел

1(сtrl+shift+пробел)582(сtrl+shift+пробел)668,00(сtrl+shift+пробел)руб.

в скобках-сочетание 3-х клавиш
сами скобки не нажимать
...
Рейтинг: 0 / 0
20.09.2010, 13:58
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855887
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Ципихович ЭндрюПЕНСИОНЕРКА, понятно же что он не хочет связываться с полями, в них к тому же данные вводить муторно

ПЕНСИОНЕРКА одно число можно вставить через неразрывный пробел

этот вариант не с полями и пригоден для сумм, фамилий, договоров,дат и прочего, где не желательно разрывать сочетание на разные строки

причем зряче, а не слепым автоматом
...
Рейтинг: 0 / 0
20.09.2010, 16:43
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36855937
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Ципихович Эндрю,
...
Рейтинг: 0 / 0
20.09.2010, 17:01
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856411
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Ципихович Эндрю, вы правы мне нужно корректировать уже готовый текст! ломаю голову вам и себе! а результат где-то там...

На форуме кроме Вас двоих похоже никто не разбирается в VBA!
Но все равно спасибо!
...
Рейтинг: 0 / 0
20.09.2010, 23:14
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856437
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
кстати вот так вот катит, только придется для всех разрядов писать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9])([0-9])([0-9])([0-9])([0-9]) руб."
        .Replacement.Text = "\1\2" & Chr$( 160 ) & "\3\4\5 руб."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
...
Рейтинг: 0 / 0
20.09.2010, 23:41
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856581
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Ципихович Эндрю,

У меня word 2007 и все работает, Спасибо!
Код: plaintext
1.
.Text = "([0-9])([0-9])([0-9])([0-9]),([0-9])([0-9]) руб."
.Replacement.Text = "\1" & Chr$( 160 ) & "\2\3\4,\5\6" & Chr$( 160 ) & "руб."
...
Рейтинг: 0 / 0
21.09.2010, 07:27
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856583
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
trexmernii,

да, рано радовался
Код: plaintext
 .Text = "([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9]),([0-9])([0-9]) руб."
действительно выдает ошибку!
...
Рейтинг: 0 / 0
21.09.2010, 07:29
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856591
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
trexmerniiДобрый всем день!
Проблема в следующем - в тексте документа Word указаны числа как текст в виде 100000,00 руб. Необходимо пройтись по всему тексту и привести к виду 100 000,00 руб. Это реально вообще? Буду рад прочитать ваши идеи!

trexmernii,

одно число можно вставить через неразрывный пробел

1(сtrl+shift+пробел)582(сtrl+shift+пробел)668,00(сtrl+shift+пробел)руб.

в скобках-сочетание 3-х клавиш
сами скобки не нажимать
этот вариант не с полями и пригоден для сумм, фамилий, договоров,дат и прочего, где не желательно разрывать сочетание на разные строки

причем зряче, а не слепым автоматом
...
Рейтинг: 0 / 0
21.09.2010, 07:52
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856593
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
ПЕНСИОНЕРКА,

и как сие осуществить в VBA? а не ручками, я имею ввиду как найти и заменить !
...
Рейтинг: 0 / 0
21.09.2010, 08:02
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36856596
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
смотрите текст VBA выше неразрывный пробел:
Код: plaintext
& Chr$( 160 ) &
...
Рейтинг: 0 / 0
21.09.2010, 08:04
| Ответить | Цитировать | Написать  
Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
    #36858869
trexmernii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trexmernii
Гость
Ципихович Эндрю,

Сделал на свой страх и риск вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim n
For n =  0  To  9 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])," & n
        .Replacement.Text = "\1" & Chr$( 160 ) & "\2\3\4" & Chr$( 160 ) & "\5\6\7" & "," & n
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
Next n
в принципе может что-то проскочить (в смысле не рублики) ну это совсем мало и бысто найдется! Так что всем спасибо!
...
Рейтинг: 0 / 0
21.09.2010, 20:26
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Привести числа 100000,00 руб. к виду 100 000,00 руб. в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36856591&tid=2177653]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 157ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 72ms
get tp. blocked users:
 1ms
others: 260ms
total:  533ms
созд. / загр.: 533ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]