Runtime error 4198 ошибка команды vba

• 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

Как исправить время выполнения Ошибка 4198 Ошибка Microsoft Word 4198

Симптомы Ошибка 4198 — Ошибка Microsoft Word 4198

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

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

(Только для примера)

Причины Ошибка Microsoft Word 4198 — Ошибка 4198

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

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

Методы исправления

Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.

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

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.

• Remove From My Forums

• Question

• I am getting 4198 error run time error with on the ActiveDocument.Save line below

      If optSave.Value Then                                   ‘  
  If save & close option selected…
          ‘Change the status of the Normal template to unchanged. If changes were
          ‘   made to the Normal template, the changes are not saved when you exit Word.
          NormalTemplate.Saved = True
          ‘ Prevent ActiveDocument from reporting that it has changed
          ActiveDocument.AttachedTemplate.Saved = True
          If frmAssemble.optCtlA_F9 Then
              ‘ Prevent Document too big to spell check error by setting current spell check to true.
              ActiveDocument.SpellingChecked = True
              ActiveDocument.ShowSpellingErrors = False
              ‘ Perform Ctrl A followed by F9 equivalent to update all the document fields
              Selection.WholeStory        ‘ Ctrl-A = Select the entire document
              Selection.Fields.Update     ‘ F9
              Selection.EscapeKey         ‘ Undo Select all
              Selection.Collapse Direction:=wdCollapseStart
          End If
          If ActiveDocument.Revisions.Count >= 1 Then
              ‘This should not happen
              MsgBox Prompt:=»Accepting » & ActiveDocument.Revisions.Count & » in » & ActiveDocument.Name & «.», _
                  Buttons:=vbInformation, Title:=»Saving Finished Assembly»
              ActiveDocument.AcceptAllRevisions
          End If
          ‘ Prevent ActiveDocument from reporting that it has changed
          ActiveDocument.AttachedTemplate.Saved = True
          ‘ Trap final save errors
          On Error GoTo FinalSaveError
          ‘ Save the new document
          ActiveDocument.Save
          ‘ Turn off Trapping
          On Error GoTo 0
          DeltaStopTime = Timer
          DisplayStatus «Save Time:  » & Elapsed(DeltaStartTime, DeltaStopTime)
          ‘Reset Delta Start Timer
          DeltaStartTime = DeltaStopTime
      End If

  The document contains embedded word documents and excel documents and works fine until enough other sections are added so that the created file is about 5 Meg.  The final document should be 10 meg.   If I remove the embedded documents it works. 
  If I trap  the 4198 code and use resume next the first save turns to a save as.   On exiting word the program will request to save multiple times.    My guess is one for every object embedded (11).   What is wrong?

• Remove From My Forums

• Question

• I am getting 4198 error run time error with on the ActiveDocument.Save line below

      If optSave.Value Then                                   ‘  
  If save & close option selected…
          ‘Change the status of the Normal template to unchanged. If changes were
          ‘   made to the Normal template, the changes are not saved when you exit Word.
          NormalTemplate.Saved = True
          ‘ Prevent ActiveDocument from reporting that it has changed
          ActiveDocument.AttachedTemplate.Saved = True
          If frmAssemble.optCtlA_F9 Then
              ‘ Prevent Document too big to spell check error by setting current spell check to true.
              ActiveDocument.SpellingChecked = True
              ActiveDocument.ShowSpellingErrors = False
              ‘ Perform Ctrl A followed by F9 equivalent to update all the document fields
              Selection.WholeStory        ‘ Ctrl-A = Select the entire document
              Selection.Fields.Update     ‘ F9
              Selection.EscapeKey         ‘ Undo Select all
              Selection.Collapse Direction:=wdCollapseStart
          End If
          If ActiveDocument.Revisions.Count >= 1 Then
              ‘This should not happen
              MsgBox Prompt:=»Accepting » & ActiveDocument.Revisions.Count & » in » & ActiveDocument.Name & «.», _
                  Buttons:=vbInformation, Title:=»Saving Finished Assembly»
              ActiveDocument.AcceptAllRevisions
          End If
          ‘ Prevent ActiveDocument from reporting that it has changed
          ActiveDocument.AttachedTemplate.Saved = True
          ‘ Trap final save errors
          On Error GoTo FinalSaveError
          ‘ Save the new document
          ActiveDocument.Save
          ‘ Turn off Trapping
          On Error GoTo 0
          DeltaStopTime = Timer
          DisplayStatus «Save Time:  » & Elapsed(DeltaStartTime, DeltaStopTime)
          ‘Reset Delta Start Timer
          DeltaStartTime = DeltaStopTime
      End If

  The document contains embedded word documents and excel documents and works fine until enough other sections are added so that the created file is about 5 Meg.  The final document should be 10 meg.   If I remove the embedded documents it works. 
  If I trap  the 4198 code and use resume next the first save turns to a save as.   On exiting word the program will request to save multiple times.    My guess is one for every object embedded (11).   What is wrong?

• 
• Forum
• VBA Code & Other Help
• Excel Help
• [SOLVED] Excel Add In runtime error 4198

1. 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.

   ---

2. 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.
   

   ---

3. 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.

   ---

4. 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=1

   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.
   

   ---

5. 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.

   

   ---

Posting Permissions

Популярные разделы FAQ:     Общие вопросы     Особенности VBA-кода     Оптимизация VBA-кода     Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость — сестра таланта.
3. Не забывайте использовать теги [сode=vba] …текст программы… [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.

Копирование макросов из Normal.dot

Old Bat	Сообщ. #2 , 18.05.06, 08:03
Moderator Рейтинг (т): 128	есть такая проблема, используй обходные пути — Import/Export или вставку строк в модуль Работа с модулем в VBE

Old Bat	Сообщ. #4 , 18.05.06, 11:00
Moderator Рейтинг (т): 128	Цитата cppasm @ 18.05.06, 10:09 я думал что-то неправильно делаю с OrganizerCopy… да нет, все верно, а сей фокус, вероятно, связан с политикой ms по отношению к вирусописателям

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей: