Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2013, 21:25   #21
Seven11
Пользователь
 
Регистрация: 11.02.2013
Сообщений: 12
По умолчанию

[QUOTE=viter.alex;1181978]Я предложил не то же самое?

далеко не то же самое) там придется набирать сначала "м", а потом менять регистр. это кажется мелочью, но когда делаешь такую работу регулярно, то это превращается в тысячи, а затем в десятки тысяч лишних нажатий по клаве.
но в любом случае спасибо за помощь и участие) я просто хотел узнать, возможно ли подобное средствами ворд, ибо сам не программист. мне как-то объясняли, как это сделать в другой программе, там вроде работает, но мне надо в ворде
Seven11 вне форума Ответить с цитированием
Старый 11.02.2013, 21:28   #22
Seven11
Пользователь
 
Регистрация: 11.02.2013
Сообщений: 12
По умолчанию

Цитата:
Сообщение от Скрипт Посмотреть сообщение
Seven11, а Shift + Enter вам не подходит для того, чтобы не разбивать текст на несколько абзацев?
вполне устраивает, но способ, предложенный Казанским, так не работает, а иначе какой в этом толк
Seven11 вне форума Ответить с цитированием
Старый 12.02.2013, 11:32   #23
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

ОДНУ ЗАДАЧУ(БОЛЬШАЯ ТАБЛИЦА)

мне набивали по принципу(через точку с запятой)

наименование;колич1;колич2;колич3;к олич4
наименование;колич1;колич2;колич3
наименование;колич1;колич2;колич3;к олич4
наименование;колич1;колич2

затем выделить все
преобразовать в таблицу по разделителю

у вас подобное, только нужен макрос для замены
^p на ^pтип1_
; на ^pтип2_

подчеркивание --это пробел, чтобы не слипались
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание

Последний раз редактировалось shanemac51; 12.02.2013 в 11:35.
shanemac51 вне форума Ответить с цитированием
Старый 12.02.2013, 17:27   #24
Seven11
Пользователь
 
Регистрация: 11.02.2013
Сообщений: 12
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
ОДНУ ЗАДАЧУ(БОЛЬШАЯ ТАБЛИЦА)

мне набивали по принципу(через точку с запятой)

наименование;колич1;колич2;колич3;к олич4
наименование;колич1;колич2;колич3
наименование;колич1;колич2;колич3;к олич4
наименование;колич1;колич2

затем выделить все
преобразовать в таблицу по разделителю

у вас подобное, только нужен макрос для замены
^p на ^pтип1_
; на ^pтип2_

подчеркивание --это пробел, чтобы не слипались
ничего не понял
Seven11 вне форума Ответить с цитированием
Старый 12.02.2013, 19:24   #25
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию Под флагом Скрипта

А так?

В документе EyeToEye.doc, по методу Скрипта (http://programmersforum.ru/showthread.php?t=227545#9), удар по F5 вводит реплику М. (если сами не набрали), а F6 — Р.:
Вложения
Тип файла: doc EyeToEye.doc (33.0 Кб, 5 просмотров)
Sasha_Smirnov вне форума Ответить с цитированием
Старый 13.02.2013, 18:55   #26
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 906
По умолчанию

Seven11, если не разбивать абзац для одного персонажа, а использовать сочетание клавиш "Shift + Enter", то попробуйте вот такой код:
Код:
Sub Procedure_1()

    Dim i As Long
    
    'Проставляем текст в нечётных абзацах.
    For i = 1 To ActiveDocument.Paragraphs.Count Step 2
        ActiveDocument.Paragraphs(i).Range.InsertBefore Text:="M."
    Next i
    
    'Проставляем текст в чётных абзацах.
    For i = 2 To ActiveDocument.Paragraphs.Count Step 2
        ActiveDocument.Paragraphs(i).Range.InsertBefore Text:="Р."
    Next i
    
End Sub
Если макрос будет долго работать (несколько минут), то нужно будет добавить в код средства для ускорения работы кода.
Скрипт вне форума Ответить с цитированием
Старый 13.02.2013, 19:16   #27
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

введите в автозамену
м0 М.
р0 Р.

и вводите
м0 Добрый день.
р0 Здравствуйте.
м0 Представьтесь.
р0 Меня зовут...
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Реализовать в виде модуля набор набор подпрограмм для следующих операций со строками : 1) Процедура подсчёта кол-ва букв к в пер Richik123 Паскаль, Turbo Pascal, PascalABC.NET 12 23.09.2012 12:24
как упростить макрос Obey177 Microsoft Office Excel 4 20.08.2012 19:01
case ... of как упростить? kta87 Общие вопросы Delphi 3 29.01.2012 23:21
Как упростить формулу? АННА-ЕАО Microsoft Office Excel 7 23.12.2011 14:53
Как упростить формулу? parsn Microsoft Office Excel 1 31.01.2010 00:53