Runtime error 5149 word

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    If Selection.PageSetup.Orientation = wdOrientPortrait Then
        Selection.PageSetup.Orientation = wdOrientLandscape
    Else
        Selection.PageSetup.Orientation = wdOrientPortrait
    End If
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 15
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(32948)
    Application.Templates( _
        "C:UsersAnaelWolfAppDataRoamingMicrosoftDocument Building Blocks104914Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries(" Пустой").Insert Where:=Selection.Range, RichText _
        :=True
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "CREATEDATE  @ ""dd.MM.yyyy H:mm:ss"" ", PreserveFormatting:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveWindow.ActivePane.View.Zoom.Percentage = 25
End Sub

    Selection.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5

Ошибка при запуске макроса

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 2 ]

1 Тема от Anael 31.12.2012 22:41:11

• Anael
• рядовой
• Неактивен

• Зарегистрирован: 31.12.2012
• Сообщений: 1

Тема: Ошибка при запуске макроса

В общем, задание состоит в том, чтобы записать макрос, устанавливающий следующие параметры:
— альбомная ориентация страниц;
— шрифт – Arial, курсив, 15 пт, цвет – синий;
— полуторный междустрочный интервал;
— масштаб изображения — 25%;
— в конце документа — дата/время создания документа.
Записала, запускаю, вылазит сообщение:
Microsoft Visual Basic
Run-time error ‘5149’:
Значение должно находиться в диапазоне от 0.7 пт до 1584 пт.

код макроса следующий:

При нажатии в сообщении кнопки Debug, выделяет строчку
Selection.ParagraphFormat.LineSpacing = LinesToPoints(32948)

Подскажите, в чем проблема, что я не так делаю?

2 Ответ от viter.alex 02.01.2013 19:24:03

• 
• viter.alex
• Модератор
• Неактивен

• Откуда: Харьков, Украина
• Зарегистрирован: 21.12.2009
• Сообщений: 884
• Поблагодарили: 140

Re: Ошибка при запуске макроса

Вы всё делаете правильно, а вот макрос пишется неправильно. Замените проблемную строчку на эту:

Сообщений [ 2 ]

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

Ошибка при запуске макроса

Microsoft Word – приложение, которое значительно облегчило нашу жизнь. Сейчас трудно представить себе написание и редактирование текста без помощи Ворда. Наш сайт о Microsoft Office Word даст ответ про: рамка для курсовых отступы. Это не просто очень мощный, удобный, интуитивно понятный редактор, это еще и инструмент, позволяющий пользователю в полной мере проявить свою фантазию, настраивая работу программы в соответствии с теми функциями, которые наиболее важны в данный момент. На портале о Microsoft Office Word вы узнаете про: используя зеркальное отображение.

Более полно пользоваться всеми функциями и возможностями приложения научат вас на форуме Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: вставка формул в word 2007 неактивна. На этом ресурсе в удобной форме собрана вся информация по Ворду. Форум состоит из основного раздела, в котором вы найдете инструкции по написанию макросов и шаблонов, ответы на самые распространенные вопросы, обсуждение различных настроек всех версий Ворда, а также различных способов и проблем редактирования и форматирования текстов в Ворде. Наш сайт о Microsoft Office Word даст ответ про: как начать нумерацию с 3 страницы word 2007. В этом же разделе вы можете поделиться своими или просмотреть предложенные готовые решения различных задач. На портале о Microsoft Office Word вы узнаете про: автоперенос слов word 2007. Например, макрос для автоформата таблиц, оптимизация работы с «горячими клавишами» и прочее.

Кроме этого, на форуме существует раздел, в котором можно описать свою проблему и оставить заявку на ее решение, а также подфорум для свободного общения. На портале о Microsoft Office Word вы узнаете про: как перевести текст с экселя в ворд.

Источник

Runtime error 5149 word

Легкий способ исправления ошибки “runtime error”

Подробности —> 19.09.2010 89 777820

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

Ошибку runtime error достаточно легко исправить. В 99% случаев, любой чистильщик реестра поможет восстановить удаленные файлы, либо исправить поврежденные. Чистильщики реестра специально разработаны для исправления большинства ошибок, связанных с runtime error, в том числе и runtime error 91, runtime error 13 и многих других, т.к. они проверяют целостность файловой системы.

Скачайте и установите себе программу для чистки реестра, например, CCleaner. Проведите полное сканирование вашего компьютера и найдите причины, которые вызывают ошибку runtime error. В зависимости от количества файлов на вашем компьютере, сканирование может занять время от нескольких минут до получаса. Приятным дополнением будет то, что чистильщик реестра не только исправит ошибки вида runtime error, но и увеличит производительность вашего компьютера.

Источник

How To Fix Microsoft Word Error 5151

Microsoft Word Error 5151 Definition

Usually, PC practitioners and support staff know Microsoft Word Error 5151 as a form of «runtime error». The Microsoft Corporation developers typically evaluate Microsoft Word with a series of modules to remove bugs to meet industry standards. Tragically, problems like error 5151 can be missed, and the software will contain these problems on release.

«Microsoft Word Error 5151» might occur to Microsoft Word users even through normal use of the application. If Microsoft Word Error 5151 occurs, developers will be told about that issue though error reporting built-into the application. Microsoft Corporation can then fix these errors in the source code and prepare an update for download. To correct such error 5151 errors, an installable software update will be released from the software provider.

What Actually Causes Runtime Error 5151?

A failure during the execution of Microsoft Word is generally when you will encounter Microsoft Word Error 5151 as a runtime error. The three common reasons why runtime errors like error 5151 pop-up:

Error 5151 Crash — Error 5151 will stop the machine from performing a regular program operation. When Microsoft Word cannot provide sufficient output to the given input, or doesn’t really know what to output, it will often confuse the system in this manner.

Microsoft Word Error 5151 Memory Leak — This type of memory leak causes Microsoft Word to keep using increasing amounts of memory, bringing down the total system performance. Potential triggers may be «infinite loop», or when the program performs a «loop» or repetition over and over again.

Error 5151 Logic Error — A logic error triggers the wrong output even when the user has given valid input data. This occurs when Microsoft Corporation’s source code triggers vulnerability in information processing.

Typically, Microsoft Word Error 5151 errors are caused by a corrupt or missing Microsoft Word-associated file, sometimes due to malware infection. Although annoying, these issues can usually be easily remedied through replacing the problem Microsoft Corporation file. After the problem file is replaced, running a registry scan can help clean up any invalid Microsoft Word Error 5151, file extension, or other file path references which could have been affected from a previous malware infection.

Classic Microsoft Word Error 5151 Problems

Encountered Microsoft Word Error 5151 Problems with Microsoft Word Include:

• «Microsoft Word Error 5151 Software Error.»
• «Win32 Software Error: Microsoft Word Error 5151»
• «Sorry for the inconvenience — Microsoft Word Error 5151 has a problem.»
• «Cannot find Microsoft Word Error 5151.»
• «Microsoft Word Error 5151 is missing.»
• «Error starting program: Microsoft Word Error 5151.»
• «Microsoft Word Error 5151 not executing.»
• «Microsoft Word Error 5151 quit.»
• «Software Path Fault: Microsoft Word Error 5151.»

Microsoft Word-involved Microsoft Word Error 5151 issues happen during install, when Microsoft Word Error 5151-related software is running, startup or shutdown, or during the Windows installation process. Notating when Microsoft Word Error 5151 errors occur is paramount in finding the cause of the Microsoft Word problems and reporting them to Microsoft Corporation for help.

Origins of Microsoft Word Error 5151 Troubles

Microsoft Word and Microsoft Word Error 5151 issues come from missing or corrupt files, Windows registry invalid entries, and malware infections.

More specifically, these Microsoft Word Error 5151 errors can be caused by:

• Corrupted or invalid Microsoft Word Error 5151 registry entry.
• Virus or malware infection that has corrupted the Microsoft Word Error 5151 file or related Microsoft Word program files.
• A different program (not related with Microsoft Word) deleted Microsoft Word Error 5151 maliciously or by mistake.
• Microsoft Word Error 5151 is in conflict with another program (shared file).
• Microsoft Word / Microsoft Word Error 5151 corrupt from incomplete download or install.

Compatible with Windows 11, 10, 8, 7, Vista, XP and 2000

Источник

Thread: Runtime error 5149

Thread Tools

Display

Runtime error 5149

I have some code, that others provided, and that code results in a Runtime error — 5941: The requested member of the collection does not exist.

Could you please provide some guidance as to why, and how to remedy the situation?

I have attached a zip file containing the Word .dotm that contains the macros.

Re: Runtime error 5149

it would have been most helpful if you had also posted the code here (in code tags) indicating which part fails

the attached file failed to open on my computer, for whatever reason the converter failed to open a document

i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next

dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part

come back and mark your original post as resolved if your problem is fixed
pete

Re: Runtime error 5149

Here is the code for the two macros. I was unable to upload the .dotm file, the interface labelled it «invalid». Is there another way I can get it to you?

Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
If oCC.Type = 3 Or oCC.Type = 4 Then
Select Case oCC.Range.Text
Case «Y»
oCC.Range.Cells(1).Shading.BackgroundPatternColor = &H50B000
oCC.Range.Font.ColorIndex = wdWhite
Case «N»
oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorRed
oCC.Range.Font.ColorIndex = wdWhite
Case «NA»
oCC.Range.Cells(1).Shading.BackgroundPatternColor = &HC07000
oCC.Range.Font.ColorIndex = wdWhite
Case Else
oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorWhite
oCC.Range.Font.Color = wdColorAutomatic
End Select
UpdateTotals
End If
lbl_Exit:
Exit Sub
End Sub

Sub UpdateTotals()
‘A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 12/2/2018

Dim lngY As Long, lngN As Long, lngNA As Long, lngNullorInvalid As Long
Dim oCC As ContentControl
Dim oRng As Range

For Each oCC In ActiveDocument.Range.ContentControls
Select Case oCC.Type
Case 8
‘ If oCC.Checked Then
‘ lngY = lngY + 1
‘ Else
‘ lngN = lngN + 1
‘ End If
Case 3, 4
Select Case oCC.Range.Text
Case Is = «Y»: lngY = lngY + 1
Case Is = «N»: lngN = lngN + 1
Case Is = «NA»: lngNA = lngNA + 1
Case Else: lngNullorInvalid = lngNullorInvalid + 1
End Select
End Select
DoEvents
Next oCC

ActiveDocument.SelectContentControlsByTitle(«Not Selected»).Item(1).Range.Text = lngNullorInvalid
ActiveDocument.SelectContentControlsByTitle(«Yes»).Item(1).Range.Text = lngY
ActiveDocument.SelectContentControlsByTitle(«No»).Item(1).Range.Text = lngN
ActiveDocument.SelectContentControlsByTitle(«NA»).Item(1).Range.Text = lngNA

lbl_Exit:
Exit Sub
End Sub

Re: Runtime error 5149

i got your document to work on a different computer

your error is caused when the code tries to address contentcontrols by title (last 4 lines)
none of the content controls in the document have titles
to fix the problem you need to either assign titles to the required content controls
or
find some alternative method of addressing the correct content controls, either by ID or some other alternative, but with 112 pages to search through, i did not find where you wanted the result to be assigned, to make any suggestions

on a test run there appeared to be 1751 content controls in the document, 1149 are of type 3 or 4

i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case.
Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next

dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part

come back and mark your original post as resolved if your problem is fixed
pete

Источник

Если вы ищете как runtime error исправить — вы попали по адресу.

Причин появления таковой может быть огромное множество.

Чаще всего причина состоит в том, что выходит новая версия того или иного приложения/игры и она устанавливается прямо поверх старой.

Хотя это далеко не единственная ситуация, которая может вызвать ее появление.

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

Бывает, что она все же продолжает работать, но в ней невозможно ничего сохранить. В любом случае, есть несколько способов исправить ее.

Как выглядит ошибка

Способ №1. CCleaner

Самое простое решение заключается в том, чтобы воспользоваться программой для чистки реестра. Как это работает?

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

Лучшей по праву считается CCleaner, хотя вы можете воспользоваться и другой.

Чтобы использовать ее, сделайте вот что:

1. Скачайте (вот ссылка на бесплатную) и установите программу.
2. Запустите. Перейдите на вкладку «Реестр» на панели слева.
3. В разделе «Целостность» поставьте галочки на всех возможных пунктах – никто не знает, в чем именно проблема.
4. Нажмите кнопку «Поиск проблем». Когда этот процесс закончится, нажмите кнопку «Исправить…».

Использование

1. Подождите, пока приложение исправит все проблемы. Перезагрузите компьютер.

После этого runtime error должен перестать появляться. Если нет, переходим к следующему решению.

Способ №2. DirectX

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

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

Для этого зайдите на сайт Microsoft, на страницу с возможностью скачать DirectX. Запустите скачанный файл и выполните все действия, подразумевающие установку исполняемых библиотек.

Здесь нет никаких особых рекомендаций – обычная.

Страница загрузки DirectX

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

Способ №3. Visual C++

О распространяемом пакете Visual C++ в контексте рассматриваемой проблемы можно скачать то же самое, что и о библиотеках DirectX.

Возможно, какие-то файлы были повреждены или версия устарела.

Бывают в данном случае и другие ситуации, когда установленная C++ попросту не подходит для вашей операционной системы.

Ниже приведена таблица с вариантами, которые подходят для разных версий ОС.

Так вот, в зависимости от того, какая у вас ОС, вам следует скачать и инсталировать на свой компьютер C++2008 (64-бит, 32-бит), C++2010 (64-бит, 32-бит) или же C++2015 обновление 3.

Это наиболее актуальная версия по состоянию на июнь 2017 года. В будущем выйдут новые, поэтому следите за новостями на официальном сайте Microsoft.

Скачивание происходит одинаково – выбираем язык распространяемого компонента и жмем кнопку «Скачать». После этого останется запустить загруженный файл.

После этого перезагрузите компьютер.

Страница загрузки Visual C++

Способ №4. Microsoft .NET Framework

Здесь все то же самое – Microsoft .NET Framework тоже может вызывать рассматриваемую проблему из-за отсутствия каких-то собственных файлов. И этот компонент также нужно скачать и установить.

Но есть определенный, правильный порядок ее инсталяции:

Сначала необходимо инсталируйте версию 2.0 (вот ссылка). Попробуйте запустить программу, в которой раньше возникала проблема, если она не исчезла, устанавливайте дальше.

После этого 3.0 (скачать).

Если не помогает, 4.0 (ссылка).

Наконец, если у вас Windows Vista SP2, 7 SP1, 8, 8.1, Server 2008 SP2, Server 2008 R2 SP1, Server 2012 или Server 2012 R2, установите 4.6.2 (скачать).

Скачивание происходит точно так же, как и в случае с пакетами Visual C++.

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

В крайнем случае, сделайте откат системы или вовсе переустановите ее.

Источник