powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Кавычки в Word
5 сообщений из 5, страница 1 из 1
Кавычки в Word
    #36443947
Sid Sidov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вывожу в шаблон ворд необходимые данные, утверженного документа в котором менять ничего нельзя... Так вот данные в таблицах DBF вот в таких кавычках - " " и передаёт в ворд он их так же... а в документе должно быть обязательно вот в таких << >> можно это как то сделать?
...
Рейтинг: 0 / 0
Кавычки в Word
    #36444118
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Конвертировать "на лету" в процессе передачи через StrTran()
2. Настроить в Word автозамену. Точнее, параметры автоформата (сервис - параметры автозамены - закладка "автоформат"). А после вставки применить на весь документ (или на вставленные фрагменты) автоформатирование (Формат - Автоформат)
...
Рейтинг: 0 / 0
Кавычки в Word
    #36444720
Sid Sidov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Записал макрос в Worde на замену кавычек: вот что получил...

*!* With Options
*!* .AutoFormatApplyHeadings = .F.
*!* .AutoFormatApplyLists = .F.
*!* .AutoFormatApplyBulletedLists = .F.
*!* .AutoFormatApplyOtherParas = .F.
*!* .AutoFormatReplaceQuotes = .T.
*!* .AutoFormatReplaceSymbols = .F.
*!* .AutoFormatReplaceOrdinals = .F.
*!* .AutoFormatReplaceFractions = .F.
*!* .AutoFormatReplacePlainTextEmphasis = .F.
*!* .AutoFormatReplaceHyperlinks = .F.
*!* .AutoFormatPreserveStyles = .T.
*!* .AutoFormatPlainTextWordMail = .T.
* End With


.Selection.Options.AutoFormatApplyHeadings = .F.
.Selection.AutoFormatApplyLists = .F.
.Selection.AutoFormatApplyBulletedLists = .F.
.Selection.AutoFormatApplyOtherParas = .F.
.Selection.AutoFormatReplaceQuotes = .T.
.Selection.AutoFormatReplaceSymbols = .F.
.Selection.AutoFormatReplaceOrdinals = .F.
.Selection.AutoFormatReplaceFractions = .F.
.Selection.AutoFormatReplacePlainTextEmphasis = .F.
.Selection.AutoFormatReplaceHyperlinks = .F.
.Selection.AutoFormatPreserveStyles = .T.
.Selection.AutoFormatPlainTextWordMail = .T.
.Selection.Document.Kind = 0
.Selection.Range.AutoFormat
...
Рейтинг: 0 / 0
Кавычки в Word
    #36444725
Sid Sidov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как правильно теперь её в Foxe записать... с With Options помогите разобраться... оно к чему относиться?
...
Рейтинг: 0 / 0
Кавычки в Word
    #36444739
Sid Sidov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всё разобрался!!!

WITH loWord.Options
.AutoFormatApplyHeadings = .F.
.AutoFormatApplyLists = .F.
.AutoFormatApplyBulletedLists = .F.
.AutoFormatApplyOtherParas = .F.
.AutoFormatReplaceQuotes = .T.
.AutoFormatReplaceSymbols = .F.
.AutoFormatReplaceOrdinals = .F.
.AutoFormatReplaceFractions = .F.
.AutoFormatReplacePlainTextEmphasis = .F.
.AutoFormatReplaceHyperlinks = .F.
.AutoFormatPreserveStyles = .T.
.AutoFormatPlainTextWordMail = .T.
ENDWITH
.Selection.Document.Kind = 0
.Selection.Range.AutoFormat

Спасибо за подсказку!!!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Кавычки в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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