Как исправить время выполнения Ошибка 4198 Ошибка Microsoft Word 4198
В этой статье представлена ошибка с номером Ошибка 4198, известная как Ошибка Microsoft Word 4198, описанная как Ошибка 4198: Возникла ошибка в приложении Microsoft Word. Приложение будет закрыто. Приносим свои извинения за неудобства.
О программе Runtime Ошибка 4198
Время выполнения Ошибка 4198 происходит, когда Microsoft Word дает сбой или падает во время запуска, отсюда и название. Это не обязательно означает, что код был каким-то образом поврежден, просто он не сработал во время выполнения. Такая ошибка появляется на экране в виде раздражающего уведомления, если ее не устранить. Вот симптомы, причины и способы устранения проблемы.
Определения (Бета)
Здесь мы приводим некоторые определения слов, содержащихся в вашей ошибке, в попытке помочь вам понять вашу проблему. Эта работа продолжается, поэтому иногда мы можем неправильно определить слово, так что не стесняйтесь пропустить этот раздел!
- Microsoft word — по вопросам программирования, связанным с редактором Microsoft Word.
Симптомы Ошибка 4198 — Ошибка Microsoft Word 4198
Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.
Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.
(Только для примера)
Причины Ошибка Microsoft Word 4198 — Ошибка 4198
При разработке программного обеспечения программисты составляют код, предвидя возникновение ошибок. Однако идеальных проектов не бывает, поскольку ошибки можно ожидать даже при самом лучшем дизайне программы. Глюки могут произойти во время выполнения программы, если определенная ошибка не была обнаружена и устранена во время проектирования и тестирования.
Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.
Методы исправления
Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.
Если метод ремонта вам подошел, пожалуйста, нажмите кнопку upvote слева от ответа, это позволит другим пользователям узнать, какой метод ремонта на данный момент работает лучше всего.
Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.
Метод 1 — Закройте конфликтующие программы
Когда вы получаете ошибку во время выполнения, имейте в виду, что это происходит из-за программ, которые конфликтуют друг с другом. Первое, что вы можете сделать, чтобы решить проблему, — это остановить эти конфликтующие программы.
- Откройте диспетчер задач, одновременно нажав Ctrl-Alt-Del. Это позволит вам увидеть список запущенных в данный момент программ.
- Перейдите на вкладку «Процессы» и остановите программы одну за другой, выделив каждую программу и нажав кнопку «Завершить процесс».
- Вам нужно будет следить за тем, будет ли сообщение об ошибке появляться каждый раз при остановке процесса.
- Как только вы определите, какая программа вызывает ошибку, вы можете перейти к следующему этапу устранения неполадок, переустановив приложение.
Метод 2 — Обновите / переустановите конфликтующие программы
Использование панели управления
- В Windows 7 нажмите кнопку «Пуск», затем нажмите «Панель управления», затем «Удалить программу».
- В Windows 8 нажмите кнопку «Пуск», затем прокрутите вниз и нажмите «Дополнительные настройки», затем нажмите «Панель управления»> «Удалить программу».
- Для Windows 10 просто введите «Панель управления» в поле поиска и щелкните результат, затем нажмите «Удалить программу».
- В разделе «Программы и компоненты» щелкните проблемную программу и нажмите «Обновить» или «Удалить».
- Если вы выбрали обновление, вам просто нужно будет следовать подсказке, чтобы завершить процесс, однако, если вы выбрали «Удалить», вы будете следовать подсказке, чтобы удалить, а затем повторно загрузить или использовать установочный диск приложения для переустановки. программа.
Использование других методов
- В Windows 7 список всех установленных программ можно найти, нажав кнопку «Пуск» и наведя указатель мыши на список, отображаемый на вкладке. Вы можете увидеть в этом списке утилиту для удаления программы. Вы можете продолжить и удалить с помощью утилит, доступных на этой вкладке.
- В Windows 10 вы можете нажать «Пуск», затем «Настройка», а затем — «Приложения».
- Прокрутите вниз, чтобы увидеть список приложений и функций, установленных на вашем компьютере.
- Щелкните программу, которая вызывает ошибку времени выполнения, затем вы можете удалить ее или щелкнуть Дополнительные параметры, чтобы сбросить приложение.
Метод 3 — Обновите программу защиты от вирусов или загрузите и установите последнюю версию Центра обновления Windows.
Заражение вирусом, вызывающее ошибку выполнения на вашем компьютере, необходимо немедленно предотвратить, поместить в карантин или удалить. Убедитесь, что вы обновили свою антивирусную программу и выполнили тщательное сканирование компьютера или запустите Центр обновления Windows, чтобы получить последние определения вирусов и исправить их.
Метод 4 — Переустановите библиотеки времени выполнения
Вы можете получить сообщение об ошибке из-за обновления, такого как пакет MS Visual C ++, который может быть установлен неправильно или полностью. Что вы можете сделать, так это удалить текущий пакет и установить новую копию.
- Удалите пакет, выбрав «Программы и компоненты», найдите и выделите распространяемый пакет Microsoft Visual C ++.
- Нажмите «Удалить» в верхней части списка и, когда это будет сделано, перезагрузите компьютер.
- Загрузите последний распространяемый пакет от Microsoft и установите его.
Метод 5 — Запустить очистку диска
Вы также можете столкнуться с ошибкой выполнения из-за очень нехватки свободного места на вашем компьютере.
- Вам следует подумать о резервном копировании файлов и освобождении места на жестком диске.
- Вы также можете очистить кеш и перезагрузить компьютер.
- Вы также можете запустить очистку диска, открыть окно проводника и щелкнуть правой кнопкой мыши по основному каталогу (обычно это C
- Щелкните «Свойства», а затем — «Очистка диска».
Метод 6 — Переустановите графический драйвер
Если ошибка связана с плохим графическим драйвером, вы можете сделать следующее:
- Откройте диспетчер устройств и найдите драйвер видеокарты.
- Щелкните правой кнопкой мыши драйвер видеокарты, затем нажмите «Удалить», затем перезагрузите компьютер.
Метод 7 — Ошибка выполнения, связанная с IE
Если полученная ошибка связана с Internet Explorer, вы можете сделать следующее:
- Сбросьте настройки браузера.
- В Windows 7 вы можете нажать «Пуск», перейти в «Панель управления» и нажать «Свойства обозревателя» слева. Затем вы можете перейти на вкладку «Дополнительно» и нажать кнопку «Сброс».
- Для Windows 8 и 10 вы можете нажать «Поиск» и ввести «Свойства обозревателя», затем перейти на вкладку «Дополнительно» и нажать «Сброс».
- Отключить отладку скриптов и уведомления об ошибках.
- В том же окне «Свойства обозревателя» можно перейти на вкладку «Дополнительно» и найти пункт «Отключить отладку сценария».
- Установите флажок в переключателе.
- Одновременно снимите флажок «Отображать уведомление о каждой ошибке сценария», затем нажмите «Применить» и «ОК», затем перезагрузите компьютер.
Если эти быстрые исправления не работают, вы всегда можете сделать резервную копию файлов и запустить восстановление на вашем компьютере. Однако вы можете сделать это позже, когда перечисленные здесь решения не сработают.
Другие языки:
How to fix Error 4198 (Microsoft Word Error 4198) — Error 4198: Microsoft Word has encountered a problem and needs to close. We are sorry for the inconvenience.
Wie beheben Fehler 4198 (Microsoft Word-Fehler 4198) — Fehler 4198: Microsoft Word hat ein Problem festgestellt und muss geschlossen werden. Wir entschuldigen uns für die Unannehmlichkeiten.
Come fissare Errore 4198 (Errore di Microsoft Word 4198) — Errore 4198: Microsoft Word ha riscontrato un problema e deve essere chiuso. Ci scusiamo per l’inconveniente.
Hoe maak je Fout 4198 (Microsoft Word-fout 4198) — Fout 4198: Microsoft Word heeft een probleem ondervonden en moet worden afgesloten. Excuses voor het ongemak.
Comment réparer Erreur 4198 (Erreur Microsoft Word 4198) — Erreur 4198 : Microsoft Word a rencontré un problème et doit se fermer. Nous sommes désolés du dérangement.
어떻게 고치는 지 오류 4198 (마이크로소프트 워드 오류 4198) — 오류 4198: Microsoft Word에 문제가 발생해 닫아야 합니다. 불편을 끼쳐드려 죄송합니다.
Como corrigir o Erro 4198 (Erro 4198 do Microsoft Word) — Erro 4198: O Microsoft Word encontrou um problema e precisa fechar. Lamentamos o inconveniente.
Hur man åtgärdar Fel 4198 (Microsoft Word-fel 4198) — Fel 4198: Microsoft Word har stött på ett problem och måste avslutas. Vi är ledsna för besväret.
Jak naprawić Błąd 4198 (Błąd Microsoft Word 4198) — Błąd 4198: Microsoft Word napotkał problem i musi zostać zamknięty. Przepraszamy za niedogodności.
Cómo arreglar Error de 4198 (Error 4198 de Microsoft Word) — Error 4198: Microsoft Word ha detectado un problema y debe cerrarse. Lamentamos las molestias.
Об авторе: Фил Харт является участником сообщества Microsoft с 2010 года. С текущим количеством баллов более 100 000 он внес более 3000 ответов на форумах Microsoft Support и создал почти 200 новых справочных статей в Technet Wiki.
Следуйте за нами:
Последнее обновление:
06/11/22 01:16 : Пользователь Android проголосовал за то, что метод восстановления 1 работает для него.
Этот инструмент восстановления может устранить такие распространенные проблемы компьютера, как синие экраны, сбои и замораживание, отсутствующие DLL-файлы, а также устранить повреждения от вредоносных программ/вирусов и многое другое путем замены поврежденных и отсутствующих системных файлов.
ШАГ 1:
Нажмите здесь, чтобы скачать и установите средство восстановления Windows.
ШАГ 2:
Нажмите на Start Scan и позвольте ему проанализировать ваше устройство.
ШАГ 3:
Нажмите на Repair All, чтобы устранить все обнаруженные проблемы.
СКАЧАТЬ СЕЙЧАС
Совместимость
Требования
1 Ghz CPU, 512 MB RAM, 40 GB HDD
Эта загрузка предлагает неограниченное бесплатное сканирование ПК с Windows. Полное восстановление системы начинается от $19,95.
ID статьи: ACX08338RU
Применяется к: Windows 10, Windows 8.1, Windows 7, Windows Vista, Windows XP, Windows 2000
- Remove From My Forums
-
Question
-
I’m encountering error from VBA which runs fine before and don’t know where was revised and triggered error 4198.
The debug function indicated error from the bottom sixth row: appWD.ActiveDocument.SaveAs2 (TWD_SLoc & «» & ThisWorkbook.Sheets(«TWD»).Range(«D» & i + 1) & «.docx»).
This macro is meant to merge excel data into word template to create individual word report. All word files were successfully created under this macro, however stuck just before ended. The true problem seems to be that vba kept on running after all data
were run through.Hoping for some great opinions! I’m desperate…
Sub Report_TWD() Dim TWD_MLoc As String, TWD_DLoc As String, TWD_SLoc As String TWD_MLoc = ThisWorkbook.Sheets("°õ¦æ").Range("B5").Value TWD_DLoc = ThisWorkbook.Sheets("°õ¦æ").Range("C5").Value TWD_SLoc = ThisWorkbook.Sheets("°õ¦æ").Range("D5").Value Dim appWD As Word.Application Set appWD = CreateObject("Word.Application") appWD.Visible = True Dim TWDWD As Word.Document Set TWDWD = appWD.Documents.Open(TWD_MLoc) TWDWD.Activate TWDWD.MailMerge.OpenDataSource Name:=TWD_DLoc, SQLStatement:="SELECT * FROM `TWD$`" Dim x As Long Dim i As Long Dim v As Long, w As Long Dim stMsg As String TWDWD.Activate With TWDWD.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .ActiveRecord = wdLastRecord x = .ActiveRecord .ActiveRecord = wdFirstRecord End With For i = 1 To x .DataSource.FirstRecord = i .DataSource.LastRecord = i .Execute appWD.ActiveDocument.SaveAs2 (TWD_SLoc & "" & ThisWorkbook.Sheets("TWD").Range("D" & i + 1) & ".docx") appWD.ActiveDocument.Close wdDoNotSaveChanges Next i End With TWDWD.Close wdDoNotSaveChanges End Sub
-
Edited by
Friday, November 10, 2017 7:08 AM
-
Edited by
Содержание
- Как исправить ошибку Microsoft Word 4198
- Обзор «Microsoft Word Error 4198»
- Почему возникает ошибка времени выполнения 4198?
- Распространенные проблемы Microsoft Word Error 4198
- Причины проблем Microsoft Word Error 4198
- Как исправить время выполнения Ошибка 4198 Ошибка Microsoft Word 4198
- Thread: Excel Add In runtime error 4198
- Excel Add In runtime error 4198
- Run time error 4198
- Answered by:
- Question
- Answers
- All replies
- Run time error 4198
- Question
- Answers
- All replies
Как исправить ошибку Microsoft Word 4198
Номер ошибки: | Ошибка 4198 | |
Название ошибки: | Microsoft Word Error 4198 | |
Описание ошибки: | Ошибка 4198: Возникла ошибка в приложении Microsoft Word. Приложение будет закрыто. Приносим извинения за неудобства. | |
Разработчик: | Microsoft Corporation | |
Программное обеспечение: | Microsoft Word | |
Относится к: | Windows XP, Vista, 7, 8, 10, 11 |
Обзор «Microsoft Word Error 4198»
«Microsoft Word Error 4198» также считается ошибкой во время выполнения (ошибкой). Разработчики программного обеспечения пытаются обеспечить, чтобы программное обеспечение было свободным от этих сбоев, пока оно не будет публично выпущено. К сожалению, инженеры являются людьми и часто могут делать ошибки во время тестирования, отсутствует ошибка 4198.
Пользователи Microsoft Word могут столкнуться с ошибкой 4198, вызванной нормальным использованием приложения, которое также может читать как «Microsoft Word Error 4198». Во время возникновения ошибки 4198 конечный пользователь может сообщить о проблеме в Microsoft Corporation. Затем Microsoft Corporation нужно будет исправить эти ошибки в главном исходном коде и предоставить модифицированную версию для загрузки. Эта ситуация происходит из-за обновления программного обеспечения Microsoft Word является одним из решений ошибок 4198 ошибок и других проблем.
Почему возникает ошибка времени выполнения 4198?
Сбой во время запуска Microsoft Word или во время выполнения, как правило, когда вы столкнетесь с «Microsoft Word Error 4198». Вот три наиболее заметные причины ошибки ошибки 4198 во время выполнения происходят:
Ошибка 4198 Crash — Ошибка 4198 является хорошо известной, которая происходит, когда неправильная строка кода компилируется в исходный код программы. Обычно это происходит, когда Microsoft Word не может распознать, что ему дается неправильный ввод, или не знает, что он должен производить.
Утечка памяти «Microsoft Word Error 4198» — когда происходит утечка памяти Microsoft Word, это приведет к вялой работе операционной системы из-за нехватки системных ресурсов. Повреждение памяти и другие потенциальные ошибки в коде могут произойти, когда память обрабатывается неправильно.
Ошибка 4198 Logic Error — Логическая ошибка вызывает неправильный вывод, даже если пользователь дал действительные входные данные. Виновником в этом случае обычно является недостаток в исходном коде Microsoft Corporation, который неправильно обрабатывает ввод.
Microsoft Word Error 4198 проблемы часто являются результатом отсутствия, удаления или случайного перемещения файла из исходного места установки Microsoft Word. Большую часть проблем, связанных с данными файлами, можно решить посредством скачивания и установки последней версии файла Microsoft Corporation. В качестве дополнительного шага по устранению неполадок мы настоятельно рекомендуем очистить все пути к неверным файлам и ссылки на расширения файлов Microsoft Corporation, которые могут способствовать возникновению такого рода ошибок, связанных с Microsoft Word Error 4198.
Распространенные проблемы Microsoft Word Error 4198
Частичный список ошибок Microsoft Word Error 4198 Microsoft Word:
- «Ошибка программного обеспечения Microsoft Word Error 4198. «
- «Microsoft Word Error 4198 не является приложением Win32.»
- «Microsoft Word Error 4198 должен быть закрыт. «
- «К сожалению, мы не можем найти Microsoft Word Error 4198. «
- «Microsoft Word Error 4198 не может быть найден. «
- «Ошибка запуска программы: Microsoft Word Error 4198.»
- «Microsoft Word Error 4198 не выполняется. «
- «Microsoft Word Error 4198 выйти. «
- «Microsoft Word Error 4198: путь приложения является ошибкой. «
Обычно ошибки Microsoft Word Error 4198 с Microsoft Word возникают во время запуска или завершения работы, в то время как программы, связанные с Microsoft Word Error 4198, выполняются, или редко во время последовательности обновления ОС. Отслеживание того, когда и где возникает ошибка Microsoft Word Error 4198, является важной информацией при устранении проблемы.
Причины проблем Microsoft Word Error 4198
Проблемы Microsoft Word Error 4198 могут быть отнесены к поврежденным или отсутствующим файлам, содержащим ошибки записям реестра, связанным с Microsoft Word Error 4198, или к вирусам / вредоносному ПО.
Точнее, ошибки Microsoft Word Error 4198, созданные из:
- Недопустимый Microsoft Word Error 4198 или поврежденный раздел реестра.
- Вредоносные программы заразили Microsoft Word Error 4198, создавая повреждение.
- Вредоносное удаление (или ошибка) Microsoft Word Error 4198 другим приложением (не Microsoft Word).
- Другое приложение, конфликтующее с Microsoft Word Error 4198 или другими общими ссылками.
- Поврежденная установка или загрузка Microsoft Word (Microsoft Word Error 4198).
Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11
Источник
Как исправить время выполнения Ошибка 4198 Ошибка Microsoft Word 4198
В этой статье представлена ошибка с номером Ошибка 4198, известная как Ошибка Microsoft Word 4198, описанная как Ошибка 4198: Возникла ошибка в приложении Microsoft Word. Приложение будет закрыто. Приносим свои извинения за неудобства.
Информация об ошибке
Имя ошибки: Ошибка Microsoft Word 4198
Номер ошибки: Ошибка 4198
Описание: Ошибка 4198: Возникла ошибка в приложении Microsoft Word. Приложение будет закрыто. Приносим свои извинения за неудобства.
Программное обеспечение: Microsoft Word
Разработчик: Microsoft
Этот инструмент исправления может устранить такие распространенные компьютерные ошибки, как BSODs, зависание системы и сбои. Он может заменить отсутствующие файлы операционной системы и библиотеки DLL, удалить вредоносное ПО и устранить вызванные им повреждения, а также оптимизировать ваш компьютер для максимальной производительности.
О программе Runtime Ошибка 4198
Время выполнения Ошибка 4198 происходит, когда Microsoft Word дает сбой или падает во время запуска, отсюда и название. Это не обязательно означает, что код был каким-то образом поврежден, просто он не сработал во время выполнения. Такая ошибка появляется на экране в виде раздражающего уведомления, если ее не устранить. Вот симптомы, причины и способы устранения проблемы.
Определения (Бета)
Здесь мы приводим некоторые определения слов, содержащихся в вашей ошибке, в попытке помочь вам понять вашу проблему. Эта работа продолжается, поэтому иногда мы можем неправильно определить слово, так что не стесняйтесь пропустить этот раздел!
- Microsoft word — по вопросам программирования, связанным с редактором Microsoft Word.
Симптомы Ошибка 4198 — Ошибка Microsoft Word 4198
Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.
Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.
(Ошибка Microsoft Word 4198) Repair Tool»/>
(Только для примера)
Причины Ошибка Microsoft Word 4198 — Ошибка 4198
При разработке программного обеспечения программисты составляют код, предвидя возникновение ошибок. Однако идеальных проектов не бывает, поскольку ошибки можно ожидать даже при самом лучшем дизайне программы. Глюки могут произойти во время выполнения программы, если определенная ошибка не была обнаружена и устранена во время проектирования и тестирования.
Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.
Методы исправления
Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.
Если метод ремонта вам подошел, пожалуйста, нажмите кнопку upvote слева от ответа, это позволит другим пользователям узнать, какой метод ремонта на данный момент работает лучше всего.
Источник
Thread: Excel Add In runtime error 4198
Thread Tools
Display
Excel Add In runtime error 4198
First off. Sorry for my ignorance of the computer programming world. I am an end user, and have zero programming background. But I am good at understanding things and taking directions, therefore I believe with a little guidance, I may be able to resolve my issue.
For several years, I have been using an excel add-in, entitled ExcelToWord!, written by an author named dlmille. The add-in allows me to create MS Word templates with specified bookmarks, and merge excel spreadsheets into these templates to create MS Word documents.
I have successfully been using it on multiple machines running windows 7, along with MS Office 2007. I finally upgraded some of my equipment, and find that this add-in does not function properly on my new computers. They are running windows 8.1, with the same clean install of MS Office 2007.
The issue occurs when ExcelToWord! attempts to create the dotx document. I keep receiving the run-time error 4198. And my only options are to end or to debug. When I click debug, the follow code is highlighted, and I’m assuming that mean this is where the problem is.
I don’t know if I have provided enough information, or if I have posted this in the correct forum, but any guidance would be greatly appreciated.
Last edited by CallMeMaybe; 10-17-2015 at 07:52 PM .
Источник
Run time error 4198
This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.
Answered by:
Question
I have written a function in Excel 2010 using VBA that performs a mail merge in Word 2010 using a CSV file that I generated with data from the Excel workbook.
When I run the code manually, step by step, using F8, everything works fine. When I run the code from the User Form, the code generates error number 4198 stating ‘Command Failed’. The error occurs in line 16.
I have searched several sources, but I cannot find a solution to my problem. What goes wrong?
Answers
Thanks for your reply. I have tried your suggestion and it seems to work! Only change is I used Resume rather than Resume Next.
I have declared two additional variables: iErrCounter and iWait and I have adjusted my Err_Handler as follows:
I have tested a couple of times and the code only runs into the Err_Handler once. So the 1000 DoEvents (appr. 1 second?) apparently do the job.
iPillar | Selfmade Office Fiddler
My best guess would be that it’s a synchronization problem. Word should run synchronously, but recently more and more things in the application seem to be asynchronous — possibly to make Word faster. But that of course makes life «uncomfortable» for the developer as the object model doesn’t really give us any proper way to find out if Word is ready to receive commands.
How about if you use Resume Next instead of Resume Exit_Handler in your Err_hanlder? (And create a counter that you incrememnt each time the error handler is triggered so that you don’t get in an endless loop. When it reaches a certain value, then use Resume Exit_Handler.) Will the line work on the second, third or fourth try?
Cindy Meister, VSTO/Word MVP
Thanks for your reply. I have tried your suggestion and it seems to work! Only change is I used Resume rather than Resume Next.
I have declared two additional variables: iErrCounter and iWait and I have adjusted my Err_Handler as follows:
I have tested a couple of times and the code only runs into the Err_Handler once. So the 1000 DoEvents (appr. 1 second?) apparently do the job.
Источник
Run time error 4198
Question
I’m trying run a macro embedded in a Word document using C#, but Word pops up with the following error:
Run-time error ‘4198’:
Command Failed
It fails at ActiveDocument.SaveAs line. I’ve checked the file path while debugging the macro and it looks the same as the above minus the double slashes. Also I have very little experience with Visual Basic, so I’m not sure if I’m doing something wrong there. Any help would be appreciated and sorry for some of the crazy page formatting.
Answers
My only reasoning for trying to have the macro save the document was I thought maybe if I had something attached to the document directly the save would have more success, but obviously I was wrong. I’ve also had several threading issues throughout this whole process, so I’m not sure if maybe that is still the problem. >>
OK, I think I’m with you, more or less. Office apps don’t really support «threading», so this could, indeed, be an issue. If you can take that out of the equation in a fairly simple manner for testing purposes, you should try that. It’s seems the most likely suspect, given the results of my other suggestions.
It could also (and this would be related to threading) be a timing issue. Normally, using the Show method for a Windows Form should stop things and a Timer wouldn’t be necessary. Given the «threading», I can see where you might attempt using a Timer. But it’s possible that things still aren’t accessible (the document is still «locked» somehow).
FWIW it’s possible to «repurpose» Word’s FileSaveAs dialog box to a limited extent, through late-binding. You can get the selected path and file name, and whether the user clicked Cancel.
Cindy Meister, VSTO/Word MVP
Command failed means, literally, that Word for some reason couldn’t do what you asked it to do. Too bad it never tells you WHY.
One thing I’d try is to remove the ByRef in the method signature. In general terms, Office works better if you just let it do its thing. You aren’t manipulating this information in any way so it shouldn’t matter to you whether things go in byref or byval. Let Word decide what it prefers.
The other thing I’d try is to make a copy of the procedure — FileSaveAs_Test for example, remove the parameters, add a variable and assign it the path, then see if the macro itself will run in the Word UI. (Just press F5.) You’re testing that the document can be saved, or not.
The try calling this from the .NET code (not passing any parameters, just calling the macro in the context of your code). This will tell you if your code is putting Word in a state where it can’t save.
If that works, put one parameter back into the «test» macro and, if that works, the other.
If that also works then the problem may be with the name you’ve given the macro. FileSaveAs is an internal Word command, but the method signature has no parameters. In Word, as a VBA programmer, you can override (repurpose) internal commands by create a Public Sum CommandName() procedure with your code. It’s possible that Word doesn’t like how you’re using its internal command and/or you’re running into a conflict with it.
Источник
Номер ошибки: | Ошибка 4198 | |
Название ошибки: | Microsoft Word Error 4198 | |
Описание ошибки: | Ошибка 4198: Возникла ошибка в приложении Microsoft Word. Приложение будет закрыто. Приносим извинения за неудобства. | |
Разработчик: | Microsoft Corporation | |
Программное обеспечение: | Microsoft Word | |
Относится к: | Windows XP, Vista, 7, 8, 10, 11 |
Обзор «Microsoft Word Error 4198»
«Microsoft Word Error 4198» также считается ошибкой во время выполнения (ошибкой). Разработчики программного обеспечения пытаются обеспечить, чтобы программное обеспечение было свободным от этих сбоев, пока оно не будет публично выпущено. К сожалению, инженеры являются людьми и часто могут делать ошибки во время тестирования, отсутствует ошибка 4198.
Пользователи Microsoft Word могут столкнуться с ошибкой 4198, вызванной нормальным использованием приложения, которое также может читать как «Microsoft Word Error 4198». Во время возникновения ошибки 4198 конечный пользователь может сообщить о проблеме в Microsoft Corporation. Затем Microsoft Corporation нужно будет исправить эти ошибки в главном исходном коде и предоставить модифицированную версию для загрузки. Эта ситуация происходит из-за обновления программного обеспечения Microsoft Word является одним из решений ошибок 4198 ошибок и других проблем.
Почему возникает ошибка времени выполнения 4198?
Сбой во время запуска Microsoft Word или во время выполнения, как правило, когда вы столкнетесь с «Microsoft Word Error 4198». Вот три наиболее заметные причины ошибки ошибки 4198 во время выполнения происходят:
Ошибка 4198 Crash — Ошибка 4198 является хорошо известной, которая происходит, когда неправильная строка кода компилируется в исходный код программы. Обычно это происходит, когда Microsoft Word не может распознать, что ему дается неправильный ввод, или не знает, что он должен производить.
Утечка памяти «Microsoft Word Error 4198» — когда происходит утечка памяти Microsoft Word, это приведет к вялой работе операционной системы из-за нехватки системных ресурсов. Повреждение памяти и другие потенциальные ошибки в коде могут произойти, когда память обрабатывается неправильно.
Ошибка 4198 Logic Error — Логическая ошибка вызывает неправильный вывод, даже если пользователь дал действительные входные данные. Виновником в этом случае обычно является недостаток в исходном коде Microsoft Corporation, который неправильно обрабатывает ввод.
Microsoft Word Error 4198 проблемы часто являются результатом отсутствия, удаления или случайного перемещения файла из исходного места установки Microsoft Word. Большую часть проблем, связанных с данными файлами, можно решить посредством скачивания и установки последней версии файла Microsoft Corporation. В качестве дополнительного шага по устранению неполадок мы настоятельно рекомендуем очистить все пути к неверным файлам и ссылки на расширения файлов Microsoft Corporation, которые могут способствовать возникновению такого рода ошибок, связанных с Microsoft Word Error 4198.
Распространенные проблемы Microsoft Word Error 4198
Частичный список ошибок Microsoft Word Error 4198 Microsoft Word:
- «Ошибка программного обеспечения Microsoft Word Error 4198. «
- «Microsoft Word Error 4198 не является приложением Win32.»
- «Microsoft Word Error 4198 должен быть закрыт. «
- «К сожалению, мы не можем найти Microsoft Word Error 4198. «
- «Microsoft Word Error 4198 не может быть найден. «
- «Ошибка запуска программы: Microsoft Word Error 4198.»
- «Microsoft Word Error 4198 не выполняется. «
- «Microsoft Word Error 4198 выйти. «
- «Microsoft Word Error 4198: путь приложения является ошибкой. «
Обычно ошибки Microsoft Word Error 4198 с Microsoft Word возникают во время запуска или завершения работы, в то время как программы, связанные с Microsoft Word Error 4198, выполняются, или редко во время последовательности обновления ОС. Отслеживание того, когда и где возникает ошибка Microsoft Word Error 4198, является важной информацией при устранении проблемы.
Причины проблем Microsoft Word Error 4198
Проблемы Microsoft Word Error 4198 могут быть отнесены к поврежденным или отсутствующим файлам, содержащим ошибки записям реестра, связанным с Microsoft Word Error 4198, или к вирусам / вредоносному ПО.
Точнее, ошибки Microsoft Word Error 4198, созданные из:
- Недопустимый Microsoft Word Error 4198 или поврежденный раздел реестра.
- Вредоносные программы заразили Microsoft Word Error 4198, создавая повреждение.
- Вредоносное удаление (или ошибка) Microsoft Word Error 4198 другим приложением (не Microsoft Word).
- Другое приложение, конфликтующее с Microsoft Word Error 4198 или другими общими ссылками.
- Поврежденная установка или загрузка Microsoft Word (Microsoft Word Error 4198).
Продукт Solvusoft
Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.
Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11
Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление
XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
||||
1 |
||||
Найти ошибку в процедуре29.11.2010, 15:57. Показов 5515. Ответов 29 Метки нет (Все метки)
Ниже процедура, она выполняет удаление активных гиперссылок, в файлах найденных другой процедурой в заданной папке. (все это в форме) Она работает нормально до .Hyperlinks.Item(1).Delete и выбивает ошибку.
0 |
Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782 |
29.11.2010, 15:57 |
Ответы с готовыми решениями: Исправить ошибку в процедуре найти ошибку в процедуре interface uses Найти ошибку в процедуре
29 |
128 / 23 / 3 Регистрация: 23.09.2010 Сообщений: 62 |
|
29.11.2010, 16:43 |
2 |
активных гиперссылок а ещё какие есть гиперссылки? То есть надо из другой программы удалить все гиперссылки из документа Word?
0 |
Helen_fire 204 / 43 / 6 Регистрация: 15.10.2010 Сообщений: 125 |
||||
29.11.2010, 17:00 |
3 |
|||
РешениеОшибка в логике программы. нужно еще ввести переменную qlinks внутрь цикла и с каждым удалением ссылки уменьшать ее на 1 и сравнивать с нулем, т.к. цикл While у Вас бесконечен, а ссылок с каждым шагом становится на 1 меньше, вот он и приходит к тому, что надо удалять, а удалять нечего. Поэтому и сравнение qlinks с нулем и закрытие документа надо перенести внутрь цикла. Или сделать так:
2 |
исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
|
29.11.2010, 17:33 [ТС] |
4 |
а ещё какие есть гиперссылки? То есть надо из другой программы удалить все гиперссылки из документа Word? Как это какие? Это когда просто Url в тексте написан, как обычно в колонтитулах пишут.
0 |
Заблокирован |
|
29.11.2010, 19:42 |
5 |
Это когда просто Url в тексте написан это не является гиперссылкой.
0 |
218 / 50 / 2 Регистрация: 18.02.2010 Сообщений: 81 |
|
29.11.2010, 20:56 |
6 |
Попроще бы надо: Код Sub KillHyperLinks() Dim i&, k&, S$ For i = 1 To QFiles S = Files(i) With Documents.Open(FileName:=S, Visible:=False) For k = .Hyperlinks.Count To 1 Step -1 .Hyperlinks(k).Delete Next k .Close wdSaveChanges End With Next i End Sub Устранено два прилично тормозящих фактора:
1 |
исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
|
02.12.2010, 01:21 [ТС] |
7 |
это не является гиперссылкой. ну может и не является
0 |
Заблокирован |
|
02.12.2010, 01:26 |
8 |
что написанный url могут все же считать гиперссылкой, несмотря на все каноны VBA. Полный бред. Добавлено через 1 минуту
.Hyperlinks.Item(1).Delete и это не удаление текста — это превращение гиперссылки просто в текст.
0 |
XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
||||
02.12.2010, 01:27 [ТС] |
9 |
|||
Ошибка в логике программы. нужно еще ввести переменную qlinks внутрь цикла и с каждым удалением ссылки уменьшать ее на 1 и сравнивать с нулем, т.к. цикл While у Вас бесконечен, а ссылок с каждым шагом становится на 1 меньше, вот он и приходит к тому, что надо удалять, а удалять нечего. Поэтому и сравнение qlinks с нулем и закрытие документа надо перенести внутрь цикла. Или сделать так:
А все равно не работает, все та же ошибка! Добавлено через 1 минуту
Полный бред. Добавлено через 1 минуту и это не удаление текста — это превращение гиперссылки просто в текст. Нет он удаляет полностью текст гиперссылки я проверял
0 |
Заблокирован |
|
02.12.2010, 01:28 |
10 |
Нет он удаляет полностью текст гиперссылки я проверял Код .Hyperlinks.Item(1).Delete не удаляет текст.
0 |
исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
|
02.12.2010, 01:31 [ТС] |
11 |
Код .Hyperlinks.Item(1).Delete не удаляет текст. Реально вообще ничего не удаляет. Выводит сообщение об ошибке. Останавливается выполнение именно на этой строке.
0 |
Заблокирован |
|
02.12.2010, 01:32 |
12 |
<Профессор>,
0 |
исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
|
02.12.2010, 01:46 [ТС] |
13 |
<Профессор>, Фигасе почему сразу бухаешь? Нет не бухаю. Да вот не помогли ваши ответы. Мой код правильно работает со всеми документами кроме трех, что с ними такое блин?! Добавлено через 12 минут
Попроще бы надо: Код Sub KillHyperLinks() Dim i&, k&, S$ For i = 1 To QFiles S = Files(i) With Documents.Open(FileName:=S, Visible:=False) For k = .Hyperlinks.Count To 1 Step -1 .Hyperlinks(k).Delete Next k .Close wdSaveChanges End With Next i End Sub Устранено два прилично тормозящих фактора: И этот вариант тоже не работает
0 |
Заблокирован |
|
02.12.2010, 06:56 |
14 |
<Профессор>,
0 |
218 / 50 / 2 Регистрация: 18.02.2010 Сообщений: 81 |
|
02.12.2010, 07:11 |
15 |
Ошибка возникает не по вине макроса. В обычных условиях вышеописанные макросы полностью рабочие. Вам надо внимательней присмотреться к документам и вообще к ситуации. Ошибка ошибкой, а гиперссылки то удаляются? Попробуйте добавить On Error Resume Next. Об ошибке: «Run-time error ‘4198’» This message is displayed when an error generated with the Raise method or Error statement doesn’t correspond to an error defined by Visual Basic for Applications. Это сообщение появляется, если ошибка вызвана методом Raise или случившаяся ошибка не соответствует ни одной ошибке из оговоренных в VBA.
1 |
исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
|
02.12.2010, 07:27 [ТС] |
16 |
<Профессор>, Свой конечно, он протестирован причем в присутствии заказчика на многих документах
0 |
Заблокирован |
||||
02.12.2010, 07:52 |
17 |
|||
<Профессор>, Вот так можно обработать ошибку, если решение не будет найдено:
0 |
XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
||||
02.12.2010, 20:07 [ТС] |
18 |
|||
<Профессор>, Вот так можно обработать ошибку, если решение не будет найдено:
Слушай зачем все это? Мне не нужен этот код, мне нужна чтоб эта процедура удаляла активные гиперссылки, а не выводила сообщения о том сто их не удалось удалить. Не по теме: оскорблен
0 |
Заблокирован |
||||
02.12.2010, 20:21 |
19 |
|||
.Hyperlinks.Item(1).Delete ты целенаправленно используешь
?
0 |
XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2 |
||||
02.12.2010, 20:31 [ТС] |
20 |
|||
ты целенаправленно используешь
? Пробовал и без Item просто .Hyperlinks(1).Delete тот же результат.
0 |
There was a previous question on stackoverflow:
«Is it possible to start MAIL MERGE from excel macro (by clicking a button on sheet)
I have excel sheet with data and want to export it to new word doc.»
This was answered Sep 29 ’09 at 12:39 by dendarii 772.
We had this need too because we wanted to simplify life for volunteers with limited computer skills.
Unfortunately dendarii’s code, modified with a suitable path, exits with run time error 4198 at the .OpenDataSource statement.
Cindy Meister writing on Microsoft Office for Developer’s Form> ..>Word 2010 VBA suggested 4198 errors could be due to synchronicity problems. I gave it go with no success.
Andrew Poulson writing on Mr Excel encourages a contributor Snecz to compare his VBA mail merge .OpenDataSource statement against a Word macro recording. What do contributors think? My .OpenDataSource line seems standard. My Excel
datasource file has a line of headers followed by two lines of data elements.
We have Office 2010.
I would be very grateful for any suggestions as to how to fix 4198 and if anyone knows of general diagnostic procedures. We are two people working for
a charitable organisation. Any help welcome!
Sub RunMerge()
Dim wd As Object
Dim wdocSource As Object
Dim strWorkbookName As String
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Set wd = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdocSource = wd.Documents.Open("C:UsersgeorgeDesktopVBA ProjectMergeletter.docx")
strWorkbookName = ThisWorkbook.Path & "" & ThisWorkbook.Name
wdocSource.MailMerge.MainDocumentType = wdFormLetters
wdocSource.MailMerge.OpenDataSource _
Name:=strWorkbookName, _
AddToRecentFiles:=False, _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _
SQLStatement:="SELECT * FROM `Sheet1$`"
With wdocSource.MailMerge
.Destination=wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
wd.Visible = True
wdocSource.Close SaveChanges:=False
Set wdocSource = Nothing
Set wd = Nothing
End Sub
- Forum
- VBA Code & Other Help
- Excel Help
- [SOLVED] Excel Add In runtime error 4198
-
10-17-2015, 04:57 PM
#1
Excel Add In runtime error 4198
First off…Sorry for my ignorance of the computer programming world. I am an end user, and have zero programming background. But I am good at understanding things and taking directions, therefore I believe with a little guidance, I may be able to resolve my issue.For several years, I have been using an excel add-in, entitled ExcelToWord!, written by an author named dlmille. The add-in allows me to create MS Word templates with specified bookmarks, and merge excel spreadsheets into these templates to create MS Word documents.I have successfully been using it on multiple machines running windows 7, along with MS Office 2007. I finally upgraded some of my equipment, and find that this add-in does not function properly on my new computers. They are running windows 8.1, with the same clean install of MS Office 2007.The issue occurs when ExcelToWord! attempts to create the dotx document. I keep receiving the run-time error 4198. And my only options are to end or to debug. When I click debug, the follow code is highlighted, and I’m assuming that mean this is where the problem is…
'Note - FileFormat:= not needed - save in same format oWD.SaveAs Filename:=fPath & fBMName, _ LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
I don’t know if I have provided enough information, or if I have posted this in the correct forum, but any guidance would be greatly appreciated.Peter Giavoni
Last edited by CallMeMaybe; 10-17-2015 at 07:52 PM.
-
10-17-2015, 06:26 PM
#2
I don’t know if it’s an error in copy/pasting but that top green (comment) line, is too long. It should be two lines:
'Note - FileFormat:= not needed - save in same format oWD.SaveAs Filename:=fPath & fBMName, _ LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
and in case the line continuation characters don’t copy over correctly here it is in a copiable format without such characters:
'Note - FileFormat:= not needed - save in same format oWD.SaveAs Filename:=fPath & fBMName, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
p45cal
Everyone: If I’ve helped and you can’t be bothered to acknowledge it, I can’t be bothered to look at further posts from you.
-
10-17-2015, 07:50 PM
#3
Yes, just an error in copy/pasting. The green line actually only reads…‘Note — FileFormat:= not needed — save in same format. I made the corrections in the original post.Do you see anything in there that looks out of place? I’m confused as to why it works seamlessly on windows 7 machines but fails on windows 8.1.
-
10-18-2015, 03:16 AM
#4
No, I don’t see anything out of place — suggest googling for the likes of:
Word .Saveas 4198
There was somehting here which might be related: http://answers.microsoft.com/en-us/o…81c18ba?auth=1p45cal
Everyone: If I’ve helped and you can’t be bothered to acknowledge it, I can’t be bothered to look at further posts from you.
-
10-18-2015, 03:40 PM
#5
Thanks p45cal for pointing me in the right direction. It turns out that when you install Word on an ACER machine it insists on installing the ACER Word Cloud Add-in. Once this is removed via add/remove programs (listed as abDocs) the save as works perfectly.
Thanks for the quick response p45cal.
![](data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%200%200'%3E%3C/svg%3E)
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
- BB code is On
- Smilies are On
- [IMG] code is On
- [VIDEO] code is On
- HTML code is Off
Forum Rules
When I click on a button in the toolbar in Word, I’m supposed to get
Print Options dialog box as specified in the macro. Instead I’m
getting a Save As dialog box which opens up the folder which I have
specified in TOOLS > OPTIONS > FILE LOCATIONS. When I click Cancel, I
get Run-time error ‘4198’. Any ideas????????????
We did a migration last nite and and made changes to normal.dot.
ActivePrinter was «\LEGALLASERJET 4M» but has been changed to
«\FPSERVER9103HP11». Any ideas?
Public Sub Main()
Dim a
Dim z
Dim b
Dim bb
Dim c
Dim cc
Dim d
Dim dd
Dim e
Dim f
Dim p
Dim g
ActiveDocument.Save
ActiveDocument.Content.Select ‘select all
ActiveDocument.Fields.Update
Selection.HomeKey Unit:=wdStory
Start:
WordBasic.BeginDialog 276, 275, «Print Options»
WordBasic.Text 10, 6, 245, 13, «Please Select Your Print Option «,
«Text1»
WordBasic.PushButton 10, 26, 255, 21, «&1 — Pleadings Bond»,
«Push1»
WordBasic.PushButton 10, 51, 255, 21, «&2 — Letterhead», «Push2»
WordBasic.PushButton 10, 101, 120, 21, «&3 — BCC», «Push3»
WordBasic.PushButton 10, 76, 255, 21, «&4 — FaxPress», «Push4»
WordBasic.PushButton 145, 101, 120, 21, «&5 — Copy», «Push5»
WordBasic.PushButton 10, 126, 120, 21, «&6 — File Copy», «Push6»
WordBasic.PushButton 10, 151, 120, 21, «&7 — Manual Feed», «Push7»
WordBasic.PushButton 145, 126, 120, 21, «&8 — Draft», «Push8»
WordBasic.PushButton 145, 151, 120, 21, «&9 — Print», «Push9»
WordBasic.PushButton 10, 181, 255, 21, «&Envelope/Label», «Push10»
WordBasic.CancelButton 10, 215, 255, 46
WordBasic.EndDialog
Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
‘Define the dialog record
a = WordBasic.Dialog.UserDialog(dlg) ‘Display the dialog box
If a = 1 Then
GoTo Bond
ElseIf a = 2 Then
GoTo Legal
ElseIf a = 3 Then
GoTo BCC
ElseIf a = 4 Then
GoTo Fax
ElseIf a = 5 Then
Application.Run MacroName:=»Copy.MAIN»
Application.Run MacroName:=»Printer_Copy»
GoTo last
ElseIf a = 6 Then
GoTo File
ElseIf a = 7 Then
Manual:
Application.Run MacroName:=»ManualFeed»
WordBasic.BeginDialog 420, 69, «Manual Feed Options»
WordBasic.Text 10, 6, 410, 13, «Do You Want to Print Additional
Manual Feed Copies?», «Text1»
WordBasic.PushButton 76, 25, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 217, 25, 88, 21, «&No», «Push2»
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set dlg = WordBasic.CurValues.UserDialog ‘Define the dialog
record
z = WordBasic.Dialog.UserDialog(dlg) ‘Display the dialog box
If z = 1 Then
GoTo Manual
ElseIf z = 2 Then
GoTo last
End If
ElseIf a = 8 Then
Application.Run MacroName:=»Draft»
GoTo last
ElseIf a = 9 Then
Top:
Application.Run MacroName:=»Printer»
WordBasic.BeginDialog 420, 69, «Additional Copies»
WordBasic.Text 10, 6, 410, 13, «Do You Want to Print Additional
Copies?», «Text1»
WordBasic.PushButton 76, 25, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 217, 25, 88, 21, «&No», «Push2»
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set dlg = WordBasic.CurValues.UserDialog ‘Define the dialog
record
z = WordBasic.Dialog.UserDialog(dlg) ‘Display the dialog box
If z = 1 Then
GoTo Top
ElseIf z = 2 Then
GoTo last
End If
ElseIf a = 10 Then
GoTo Envelope
Else
GoTo last
End If
Bond:
Application.Run MacroName:=»Bond»
WordBasic.BeginDialog 420, 69, «Additional Copies»
WordBasic.Text 10, 6, 410, 13, «Do You Want to Print Additional
Copies?», «Text1»
WordBasic.PushButton 76, 25, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 217, 25, 88, 21, «&No», «Push2»
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set dlg = WordBasic.CurValues.UserDialog ‘Define the dialog
record
z = WordBasic.Dialog.UserDialog(dlg) ‘Display the dialog box
If z = 1 Then
GoTo Bond
ElseIf z = 2 Then
GoTo last
End If
Legal:
WordBasic.EndOfDocument
Application.Run MacroName:=»Bond»
WordBasic.BeginDialog 293, 86, «BCC Information»
WordBasic.Text 10, 6, 272, 13, «Do You Want to Print a BCC
Copy?», «Text1»
WordBasic.PushButton 39, 23, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 170, 24, 88, 21, «&No», «Push2»
WordBasic.CancelButton 111, 59, 88, 21
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set Dlg1 = WordBasic.CurValues.UserDialog
Dim Dlg2 As Object: Set Dlg2 = WordBasic.CurValues.UserDialog
‘Define the dialog record
c = WordBasic.Dialog.UserDialog(Dlg2) ‘Display the dialog box
If c = 1 Then
Application.Run MacroName:=»BCC»
GoTo last
ElseIf c = 2 Then
WordBasic.BeginDialog 293, 86, «File Copy Information»
WordBasic.Text 10, 6, 272, 13, «Do You Want to Print a File
Copy?», «Text1»
WordBasic.PushButton 39, 23, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 170, 24, 88, 21, «&No», «Push2»
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set Dlg1 = WordBasic.CurValues.UserDialog
Set Dlg2 = WordBasic.CurValues.UserDialog
Set dlg = WordBasic.CurValues.UserDialog ‘Define the dialog
record
cc = WordBasic.Dialog.UserDialog(dlg) ‘Display the dialog box
If cc = 1 Then
GoTo File
ElseIf cc = 2 Then
GoTo last
End If
End If
Fax:
Application.Run MacroName:=»FaxPress»
WordBasic.BeginDialog 293, 86, «BCC Information»
WordBasic.Text 10, 6, 272, 13, «Do You Want to Print a BCC
Copy?», «Text1»
WordBasic.PushButton 39, 23, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 170, 24, 88, 21, «&No», «Push2»
WordBasic.CancelButton 111, 59, 88, 21
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set Dlg1 = WordBasic.CurValues.UserDialog
Set Dlg2 = WordBasic.CurValues.UserDialog
Dim Dlg3 As Object: Set Dlg3 = WordBasic.CurValues.UserDialog
‘Define the dialog record
d = WordBasic.Dialog.UserDialog(Dlg3) ‘Display the dialog box
If d = 1 Then
Application.Run MacroName:=»BCC»
GoTo last
ElseIf d = 2 Then
WordBasic.BeginDialog 293, 86, «File Copy Information»
WordBasic.Text 10, 6, 272, 13, «Do You Want to Print a File
Copy?», «Text1»
WordBasic.PushButton 39, 23, 88, 21, «&Yes», «Push1»
WordBasic.PushButton 170, 24, 88, 21, «&No», «Push2»
WordBasic.EndDialog
Set dlg = WordBasic.CurValues.UserDialog
Set Dlg1 = WordBasic.CurValues.UserDialog
Set Dlg2 = WordBasic.CurValues.UserDialog
Set Dlg3 = WordBasic.CurValues.UserDialog
Set dlg = WordBasic.CurValues.UserDialog ‘Define the dialog
record
dd = WordBasic.Dialog.UserDialog(dlg) ‘Display the dialog box
If dd = 1 Then
GoTo File
ElseIf dd = 2 Then
GoTo last
End If
End If
BCC:
Application.Run MacroName:=»BCC»
GoTo last
File:
WordBasic.FileSave
WordBasic.ChDefaultDir «d:datawinworddatatemp», 0
WordBasic.FileSaveAs Name:=»FILE.DOC»
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageHeader
End If
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
ChangeFileOpenDirectory «s:legaldataTemplates»
Selection.InsertFile FileName:=»FCPY~FTR.DOT», Range:=»», _
ConfirmConversions:=False, Link:=False, Attachment:=False
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Application.Run MacroName:=»Printer_File»
GoTo last
Envelope:
Application.Run MacroName:=»LabelorEnvelope»
last:
ActivePrinter = «\FPSERVER9103HP11»
End Sub