Posted: Mon Jan 26, 2009 6:10 pm Post subject: форматы
U1, U2, AS, ... - это формат строки в, например, SapScript, или при создании документации (AS - абзац, U1 - заголовок 1- го уровня, ...). Довольно много где в САП встречается.
У меня есть таблица такого типа:
формат | текст
Мне нужно из этой таблицы создать Word-Документ, причем так, чтобы тэг формата преобразовался в реальное форматирование в Word-Документе.
Напр. Строка таблицы: "U1| Заголовок" стала в Word-е:
Заголовок
Или может хоть в HTML преобразовать, если в WORD никак?
Posted: Mon Jan 26, 2009 7:19 pm Post subject: HTML
Видимо придется создавать HTML и открывать его в WORD.
Не подскажите, как написать Макрос в WORD-e, чтобы автоматом конвертировать открытый HTML в DOC? И как запустить его из САП?
А то я в VBA ничего не понимаю
Age: 165 Joined: 04 Oct 2007 Posts: 1218 Location: Санкт-Петербург
Posted: Tue Jan 27, 2009 12:58 pm Post subject:
Зачем для этого VB макрос? Используйте Ole2 для открытия WinWord и в методе SaveAs укажите тип сохраняемого файла.
Code:
INCLUDE ole2incl.
...
*The object to manipulate word...
DATA: word TYPE ole2_object, "Objeto principal
documentos TYPE ole2_object, "Colección de documentos
documento TYPE ole2_object, "Documento que se va a crear
selection TYPE ole2_object, "Se necesita para escribir
font TYPE ole2_object.
...
*Create the required objects...
CREATE OBJECT word 'WORD.APPLICATION'. "Crea el objeto WORD
CALL METHOD OF word 'Documents' = documentos. "Crea un conjunto de do
CALL METHOD OF documentos 'Add' = documento. "Añade un doc nuevo
CALL METHOD OF documento 'Activate'. "Lo activa
GET PROPERTY OF word 'Selection' = selection. "Obj. Selection
GET PROPERTY OF selection 'Font' = font. "Obj fuente
...
*To make it visible
SET PROPERTY OF word 'Visible' = 1. "Lo hace visible
...
*The current font...
SET PROPERTY OF font 'Name' = 'Arial'.
SET PROPERTY OF font 'Size' = 12.
SET PROPERTY OF font 'Bold' = 1. "o 0
SET PROPERTY OF font 'Underline' = 1. "o 0
...
*To write...
CALL METHOD OF selection 'TypeText' EXPORTING #1 = 'This is my text'.
CALL METHOD OF selection 'TypeParagraph'.
...
*To save and exit word...
CALL METHOD OF documento 'SaveAs' EXPORTING #1 = 'c:\testword.doc'.
CALL METHOD OF word 'Quit'.
Age: 165 Joined: 04 Oct 2007 Posts: 1218 Location: Санкт-Петербург
Posted: Wed Jan 28, 2009 12:49 pm Post subject:
_Sipo_ wrote:
А как можно в Word вставить таблицу?
Вы включите в WinWord macro (Tool - Macro - Record New macro), проделайте нужную операцию и увидите в тексте созданного макроса, какие методы WinWord вызываются. Потом реализуйте их через OLE2 по аналогии из примера выше.
В MSWord можно загрузить HTML файлы.
Все равно соответствие между SAP и HTML символами форматирования прописывать придется через вашу программу.
Не обязательно. Я сапскриптовый формуляр программно выкидывал в ворд безо всяких излишних шаманств - необходимо лишь настроить соответствие форматов символов/абзацев в транзакции SE74 и вызвать фм CONVERT_TEXT для конвертации внутренней таблицы в ртф-формат. Этот ртф можно уже смело открывать вордом.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
