Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форум Microsoft Word » Заявки на разработку » Макрос преобрузующий автоматизированные поля (Закладки) в текст
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день.
Мне нужен Макрос, который последовательно пробежит по всем закладкам в тексте и преобразует их в текст.
Важно, чтобы сохранился тот текст, который в эти закладки будет загружен и второе - не трогать перекрёстные ссылки.
Предложенное на форуме решение Ctrl+A >> Ctrl+Shift+F9 не годится, т.к. оно не различает закладки и перекрёстные ссылки, убивая всё.
Добрый день.
Мне нужен Макрос, который последовательно пробежит по всем закладкам в тексте и преобразует их в текст.
Важно, чтобы сохранился тот текст, который в эти закладки будет загружен и второе - не трогать перекрёстные ссылки.Предложенное на форуме решение Ctrl+A >> Ctrl+Shift+F9 не годится, т.к. оно не различает закладки и перекрёстные ссылки, убивая всё.
Присылайте на почту пример документа 140315926@rambler.ru
Добрый день.
Мне нужен Макрос, который последовательно пробежит по всем закладкам в тексте и преобразует их в текст.
Важно, чтобы сохранился тот текст, который в эти закладки будет загружен и второе - не трогать перекрёстные ссылки.Предложенное на форуме решение Ctrl+A >> Ctrl+Shift+F9 не годится, т.к. оно не различает закладки и перекрёстные ссылки, убивая всё.
Не понятны требования. Что вы имеете в виду под
Добрый день.
Мне нужен Макрос, который последовательно пробежит по всем закладкам в тексте и преобразует их в текст.
Важно, чтобы сохранился тот текст, который в эти закладки будет загружен и второе - не трогать перекрёстные ссылки.Предложенное на форуме решение Ctrl+A >> Ctrl+Shift+F9 не годится, т.к. оно не различает закладки и перекрёстные ссылки, убивая всё.
Не понятно, что вы имеете в виду под "закладкой". Выложите документ и прокомментируйте, что нужно удалять. Сами закладки (Bookmarks) собственного текста не имеют, а лишь ограничивают некоторый непрерывный текст в документе и имеют свое уникальное имя.
Вот пример удаления закладок в документе (макрос DeleteBookmarksInDoc):
Sub DeleteBoolmarksInRange(ByRef rg As Range)
Dim abmk As Bookmark
For Each abmk In rg.Bookmarks
On Error Resume Next
abmk.Delete
On Error GoTo 0
Next
End Sub
Sub DeleteBookmarksInDoc()
DeleteBoolmarksInRange ActiveDocument.Range
End SubXixiksa пишет:Добрый день.
Мне нужен Макрос, который последовательно пробежит по всем закладкам в тексте и преобразует их в текст.
Важно, чтобы сохранился тот текст, который в эти закладки будет загружен и второе - не трогать перекрёстные ссылки.Предложенное на форуме решение Ctrl+A >> Ctrl+Shift+F9 не годится, т.к. оно не различает закладки и перекрёстные ссылки, убивая всё.
Не понятно, что вы имеете в виду под "закладкой". Выложите документ и прокомментируйте, что нужно удалять. Сами закладки (Bookmarks) собственного текста не имеют, а лишь ограничивают некоторый непрерывный текст в документе и имеют свое уникальное имя.
Вот пример удаления закладок в документе (макрос DeleteBookmarksInDoc):Sub DeleteBoolmarksInRange(ByRef rg As Range) Dim abmk As Bookmark For Each abmk In rg.Bookmarks On Error Resume Next abmk.Delete On Error GoTo 0 Next End Sub Sub DeleteBookmarksInDoc() DeleteBoolmarksInRange ActiveDocument.Range End Sub
Спасибо за Ваш ответ, но он как я и писала ранее по результату равен действиям: Ctrl+A >> Ctrl+Shift+F9. т.е. все перекрёстные ссылки тоже превращаются в текст.
Если зайти на вкладку Вставка, подпункт Ссылки то там есть три Вида автоматизированных полей: Гиперссылка, Закладки, Перекрёстные ссылки.
Мне нужен макрос, который последовательно пройдет по каждой Закладке, превратит каждую в текст. (Закладка, выбрать первую в списке, Перейти, Ctrl+Shift+F9, Закладка, Выбрать первую в списке, Удалить //повторить столько раз, пока полностью не очистится список закладок//).
Добрый день.
Мне нужен Макрос, который последовательно пробежит по всем закладкам в тексте и преобразует их в текст.
Важно, чтобы сохранился тот текст, который в эти закладки будет загружен и второе - не трогать перекрёстные ссылки.Предложенное на форуме решение Ctrl+A >> Ctrl+Shift+F9 не годится, т.к. оно не различает закладки и перекрёстные ссылки, убивая всё.
Sub Поля()
Dim oField As Field
Dim sPerem As String
For Each oField In ActiveDocument.Fields
sPerem = oField.Result.Text
scode = oField.Code
If Not InStr(scode, "HYPERLINK") >= 1 Then Selection.Range.Text = sPerem
Next oField
End SubВот ваш код
Если поля с номерами подразделов тоже надо оставить, то используйте строку
If Not InStr(scode, "HYPERLINK") >= 1 And Not InStr(scode, "REF") >= 1 Then Selection.Range.Text = sPeremа не
If Not InStr(scode, "HYPERLINK") >= 1 Then Selection.Range.Text = sPeremЕсли поля с номерами подразделов тоже надо оставить, то используйте строку
If Not InStr(scode, "HYPERLINK") >= 1 And Not InStr(scode, "REF") >= 1 Then Selection.Range.Text = sPeremа не
If Not InStr(scode, "HYPERLINK") >= 1 Then Selection.Range.Text = sPerem
Не сразу понял, что "закладками" Xixiksa называет поля Word (Fields).
По поводу предложенного Fck_this решения: вместо
. . . Then Selection.Range.Text = sPeremя бы указал
. . . Then oField.Unlinkтакой код не только разрывает поле с источником, но и сохраняет форматирование бывшего источника, а вариант Then Selection.Range.Text = sPerem форматирования не сохраняет.
Например, вы сделали закладку (bookmark) на текст, содержавший выделенные жирным шрифтом, курсивом и т.п. слова. А затем сделали гиперссылку (hyperlink) на эту закладку. Если теперь к полю гиперссылки применить метод Unlink, то гиперссылка отцепится, но текст со всем форматированием сохранится.
Поправка.
. . .
Например, вы сделали закладку (bookmark) на текст, содержавший выделенные жирным шрифтом, курсивом и т.п. слова. А затем сделали кросс-ссылку (cross-reference) на эту закладку. Если теперь к полю кросс-ссылки применить метод Unlink, то гиперссылка отцепится, но текст со всем форматированием сохранится.
. . .
Итоговый код, который идеально всё сделал:
Sub FieldsDelete()
For Each Field In ActiveDocument.Fields
scode = Field.Code
If Not InStr(scode, "HYPERLINK") >= 1 And Not InStr(scode, "REF") >= 1 Then Field.Unlink
Next Field
End Sub
Выражаю огромную благодарность Fck_This и yshindin за помощь. Теперь всё работает так как надо. Гиперссылки и перекрёстные ссылки остались дееспособными, и документ можно запускать по процессу многоуровневого согласования, не боясь, что данные, заполненные автоматически из сторонней системы, будут утеряны.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум Microsoft Word » Заявки на разработку » Макрос преобрузующий автоматизированные поля (Закладки) в текст