powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Шрифт в Ворде
9 сообщений из 9, страница 1 из 1
Шрифт в Ворде
    #32644973
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вопрос - Есть шаблон. Шаблон представляет из себя документ с определенными стандартами и шрифтаи, который заполняют и отдельно сохраняют. С данным шаблоном очень сложно работать, так как надо постоянно переносить туда информацию по средством ctr + c и ctr + v... Но при инсерте текста из вордовского документа, текст переносится со своими атрибутами, т.е. со своим шрифтом и размером шрифта.

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

Пример:
Заголовок 1 (шрифт нью таймз роман размер шрифта - 12)
"

ТЕКСТ

"

Втавляем нужный текст в этот заголовок, из другого документа.
Текст переносится со своим шрифтом и со своим размером.
Это надо отпривентить.
Что посоветуете?
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32645012
Summerson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обычно это делается через Paste Special (Специальная вставка). Выбирается какой-нибудь Unformatted Text.
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32645106
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Напиши процедуру
Код: plaintext
1.
2.
Sub Macro3()
    Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
End Sub
Поставь кнопку на панель инструментов для ее вызова и научи для вклеивания из буфера пользоваться этой кнопкой

ЗЫ: У меня офис ХР
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32645132
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как это можно автоматизировать, чтоб каждый раз не лезть?
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32645149
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YanisПоставь кнопку на панель инструментов для ее вызова и научи для вклеивания из буфера пользоваться этой кнопкойИ еще горячие клавиши ^V на нее настрой
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32646353
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Во первых я так понимаю там не .PasteAndFormat а .PasteFormat, во вторых не пашет и выдает ошибку - Wrong number of arguments or invalid property assigment.
Вопрос в том что именно выполняет функция Selection.PasteFormat.

Я так же порылся в хелпе и нашел следующее:
Selection.Collapse Direction:=wdCollapseStart
Selection.Range.PasteSpecial DataType:=wdPasteText
В принципе работает 8)
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32646456
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Повторюсь, что у меня офис ХР.
Процедура приведена полностью (содержит одну строчку) и работает стабильно.
Хелп ВордаPastes the selected table cells and formats them as specified.

expression.PasteAndFormat(Type)

expression Required. An expression that returns one of the objects in the Applies To list.

Type Required WdRecoveryType. The type of formatting to use when pasting the selected table cells.

WdRecoveryType can be one of these WdRecoveryType constants.
wdChart Pastes a Microsoft Excel chart as an embedded OLE object.
wdChartLinked Pastes an Excel chart and links it to the original Excel spreadsheet.
wdChartPicture Pastes an Excel chart as a picture.
wdFormatOriginalFormatting Preserves original formatting of the pasted material.
wdFormatPlainText Pastes as plain, unformatted text.
wdFormatSurroundingFormattingWithEmphasis Matches the formatting of the pasted text to the formatting of surrounding text.
wdListCombineWithExistingList Merges a pasted list with neighboring lists.
wdListContinueNumbering Continues numbering of a pasted list from the list in the document.
wdListRestartNumbering Restarts numbering of a pasted list.
wdSingleCellTable Pastes a single cell table as a separate table.
wdSingleCellText Pastes a single cell as text.
wdTableAppendTable Merges pasted cells into an existing table by inserting the pasted rows between the selected rows.
wdTableInsertAsRows Inserts a pasted table as rows between two rows in the target table.
wdTableOriginalFormatting Pastes an appended table without merging table styles.
wdTableOverwriteCells Pastes table cells and overwrites existing table cells.
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32647454
Gotar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спсибо! Разобрался!
...
Рейтинг: 0 / 0
Шрифт в Ворде
    #32647695
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как в результате решил проблему и какая у тебя версия офиса?
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Шрифт в Ворде
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]