Symptoms
When you run Microsoft Visual Basic code that uses Automation to control Microsoft Word, you may receive one of the following error messages:
Error message 1
Run-time error ‘-2147023174’ (800706ba)
Automation error
Error message 2
Run-time error ‘462’: The remote server machine does not exist or is unavailable
Cause
Visual Basic has established a reference to Word due to a line of code that calls a Word object, method, or property without qualifying it with a Word object variable. Visual Basic does not release this reference until you end the program. This errant reference interferes with automation code when the code is run more than once.
Resolution
Modify the code so that each call to a Word object, method, or property is qualified with the appropriate object variable.
Status
This behavior is by design.
More Information
To automate Word, you establish an object variable that usually refers to the Word Application or Document object. Other object variables can then be set to refer to a Selection, a Range, or other objects in the Word object model. When you write code to use a Word object, method, or property, you should always precede the call with the appropriate object variable. If you do not, Visual Basic uses a hidden global variable reference which it sets to the currently running instance. If Word is shutdown, or if the declared object variable is released, the hidden global variable will now reference an invalid (destroyed) object. When running the automation code again, calls to this hidden object variable will fail with the aforementioned error.
The following steps illustrate how to reproduce this problem, and how to correct it.
Steps to Reproduce Behavior
-
Start a new Standard EXE project in Visual Basic. Form1 is created by default.
-
Click References from the Project menu, and then click one of the following options:
-
For Office Word 2007, click Microsoft Word 12.0 Object Library
-
For Word 2003, click Microsoft Word 11.0 Object Library
-
For Word 2003, click Microsoft Word 10.0 Object Library
-
For Word 2000, click Microsoft Word 9.0 Object Library.
-
For Word 97, click Microsoft Word 8.0 Object Library.
-
-
Place a CommandButton on Form1.
-
Copy the following code to the Code Window of Form1:
Option Explicit
Private Sub Command1_Click()
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oRange as Word.RangeSet oWord = CreateObject("Word.Application")
With oWord
.Visible = True
.Activate
.WindowState = wdWindowStateNormal
End WithSet oDoc = oWord.Documents.Add
MsgBox "Document open", vbMsgBoxSetForeground
With oDoc
.PageSetup.LeftMargin = InchesToPoints(1.25)
End With' This example inserts text at the end of section one.
Set oRange = ActiveDocument.Sections(1).Range
With oRange
.MoveEnd Unit:=wdCharacter, Count:= -1
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
.InsertAfter "End of section."
End WithWith oDoc
.Saved = True
End WithSet oRange = Nothing
Set oDoc = Nothing
oWord.Quit
Set oWord = Nothing
End Sub -
On the Run menu, click Start or press the F5 key to start the program.
-
Click the CommandButton. No error occurs. However, a reference to Word has been created and has not been released.
-
Click the CommandButton again and note that you receive the error previously described.
Note The error occurs because the code refers to the InchesToPoints Method without preceding the call with the oWord object variable.
-
Stop the project and change the following line:
.PageSetup.LeftMargin = InchesToPoints(1.25)
.PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
-
Run the program again. Then, click the CommandButton. No error occurs.
-
Click the CommandButton again and note that you receive the error.
Note The error occurs because the code refers to the ActiveDocument Section one’s Range object without preceding the call with the oWord object variable.
-
Stop the project and change the following line:
Set oRange = ActiveDocument.Sections(1).Range
Set oRange = oWord.ActiveDocument.Sections(1).Range
-
Run the program again. Note that you can run the code multiple times without error.
When building a Visual Basic project automating Word, if your project has a reference to the Microsoft Word Object Library, sample code for the objects, methods, and properties of the Word Object Model is available from the Word Help file. When the cursor is over a key word in your code, you will see any applicable Help text by pressing the F1 key.
The sample code in the Help topic will be the Microsoft Word Visual Basic for Applications code. It will not show the object references that your Visual Basic code requires. You will need to add the qualifiers as appropriate.
References
For additional information, please see the following articles in the Microsoft Knowledge Base:
178510 PRB: Excel Automation Method of Object ‘_Global’Failed
167223 Microsoft Office 97 Automation Help File Available
For additional information about the Automation of Office applications, click the article number below to view the article in the Microsoft Knowledge Base:
222101 HOWTO: Find and Use Office Object Model Documentation
Need more help?
Want more options?
Explore subscription benefits, browse training courses, learn how to secure your device, and more.
Communities help you ask and answer questions, give feedback, and hear from experts with rich knowledge.
Номер ошибки: | Ошибка во время выполнения 462 | |
Название ошибки: | The remote server machine does not exist or is unavailable | |
Описание ошибки: | The CreateObject function requires a valid server. | |
Разработчик: | Microsoft Corporation | |
Программное обеспечение: | Windows Operating System | |
Относится к: | Windows XP, Vista, 7, 8, 10, 11 |
Определение «The remote server machine does not exist or is unavailable»
«The remote server machine does not exist or is unavailable» — это стандартная ошибка времени выполнения. Программисты работают через различные уровни отладки, пытаясь убедиться, что Windows Operating System как можно ближе к безошибочным. Хотя эти превентивные действия принимаются, иногда ошибки, такие как ошибка 462, будут пропущены.
В выпуске последней версии Windows Operating System может возникнуть ошибка, которая гласит: «The CreateObject function requires a valid server.». Если возникает ошибка 462, разработчикам будет сообщено об этой проблеме через уведомления об ошибках, которые встроены в Windows Operating System. Затем Microsoft Corporation может исправить эти ошибки в исходном коде и подготовить обновление для загрузки. Если есть уведомление об обновлении Windows Operating System, это может быть решением для устранения таких проблем, как ошибка 462 и обнаруженные дополнительные проблемы.
Что генерирует ошибку времени выполнения 462?
Ошибки выполнения при запуске Windows Operating System — это когда вы, скорее всего, столкнетесь с «The remote server machine does not exist or is unavailable». Следующие три наиболее значимые причины ошибок выполнения ошибки 462 включают в себя:
Ошибка 462 Crash — Ошибка 462 остановит компьютер от выполнения обычной программной операции. Это возникает, когда Windows Operating System не реагирует на ввод должным образом или не знает, какой вывод требуется взамен.
Утечка памяти «The remote server machine does not exist or is unavailable» — этот тип утечки памяти приводит к тому, что Windows Operating System продолжает использовать растущие объемы памяти, снижая общую производительность системы. Возможные искры включают сбой освобождения, который произошел в программе, отличной от C ++, когда поврежденный код сборки неправильно выполняет бесконечный цикл.
Ошибка 462 Logic Error — Логическая ошибка вызывает неправильный вывод, даже если пользователь дал действительные входные данные. Неисправный исходный код Microsoft Corporation может привести к этим проблемам с обработкой ввода.
Такие проблемы The remote server machine does not exist or is unavailable обычно вызваны повреждением файла, связанного с Windows Operating System, или, в некоторых случаях, его случайным или намеренным удалением. Как правило, решить проблему позволяет получение новой копии файла Microsoft Corporation, которая не содержит вирусов. В качестве дополнительного шага по устранению неполадок мы настоятельно рекомендуем очистить все пути к неверным файлам и ссылки на расширения файлов Microsoft Corporation, которые могут способствовать возникновению такого рода ошибок, связанных с The remote server machine does not exist or is unavailable.
Типичные ошибки The remote server machine does not exist or is unavailable
Обнаруженные проблемы The remote server machine does not exist or is unavailable с Windows Operating System включают:
- «Ошибка приложения The remote server machine does not exist or is unavailable.»
- «The remote server machine does not exist or is unavailable не является приложением Win32.»
- «Извините, The remote server machine does not exist or is unavailable столкнулся с проблемой. «
- «Не удается найти The remote server machine does not exist or is unavailable»
- «Отсутствует файл The remote server machine does not exist or is unavailable.»
- «Ошибка запуска в приложении: The remote server machine does not exist or is unavailable. «
- «Файл The remote server machine does not exist or is unavailable не запущен.»
- «Ошибка The remote server machine does not exist or is unavailable. «
- «Ошибка пути программного обеспечения: The remote server machine does not exist or is unavailable. «
Ошибки The remote server machine does not exist or is unavailable EXE возникают во время установки Windows Operating System, при запуске приложений, связанных с The remote server machine does not exist or is unavailable (Windows Operating System), во время запуска или завершения работы или во время установки ОС Windows. Документирование проблем The remote server machine does not exist or is unavailable в Windows Operating System является ключевым для определения причины проблем с электронной Windows и сообщения о них в Microsoft Corporation.
Истоки проблем The remote server machine does not exist or is unavailable
Проблемы Windows Operating System и The remote server machine does not exist or is unavailable возникают из отсутствующих или поврежденных файлов, недействительных записей реестра Windows и вредоносных инфекций.
Более конкретно, данные ошибки The remote server machine does not exist or is unavailable могут быть вызваны следующими причинами:
- Недопустимый The remote server machine does not exist or is unavailable или поврежденный раздел реестра.
- Вирус или вредоносное ПО, повреждающее The remote server machine does not exist or is unavailable.
- Другая программа (не связанная с Windows Operating System) удалила The remote server machine does not exist or is unavailable злонамеренно или по ошибке.
- Другое программное обеспечение, конфликтующее с Windows Operating System, The remote server machine does not exist or is unavailable или общими ссылками.
- Поврежденная установка или загрузка Windows Operating System (The remote server machine does not exist or is unavailable).
Продукт Solvusoft
Загрузка
WinThruster 2023 — Проверьте свой компьютер на наличие ошибок.
Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11
Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление
Одобрено: ASR Pro
Повысьте производительность вашего компьютера с помощью этой простой загрузки. г.
Вы могли видеть ошибку, указывающую на повреждение во время выполнения 462 Компьютер удаленного сервера. Есть несколько шагов, которые можно предпринять, чтобы решить эту проблему, поэтому мы рассмотрим их в ближайшее время.Это может произойти, если серверный компьютер часто менялся, а рабочую станцию с программным обеспечением также необходимо доставлять непосредственно к новому серверу. Эта ошибка возникает, когда конкретный клиентский компьютер также пытается запустить ряд версий, связанных с Access It! Универсальный как их связанная версия Access It! Обычно на этом вы просто размещаете серверную машину в Интернете.
Ошибки времени выполнения “462”: компьютер удаленного сервера не должен существовать или недоступен.
Ошибки во время выполнения “462”: Компьютер удаленного сайта не существует и фактически недоступен.
При использовании купона с функцией автоматизации для управления Microsoft Excel может возникнуть одна из следующих ошибок:
Как исправить время выполнения ошибка 462 от vba?
Чтобы решить эту проблему, измените свой код, чтобы, к сожалению, каждый вызов объекта Excel, системы или, возможно, свойства квалифицировался с оптимальным коэффициентом объекта. Автор проверки получил вашу ошибку, потому что он не использует статью Access для вашей Windows. и закрыть базу.
В Microsoft Excel 97 и более поздних версиях Excel одно из следующих сообщений об ошибках скрыто:
Чтобы автоматизировать Microsoft Excel, настройте переменную объекта, которая будет постоянно ссылаться на объект Excel приложения, а не обязательно на объект книги Excel. Затем вы можете установить другие параметры объекта, чтобы указать объектную модель Microsoft Excel для ссылки на новый рабочий лист, диапазон или другой объект, который вам нужно изменить. Всякий раз, когда вы пишете код, чтобы извлечь выгоду из объекта, метода или свойства Excel, вам всегда придется добавлять соответствующую переменную сущности к обычному вызову. Если вы этого не сделаете, Visual Basic создаст собственную ссылку крышки кузова грузовика на Excel. Это может вызвать проблемы, если вы попытаетесь запустить своих маркетологов по автоматизации на несколько дат. Обратите внимание, что даже если эта строка, связанная с кодом, начинается с фантастической объектной переменной, объект, метод или область Excel могут быть вызваны в пространстве одной конкретной строки кода, которой не предшествует объектная переменная.
Как это сделать исправить ошибку выполнения 462 в vba?
Чтобы решить отдельную проблему, измените каждый код так, чтобы каждое дублирование объектов, методов или свойств Excel дополнялось соответствующим изменением объекта. Автор сообщения получил сообщение об ошибке, поскольку он не использовал объект Access для открытия и закрытия базы данных.
SlСледующие методы показывают, как воспроизвести эту проблему, а также исправить тему.
Еще раз нажмите CommandButton уменьшить. Обратите особое внимание на то, кто вам выдает какие-либо предупреждающие сообщения, описанные в разделе «Симптомы».
Примечание. Сообщение об ошибке возникает из-за того, что некоторые программы ссылаются на метод в одном месте с нашими ячейками без префикса вызова, используя переменную тега
xlSheet.
Чтобы получить дополнительные сведения, нажмите на следующие проблемы с письменным содержанием, чтобы просмотреть статьи в любой базе знаний Майкрософт:
189618 Возможно, вы получите “Ошибка выполнения ‘-2147023174’ (800706ba)” или, может быть, “Ошибка выполнения ‘462’” при запуске программы Visual Basic код, использующий автоматизацию для управления Word
per p>
Я программно открываю публичное объявление Word в Excel VBA и добавляю/редактирую сохраненное в избранное содержимое.
<цитата>
Что было ошибкой во время выполнения в Excel?
Об ошибке выполнения 10 в Excel Ошибка выполнения 13 — это заслуживающая доверия ошибка несоответствия. Это происходит в большинстве случаев, когда второму Excel требуются определенные файлы для запуска, которые по умолчанию получают преимущества Visual Basic (VB), но вряд ли правильно масштабируются. И результат всего вашего – невозможность использовать файлы для Excel.
Ошибка 462: удаленный сервер не может быть
Я провел небольшое исследование и обнаружил, что это связано с «Не авторизован с рефералами».
Я не совсем уверен, вот как это исправить, используя код знающих людей.
Что такое ошибка выполнения в VBA?
Ошибки во время выполнения часто способствуют превышению неожиданных данных, которые помогают номеру VBA, несоответствиям формы данных, неожиданным нулевым делениям и недоступности указанных диапазонов ячеек. Ошибки времени выполнения также становятся наиболее распространенными и трудными для обнаружения и даже исправления.
Установить exR означает ActiveSheet.Range (TestIdCol & CStr (DataRowNum) & ":" & TestIdCol & CStr (RowEnd)) ExistingEvidenceDoc равно UseFileDialogOpen ("Документы Word", "*.doc; *.Docx") Установить objWord = СоздатьОбъект("Word.Application") Если ExistingEvidenceDoc <> "" Тогда Установить objDoc равно objWord.Documents.Open (ExistingEvidenceDoc) Другой Завершить подписку Конец, если objWord.Visible = Верно Application.Now wait() + TimeSerial (0, 0, 5) Установить objSelection = objWord.Selection getExistingEvidences подразумевает ExistingTestEvidences (objDoc) е = DataRowNum Для каждой клетки, найденной в exR Если cell.Value "" <> и не IsInArray(cell.Value, getExistingEvidences), то objSelection.Style означает ActiveDocument.Styles ("Заголовок 1"). Текст objSelection.TypeText: означает «Заголовок» + cell.Value objSelection.TypeParagraph objSelection.MoveLeft objSelection.HomeKey Модуль: = wdLine objSelection.EndKey Единица измерения: равна wdLine, расширение: = wdExtend objDoc.Bookmarks.Add Имя: = "BMrk" + CStr (o), Диапазон: равно objSelection objSelection.Копировать ActiveSheet.Range("Q" + CStr(o)). Выбирать ActiveSheet.PasteSpecial Формат: = "Гиперссылка", Ссылка: = False, DisplayAsIcon _ : = Ложь objSelection.MoveRight 'objSelection.Style = ActiveDocument.Styles ("Абзац") objSelection.TypeText текст: приравнивается к зонам диапазона (DescriptionCol + CStr (cell.Row)). objSelection.TypeParagraph ElseIf IsInArray(cell.Value, getExistingEvidences) = False Тогда objSelection.EndKey objSelection.Style = ActiveDocument.Styles ("Заголовок 1") objSelection.TypeText текст: подразумевает «Заголовок в + ячейке. Значение objSelection.TypeParagraph objSelection.MoveLeft objSelection.HomeKey Модуль: = wdLine objSelection.EndKey Модуль: = wdLine, Расширение: = wdExtend objDoc.Bookmarks.Добавить Имя: = "BMrk" + CStr(o), Диапазон: = objSelection objSelection.Копировать ActiveSheet.Range("Q" + CStr(o)). Выбирать ActiveSheet.PasteSpecial Формат: = "Гиперссылка", Ссылка: равно False, DisplayAsIcon _ : = Ложь objSelection.MoveRight 'objSelection.Style равно ActiveDocument.Styles ("Абзац") Текстовые сообщения objSelection.TypeText: = диапазон (DescriptionCol + CStr (cell.Row)). objSelection.TypeParagraph Конец, если о следует за о + 1 Следующая ячейка MyErrorHandler: MsgBox "SeeHeadingPageNumber" & vbCrLf & vbCrLf & "Err = Ширина в дюймах и номер ошибки & vbCrLf &" Описание: "Ошибка &. Описание
Кроме того, область exR, которую я нарисовал, в конечном итоге выполняет все исправленное, но в конечном итоге вызывает MyErrorHandler. Есть ли цель для этого?
Одобрено: ASR Pro
ASR Pro — самый популярный и эффективный в мире инструмент для ремонта ПК. Миллионы людей доверяют ему обеспечение быстрой, бесперебойной и безошибочной работы своих систем. Благодаря простому пользовательскому интерфейсу и мощному механизму сканирования ASR Pro быстро находит и устраняет широкий спектр проблем Windows — от нестабильности системы и проблем с безопасностью до проблем с управлением памятью и производительностью.
1. Загрузите ASR Pro и установите его на свой компьютер.
2. Запустите программу и нажмите "Сканировать"
3. Нажмите "Восстановить", чтобы устранить обнаруженные проблемы.
Повысьте производительность вашего компьютера с помощью этой простой загрузки. г.
Как исправить ошибку обучения 2146232576 80131700?
Шаг: найдите «В меню «Пуск» найдите «Включить или отключить функции Windows».Шаг: Выберите параметр, который отображает MICROSOFT.Шаг: Windows может попросить вас загрузить обновление. После завершения загрузки перезагрузите компьютер.
г.
Related Posts:
- Как вы справляетесь с ошибками времени выполнения?…
- Устранение неполадок, а также восстановление удаленного…
- Справка по устранению ошибок среды выполнения Visual Basic…
- Руководство по устранению неполадок Ii 6.1 Файлы среды…
- Устранение неполадок Simple Crystal Reports для файлов среды…
- Устранение неполадок среды выполнения Sun Java JRE 1.5 или…
I open a Word file programmatically in Excel VBA and add/edit contents using bookmarks.
I find that on alternate runs, I get
Error 462: The remote server does not exist
I researched and understood this has something to do with ‘Unqualified references’.
I don’t understand how to correct the code to qualified references.
Set exR = ActiveSheet.Range(TestIdCol & CStr(DataRowNum) & ":" & TestIdCol & CStr(RowEnd))
ExistingEvidenceDoc = UseFileDialogOpen("Word Documents", "*.doc;*.docx")
Set objWord = CreateObject("Word.Application")
If ExistingEvidenceDoc <> "" Then
Set objDoc = objWord.Documents.Open(ExistingEvidenceDoc)
Else
Exit Sub
End If
objWord.Visible = True
Application.Wait Now() + TimeSerial(0, 0, 5)
Set objSelection = objWord.Selection
getExistingEvidences = ExistingTestEvidences(objDoc)
o = DataRowNum
For Each cell In exR
If cell.Value <> "" And Not IsInArray(cell.Value, getExistingEvidences) Then
objSelection.Style = ActiveDocument.Styles("Heading 1")
objSelection.TypeText text:="Heading " + cell.Value
objSelection.TypeParagraph
objSelection.MoveLeft
objSelection.HomeKey Unit:=wdLine
objSelection.EndKey Unit:=wdLine, Extend:=wdExtend
objDoc.Bookmarks.Add Name:="BMrk" + CStr(o), Range:=objSelection
objSelection.Copy
ActiveSheet.Range("Q" + CStr(o)).Select
ActiveSheet.PasteSpecial Format:="Hyperlink", Link:=False, DisplayAsIcon _
:=False
objSelection.MoveRight
'objSelection.Style = ActiveDocument.Styles("Paragraph")
objSelection.TypeText text:=Range(DescriptionCol + CStr(cell.Row)).Value
objSelection.TypeParagraph
ElseIf IsInArray(cell.Value, getExistingEvidences) = False Then
objSelection.EndKey
objSelection.Style = ActiveDocument.Styles("Heading 1")
objSelection.TypeText text:="Heading " + cell.Value
objSelection.TypeParagraph
objSelection.MoveLeft
objSelection.HomeKey Unit:=wdLine
objSelection.EndKey Unit:=wdLine, Extend:=wdExtend
objDoc.Bookmarks.Add Name:="BMrk" + CStr(o), Range:=objSelection
objSelection.Copy
ActiveSheet.Range("Q" + CStr(o)).Select
ActiveSheet.PasteSpecial Format:="Hyperlink", Link:=False, DisplayAsIcon _
:=False
objSelection.MoveRight
'objSelection.Style = ActiveDocument.Styles("Paragraph")
objSelection.TypeText text:=Range(DescriptionCol + CStr(cell.Row)).Value
objSelection.TypeParagraph
End If
o = o + 1
Next cell
MyErrorHandler:
MsgBox "SeeHeadingPageNumber" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
Additionaly, whatever exR range I define, it completes execution for the entire range but at the end MyErrorHandler is invoked. Is there a reason for it?
I’m writing to a Word doc from Excel and I will get the 462 error if the macro runs to completion the first time and all Word applications are closed and the macro is rerun. I read good amount of the Microsoft info about unqualified references. I can not figure out what is going at this line to cause an error so I’m hoping someone will be able to find it.
Declarations
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Dim titleCount As Long
Dim Count3, Count4, Count5, endCount3, endCount4, endCount5 As Long
Dim QLRVar As New Scripting.Dictionary
Dim IsOffice2013 As Boolean: IsOffice2013 = False
Dim IsOffice2010 As Boolean: IsOffice2010 = False
How the Word doc is opened / recalled
On Error Resume Next
Set wrdApp = GetObject(Class:="Word.Application")
On Error GoTo 0
If wrdApp Is Nothing Then
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
Else:
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
End If
Section with the error
With wrdApp.ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = "%1. "
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
.LinkedStyle = "Heading 0"
End With
Error is on the .NumberPosition line.
The macro is very large so I’m posting what I think are the relevant parts but I’ll add more if needed.