» Microsoft WORD

bredonosec

Цитата:

Это распространенная практика на борде.

Спасибо, буду знать.
Эксел посмотрю.

[more]

Цитата:

сорри у остальных за оффтоп

Вообще-то "off top" особого смысла не имеет, можно понять как "через верх" или "сверху вниз". Не понимаю, зачем плодить какой-то пиджин инглиш.[/more]

Кто-нибудь может подсказать какими методами (на VBA под MS Word) можно реализовать процедуру поиска определенного текста в док-те и его удаления в зависимоти от введенных в форму запроса (опять же созданную на VBA) слов.

К примеру:

Появляется форма запроса "Введите ваш статус:". Ввожу "Физ" (физ. лицо).
Ожидаемый результат: Во всем док-те удаляется инф-ция, касающаяся юр. лиц.
И наоборот...

КАК ЭТО СДЕЛАТЬ НА VBA? Можно с примером исходного кода, пожалуйста?

Невероятно благодарен тому, кто поможет сие реализовать.

P.S. Я в инете не могу найти даже примеров чего-то подобного (исходников). Может кто и с этим поможет?

SuperMaximus
По поводу принципов поиска обсуждалось буквально 4 стр. назад. По поводу макроса. Сейчас приведу то, что я сделал для себя:

Код: Sub DelList()

Dim SList() As Variant
Dim n As Byte
SList = Array(<строки поиска через запятую>)
For n = 1 To UBound(SList)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = SList(n)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next n
End Sub

ghosty, спасибо, работает (при некой переделке под себя )


Добавлено:
Единственное, что еще нужно (в чем я без помощи сам не разберусь), так это запуск этого самого DelList'а с передачей в него параметров (сюда -> SList = Array(<строки поиска через запятую>) ) в зависимости от введенных в InputBox'ы (или как они называются в VBA?) параметров и от выборанных из ComboBox'ов парметров.

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

при редактировании Winword 2003 автоматически создаёт иногда лишние стили типа:
«По центру, первая строка 0 см» или «Слева 1 см, первая строка 0 см». При этом абзацев, текста оформленных такими стилями нет и стили никак не удаляются.
Как с этим бороться?

rzt
В Сервис-Параметры-Правка убрать галку "Вести учет форматирования"
Ну и конечно в Автозамена-Автоформат при вводе "Определять стили" убрать!

Цитата:

В Сервис-Параметры-Правка убрать галку "Вести учет форматирования"

– это не подходит, при этом пропадает полезная возможность «Выделить все вхождения».

Цитата:

Ну и конечно в Автозамена-Автоформат при вводе "Определять стили" убрать!

– попробую может в будущих документах лишние стили не будут создаваться
Самая главная проблема, что такие лишние стили никак нельзя удалить.

rzt

Цитата:

Самая главная проблема, что такие лишние стили никак нельзя удалить.

Если нужно что-то изменить в Normal.dot, то нужно его открыть, потом выйти по меню в Organizer (организатор)
Tools=>Templates and Add-ins=>Templates=>Organizer...
или так
Tools=>Macro=>Macros=>Organizer...
сделать нужные изменения и сохранить их.

Скажите, пожалуйста, как добиться возможности слияния двух вордовских файлов, т.е. по аналогии со слиянием .doc и .xls.
Мне нужно из некоторых мест одного док-та брать данные и автоматом вставлять в другое место другого док-та.

И еще - как добиться, чтобы при слиянии doc и xls, при обнаружении пустой ячейки в Экселевском файле, в результирующем поле "слитого" doc'а отображался прочерк? Ну а во всех остальных полях ассоциированных с непустыми ячейками Экселевской таблицы будут отображаться соотв. данные

Заранее благодарен!

SuperMaximus

Цитата:

Скажите, пожалуйста, как добиться возможности слияния двух вордовских файлов

В Ворде предусмотрено слияние писем, т.е. можно создать таблицу адресов и шаблон письма с полями из той таблицы. Однако, пользуясь этими шагами можно сделать свою таблицу и свой шаблон необязательно для писем. В более ранних версиях Ворда создавалась вордовская таблица. В 2003 версии (в ХР тоже) создается таблица Аксесс. Однако, все-таки можно использовать вордовскую таблицу, но есть неудобство. В более ранних версиях в основном документе можно было открыть форму заполнения таблицы. Сейчас таблицу приходится пополнять по месту ее нахождения, т.е., если это вордовская таблица, то нужно ее открыть и непосредственно в нее вводить новые данные без всякой формы.

Вы все-таки хотите использовать вордовскую таблицу вместо аксессовской? Если да, я могу расписать шаги, которые нужно проделать.

kuku1375,

Да, пожалуйста, распишите алгоритм решения проблемы.
Вообще то не только текст из вордовской таблицы будет использоваться, но еще и обычный текст (не из таблицы) из того же док-та.

Спасибо!

SuperMaximus

Цитата:

не только текст из вордовской таблицы будет использоваться, но еще и обычный текст (не из таблицы) из того же док-та.

При слиянии имеется два файла: один - первичный, в котором есть нужный вам текст и прочее и поля, значения для которых выбираются из второго файла - таблицы.

Слияние с созданием вордовской таблицы делается так:
* создаем вордовскую таблицу, в ячейки первого ряда вписываюся названия полей, во второй и дальнейшие ряды - значения;
* закрываем таблицу, открываем новый файл;
* идем в меню:
    Tools=>Letters ans Mailings=>Mail Merge=>Letters=>Next=>Use the current document>Next=>Use an existing list=>Next=>Открываем ранее созданную таблицу=>Выбираем нужные поля (в нашем случае, скорее всего, все поля)=>Next=>создаем первичный документ=>выбираем место, куда нужно вставить поле=>More items=>выбираем соответствующее поле=>повторяем вставку полей необходимое количество раз=>Next=>смотрим, что получилось, меняем значения полей в меню слияния переходя от одного номера ряда к другому=>Next=>ваш документ готов=>Edit individual letter=>выбирает нужные ряды от одного до всех=>распечатываете или сохраняете полученное.

Добрый день! У меня порядка 100-150 документов тянущихся с версии 97 Word, не раз копированные и пересохраненные в более поздних версиях Word. Стали обнаруживаться "искривление" шрифтов (то есть некоторые абзацы нечитаемы совсем, либо ломаная кодировка и т.п.) при пересылке или же открытии документов опять же в разных версиях (как в 97 так и в XP).

Подскажите, пожалуйста, с чем это связано?!
У меня подозрение, что необходимо удалять старые Стили из старых версий документа пока и они не "поломались" и пока еще читаемые. Если это так, то какие быстрые варианты обработки документов (удаление стилей) можно проработать? Но при этом чтобы Стили форматирования заголовков, списков и т.п. остались.

Busyatka
См. мой постинг на предыдущей странице.

kuku1375 к сожалению, это не позволяет сделать во всех документах. прежние стили остаются. И открывая каждый документ, пусть даже с исправленым Нормал.дот каждый Стиль надо удалять практически вручную и в каждом документе.

Busyatka

Цитата:

каждый Стиль надо удалять практически вручную и в каждом документе.

Удалять нужно из каждого документа, но не обязательно вручную. Используйте организатор. Он годится для любого файла, не только Normal.dot.

Доброй ночи всем кто ещё не спит.
Очень прошу помочь мне.
Вот моя проблема.

У меня не печатаются и не распознаются специальные буквы немецкого языка (умляуты и буква з).
Вместо них печатаются русские буквы.

То же самое происходит при заходе на немецкие сайты. Все специальные буквы немецкого языка заменяются на русские (&#246;, &#228;, p, &#223;).

Раньше всё было нормально. Мог и печатать и смотреть. Теперь ничего не работает. Открываю свои старые тексты, что я сам набирал в Word, и там тоже нет этих букв.

Как мне быть? На днях я должен буду сдать работу (напечатать несколько десятков страниц на немецком языке). Очень прошу, кто знает в чём проблема и как её решить, помогите.

Отвечу на любые вопросы, если это поможет определить проблему.
Устанавливал множество програм (более 50) так что не спрашивайте "Устанавливал что-либо или нет".

Первые симптомы сбоя я заметил когда в Word вместо знака абзаца стал отображаться мягкий знак "Я".

Вероятно это связано и с "немецкими" проблемами.

Очень жду помощи.

Приветствую!

Такой вопрос по Word 2000 ru, Хотелось бы, что бы часто используемые слова при написании автоматически подстовлялись, написал первые три-четыре буквы и остальное он бы подставил сам, я в Экселе такое увидел, так меня порадовало это, если кто нибудь знает расскажите подробнее где и чего включить?. Заранее благодарен.

9628
Если это проблема и Ворда и браузера, то можно предположить, что она кроется в компоненте общем для них. Попробуйте установить новый шрифт и посмотрите, что получится при его использовании.
Dimkaa
Tools=>Autocorrect Options=>Autotext=>вводим слово, нажимаем Add, нажимаем ОК
Tools=>Autocorrect Options=>Autocorrect=>вставляем три-четыре буквы окошко Replace и полностью слово в окошко With, нажимаем ОК

kuku1375
Спасибо, именно так я и сделал.
Да, действительно, теперь стал работать Word и браузер.
Интересно, а кто мог поменять мои шрифты? могло это произойти при установке программ или же при установке патчей?

9628

Цитата:

Интересно, а кто мог поменять мои шрифты?

Я рад, что вам помог. Думаю, что вы сами поменяли свои шрифты, т.к. поустанавливали 50 программ и не посмотрели, что из этого получилось. Простая рекомендация: установив новую программу (одну!), посмотрите, что получилось, поработайте с другими программаи. Еще лучше до этой установки сделать образ жесткого диска, чтобы можно было вернуться, к безопасному прошлому. Если, спустя неделю или вроде того, при работе с другими программами ничего не произошло. Сделайте образ нового состояния и установите новую+1 программу.

Цитата:

Простая рекомендация: установив новую программу (одну!), посмотрите, что получилось, поработайте с другими программаи. Еще лучше до этой установки сделать образ жесткого диска, чтобы можно было вернуться, к безопасному прошлому. Если, спустя неделю или вроде того, при работе с другими программами ничего не произошло. Сделайте образ нового состояния и установите новую+1 программу.

Это, конечно, идеал. Сомневаюсь, что кто-то так будет делать в действительности...

Цитата:

Это, конечно, идеал. Сомневаюсь, что кто-то так будет делать в действительности...

Если важна стабильная работа, то будут.
В этом плане Acronis True Image рулит.

Народ, всем привет!
Проблемы не решены.
Осаётся вопрос - где взять шрифты?
Искал на сайте Microsoft, но толком ничего не нашёл.
Подскажите, где можно взять шрифты.
Желательно, чтобы это было не 1000 и не 1000 000 шрифтов, а самые необходимые. Times New Romman, Arial и т.д.

Я вот попросил друга, он выслал мне парочку шрифтов, но не всегда страницы отображаются как следует. Вероятно, что не хватает каких-то шрифтов.

Ещё раз повторю свой вопрос:
где можно найти и скачать шрифты?

Спасибо.

Кто-то раньше очень хотел удалить личную информацию из документа. Ему предлагались программы как дополнения к Word-у. А у меня есть такое наблюдение:
Сервис &#8594; Параметры &#8594; Безопасность
поставить галочку "Удалять личные сведения …"
Экспериментировал, если галочка стоит то при сохранении документа личные данные отсутствуют, то есть нет информации про автора и другой чепухи, только название документа.
Пока я не готов сказав или сохраняется информация о рецензентах, так нет документа который изменялся на нескольких компьютерах.


Добавлено:
извените за оформление, отсылка не принемает "вставок"

valera_ua

Цитата:

Пока я не готов сказав или сохраняется информация о рецензентах,

Таки да, сохраняется.

kuku1375, огромное спасибо за помощь!
А можно ли как-нибудь сделать это все при помощи HyperLink? (гиперссылки)
В источнике, к примеру, как-то создать закладки (но если я буду вводить на место этих закладок новые данные, то чтобы закладки не стирались), а в целовом документе вставить HyperLink... Если да, то как?

Спасибо!

SuperMaximus

Цитата:

А можно ли как-нибудь сделать это все при помощи HyperLink?

А можно я вас спрошу, зачем вам нужна именно гиперссылка? Или, лучше, по-другому: что вы хотите сделать и для чего вам это нужно?

kuku1375
Так как Вы написали раньше - не получается, т.к. в окне запроса разделителя поля и записи что не выставляй - word не понимает какие именно данные брать для слияния. Вобщем каша получается какая-то. А про гиперссылку - думаю, что если можно ассоциировать конкретные данные с одного док-та (источника) с полями в другом, то гиперссылка (хотя бы звучит ) надежнее будет... Хотя, опять же, я не знаю как ее правильно использовать.

SuperMaximus

Цитата:

Так как Вы написали раньше - не получается, т.к. в окне запроса разделителя поля и записи что не выставляй - word не понимает какие именно данные брать для слияния. Вобщем каша получается какая-то. А про гиперссылку - думаю, что если можно

Я надеюсь, что вы все сделали, как описано в последовательности действий. Тогда у вас получился нужный документ. Теперь, нужно научиться им пользоваться. При открытии основного документа, у вас поля будут заполняться в зависимоти от того, какой ряд таблицы открыт. Вот, смотрите, как выглядит основной документ для слияния письма (колонтитул я убрал).

Там, где слова на сером фоне - это поля. В данном случае выбран третий ряд, что видно на полоске меню (цифра 3). Чтобы выбрать другой номер записи, его можно вписать в это окошко и нажать enter, можно также двигаться при нажатии стрелок справа и слева от окошка с номером записи. Можно искать нужную запись если нажать иконку с биноклем справа от номера и стрелок. Кнопка через одну справа от бинокля - для слияния в новый результирующий документ. Ну, и т.д., поиграйте с кнопками.

Можно также создать документ-шаблон с выпадающими списками. Тогда в каждом списке можно будет ввести свои независимые от других списков данные. Но если вам нужно вводить ряд взаимосвязанных данных, то вам нужно то, что вы сделали. Что касается гирепссылки, то она просто перенесет вас в другое место, слияния не получится.