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

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

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

ТЕКСТ

"

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

ЗЫ: У меня офис ХР
...
Рейтинг: 0 / 0
11.08.2004, 16:48
    #32645132
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шрифт в Ворде
А как это можно автоматизировать, чтоб каждый раз не лезть?
...
Рейтинг: 0 / 0
11.08.2004, 16:55
    #32645149
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шрифт в Ворде
YanisПоставь кнопку на панель инструментов для ее вызова и научи для вклеивания из буфера пользоваться этой кнопкойИ еще горячие клавиши ^V на нее настрой
...
Рейтинг: 0 / 0
12.08.2004, 12:35
    #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
12.08.2004, 13:02
    #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
12.08.2004, 17:41
    #32647454
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шрифт в Ворде
Спсибо! Разобрался!
...
Рейтинг: 0 / 0
12.08.2004, 20:44
    #32647695
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шрифт в Ворде
А как в результате решил проблему и какая у тебя версия офиса?
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Шрифт в Ворде / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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