462 код ошибки

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

  1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.

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

  3. Place a CommandButton on Form1.

  4. 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.Range

    Set oWord = CreateObject("Word.Application")
    With oWord
    .Visible = True
    .Activate
    .WindowState = wdWindowStateNormal
    End With

    Set 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 With

    With oDoc
    .Saved = True
    End With

    Set oRange = Nothing
    Set oDoc = Nothing
    oWord.Quit
    Set oWord = Nothing
    End Sub

  5. On the Run menu, click Start or press the F5 key to start the program.

  6. Click the CommandButton. No error occurs. However, a reference to Word has been created and has not been released.

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

  8. Stop the project and change the following line:

    .PageSetup.LeftMargin = InchesToPoints(1.25)

    .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)

  9. Run the program again. Then, click the CommandButton. No error occurs.

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

  11. Stop the project and change the following line:

    Set oRange = ActiveDocument.Sections(1).Range

    Set oRange = oWord.ActiveDocument.Sections(1).Range

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

Icon Ex Номер ошибки: Ошибка во время выполнения 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

  • 1. Загрузите ASR Pro и установите его на свой компьютер.
  • 2. Запустите программу и нажмите «Сканировать»
  • 3. Нажмите «Восстановить», чтобы устранить обнаруженные проблемы.
  • Повысьте производительность вашего компьютера с помощью этой простой загрузки. г.

    Вы могли видеть ошибку, указывающую на повреждение во время выполнения 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 уменьшить. Обратите особое внимание на то, кто вам выдает какие-либо предупреждающие сообщения, описанные в разделе «Симптомы».

    ошибка выполнения 462 удаленный интернет-компьютер

    Примечание. Сообщение об ошибке возникает из-за того, что некоторые программы ссылаются на метод в одном месте с нашими ячейками без префикса вызова, используя переменную тега
    xlSheet.

    Чтобы получить дополнительные сведения, нажмите на следующие проблемы с письменным содержанием, чтобы просмотреть статьи в любой базе знаний Майкрософт:

    ошибка выполнения 462 удаленный серверный компьютер

    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:

    • Как вы справляетесь с ошибками времени выполнения? Требовалось ли это приложение для нашей среды выполнения Windows 7?Как вы справляетесь с ошибками времени выполнения?…
    • Устранение неполадок, а также восстановление удаленного рабочего стола, который не работает после сервера Windows 2003Устранение неполадок, а также восстановление удаленного…
    • Справка по устранению ошибок среды выполнения Visual Basic 5.0Справка по устранению ошибок среды выполнения Visual Basic…
    • Руководство по устранению неполадок Ii 6.1 Файлы среды выполненияРуководство по устранению неполадок Ii 6.1 Файлы среды…
    • Устранение неполадок Simple Crystal Reports для файлов среды выполнения .NET Framework 2.0Устранение неполадок Simple Crystal Reports для файлов среды…
    • Устранение неполадок среды выполнения Sun Java JRE 1.5 или более поздней версииУстранение неполадок среды выполнения 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.

    Понравилась статья? Поделить с друзьями:
  • 4619 ошибка ман
  • 4615 09 ошибка ман
  • 4497 ошибка терминала сбербанка
  • 449 ошибка http
  • 4488 ошибка обработки пина как исправить