Автор | Сообщение |
|
| постоянный участник
|
Пост N: 5885
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.05.18 18:06. Заголовок: Настройка формата листа DOC-файла...
Как сделать настройку формата страницы листа .DOC в зависимости от ширины таблицы ? Ширину своей таблицы уже знаю: nWidthTsb := oBrw:GetAllColsWidth() // ширина всех колонок таблицы в пикселах Задаю поля страницы (но они в других единицах): oWord:ActiveDocument:PageSetup:LeftMargin := 72.0 //~2.5 см // книжная ориентация oWord:ActiveDocument:PageSetup:Orientation := wdOrientPortrait // альбомная ориентация oWord:ActiveDocument:PageSetup:Orientation := wdOrientLandscape Сколько пикселов в формате А4 для книжной и альбомной ориентации листа ? Кто знает как это сделать ?
|
|
|
Ответов - 43
, стр:
1
2
3
All
[только новые]
|
|
|
| Администратор
|
Пост N: 3737
Зарегистрирован: 23.05.05
|
|
Отправлено: 29.05.18 08:41. Заголовок: Прежде надо точно сф..
Прежде надо точно сформулировать задачу, и не путать теплое с мягким количество пикселей на экране для tsbrowse из hmg и ширину листа A4 в метрической системе или в дюймах или пикселях. В таблице word таблица tsbrowse наверное будет представлена по другому ?
|
|
|
|
| постоянный участник
|
Пост N: 1825
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.05.18 10:22. Заголовок: Andrey Паша прав. А..
|
|
|
|
| |
Пост N: 6833
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.05.18 12:03. Заголовок: Andrey http://bizne..
|
|
|
|
| постоянный участник
|
Пост N: 5886
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 12:51. Заголовок: Pasha пишет: не пут..
Pasha пишет: цитата: | не путать теплое с мягким количество пикселей на экране для tsbrowse из hmg и ширину листа A4 в метрической системе или в дюймах или пикселях. |
| Вот я это и хочу понять. Спасибо большое за ссылки ! Пошёл учить матчасть...
|
|
|
|
| постоянный участник
|
Пост N: 5887
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 13:12. Заголовок: Как мне в Word сдела..
Как мне в Word сделать страницу формата А1? Формат А1 соответствует следующему размеру - 594х841 мм. А редактор Word имеет ограничение в установке размеров - 55,87 см по любой из сторон листа. Таким образом, установить формат А1 в редакторе невозможно.
|
|
|
|
| |
Пост N: 6834
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.05.18 13:22. Заголовок: Andrey Спроси гугл ..
|
|
|
|
| постоянный участник
|
Пост N: 5888
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 13:37. Заголовок: Ну да... Буду знать ..
Ну да... Буду знать теперь: Ms Word не поддерживает форматы А2,А1,А0 ! А OpenOffice поддерживает !
|
|
|
|
| постоянный участник
|
Пост N: 5889
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 13:53. Заголовок: Наконец то понял... ..
Наконец то понял... До этого как то не особо интересовался. Единицы измерения Word http://machula.ru/edinitsyi-izmereniya-word/ То бишь параметры - oWord:ActiveDocument:PageSetup:LeftMargin := 72.0 //~2.5 см Переводятся как 72 пункта (72 points)
|
|
|
|
| постоянный участник
|
Пост N: 5890
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 14:31. Заголовок: Dima пишет: http://..
Dima пишет: цитата: | http://biznessystem.ru/kakoj-razmer-v-pikselyah-imeet-list-formata-a4/ |
| Не понял. Я не нашёл как задать DPI в Ворде. Кто подскажет как это сделать ?
|
|
|
|
| постоянный участник
|
Пост N: 1426
Зарегистрирован: 27.01.07
|
|
Отправлено: 29.05.18 14:46. Заголовок: DPI имеет отношение ..
|
|
|
|
| |
Пост N: 6835
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.05.18 14:50. Заголовок: Andrey Гугл снова )..
|
|
|
|
|
| постоянный участник
|
Пост N: 5891
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.05.18 18:07. Заголовок: Задаю формат листа А..
Задаю формат листа А3 через word.ch : oWord:ActiveDocument:PageSetup:PaperSize := wdPaperA3 // лист A3 В программе потом вылетает на этой строке: Error 2447764/-2147352573 DISP_E_MEMBERNOTFOUND: _PAPERSIZE Called from TOLEAUTO:_PAPERSIZE(0) Called from BRW2DOC(99) in module: Tsb2doc.prg А так работает - oWord:ActiveDocument:PageSetup:PaperSize := wdPaperA4 // лист A4 Как задать размер листа больше А4 ?
|
|
|
|
| постоянный участник
|
Пост N: 1826
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.05.18 19:54. Заголовок: Andrey Руками можеш..
Andrey Руками можешь поставить в word формат A3 ? Сейчас не знаю, но раньше, если принтер (драйвер) не поддерживал A3, то и word не включал.
|
|
|
|
| постоянный участник
|
Пост N: 5892
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.05.18 17:10. Заголовок: SergKis пишет: Рука..
SergKis пишет: цитата: | Руками можешь поставить в word формат A3 ? |
| Не ставиться, нет такого формата в Ворде 2003. Сделал по другому: // Word имеет ограничение в установке размеров - 55,87 см по любой из сторон листа. // 55.87 сантиметров равно 1 583.717 пунктов // Высоту листа возьмем как у A4 (210х297 мм) == 297 // 297 миллиметров равно 841.889862 пункта oWord:ActiveDocument:PageSetup:PageWidth = 1583 oWord:ActiveDocument:PageSetup:PageHeight = 841 // книжная ориентация oWord:ActiveDocument:PageSetup:Orientation := wdOrientPortrait Спасибо ВСЕМ за подсказки !
|
|
|
|
| постоянный участник
|
Пост N: 5895
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.05.18 19:26. Заголовок: Экспорт в таблицу Во..
Экспорт в таблицу Ворда из Tsbrowsa получается у меня нормально. Единственно, что некрасиво делается - это автоматическое растягивание таблицы по ширине страницы !!! Можно ли как то это убрать ? Кто нибудь сталкивался с этим ? Код создания таблицы: nLenHead++ // шапка таблицы if AScan( oBrw:aColumns, { |o| o:cFooting != Nil } ) > 0 nLenHead++ endif nRowDbf := oBrw:nLen - oBrw:nAt + nLenHead + 1 // кол-во строк в таблице + шапка + подвал таблицы nColDbf := Len( oBrw:aColumns ) // кол-во столбцов в таблице // ------- создание таблицы --------------- oRange = oActive:Range(len(cTitle)+2) // таблица с автоподстройкой по ширине странице oTbl:= oWord:ActiveDocument:Tables:Add(oRange,nRowDbf,nColDbf,wdWord9TableBehavior,wdAutoFitContent) Пробовал менять константу wdAutoFitContent на 0,1,2 - всё равно одинаково растягивает таблицу.
|
|
|
|
| постоянный участник
|
Пост N: 5906
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.06.18 11:07. Заголовок: Перехожу с HBOLE.LIB..
Перехожу с HBOLE.LIB на HBWIN.LIB TRY oWord := GetActiveObject( "Word.Application" ) CATCH TRY oWord := CreateObject( "Word.Application" ) CATCH cMsg := "Не могу запустить - Microsoft Word (Ошибка:" + Ole2TxtError() + ")!;;" cMsg += "(Не установлен на этом компьютере !);" MsgStop(cMsg,"ОШИБКА!") RETURN NIL END END А чем заменить функцию Ole2TxtError() ?
|
|
|
|
| moderator
|
Пост N: 1288
Зарегистрирован: 11.02.10
|
|
Отправлено: 08.06.18 12:09. Заголовок: Andrey пишет: чем з..
Andrey пишет: цитата: | чем заменить функцию Ole2TxtError() ? |
| Попробуй использовать win_oleErrorText()
|
|
|
|
| |
Пост N: 6840
Зарегистрирован: 17.05.05
|
|
Отправлено: 08.06.18 12:09. Заголовок: win_oleErrorText()..
win_oleErrorText()
|
|
|
|
| постоянный участник
|
Пост N: 5907
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.06.18 12:51. Заголовок: СПАСИБО ! А есть опи..
СПАСИБО ! А есть описание функций HBWIN.LIB ?
|
|
|
|
| |
Пост N: 628
Зарегистрирован: 08.07.06
|
|
Отправлено: 08.06.18 17:59. Заголовок: Andrey пишет: А ест..
|
|
|
|
| |
Пост N: 6841
Зарегистрирован: 17.05.05
|
|
Отправлено: 08.06.18 18:02. Заголовок: Sergy пишет: Тут ес..
Sergy пишет: Хотел я ему эту ссылку дать , но там же далеко не все функции...
|
|
|
|
|
| постоянный участник
|
Пост N: 5909
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.06.18 18:30. Заголовок: Спасибо ! :sm36: Д..
Спасибо ! Добавил к себе в документацию...
|
|
|
|
| |
Пост N: 629
Зарегистрирован: 08.07.06
|
|
Отправлено: 09.06.18 00:01. Заголовок: Dima пишет: Хотел я..
Dima пишет: цитата: | Хотел я ему эту ссылку дать , но там же далеко не все функции... |
| После изучения "далеко не всех функций" есть смысл залезть в \hb\contrib\hbwin\*.* - там точно "всё есть".
|
|
|
|
| |
Пост N: 6843
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.06.18 08:39. Заголовок: Sergy пишет: там то..
Sergy пишет: Тоже не рискнул дать ему этот вариант
|
|
|
|
| постоянный участник
|
Пост N: 5910
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.06.18 12:40. Заголовок: Сделал такую констру..
Сделал такую конструкцию: Try oWord := CreateObject( "Word.Application" ) Catch cMsg := REPLICATE( "-._.", 16 ) + ";;" cMsg += SPACE( 5 ) + "On this computer MS Word is not installed !;;" cMsg += SPACE( 5 ) + " Error code [" + win_oleErrorText() + "];;" cMsg += SPACE( 5 ) + " Error code [" + Ole2TxtError() + "];;" cMsg += REPLICATE( "-._.", 16 ) + ";;" cMsg := AtRepl( ";", cMsg, CRLF ) MsgStop( cMsg , "Error!") Return .F. End Try Результат при отсутствии Ворда на компе: Получается, что можно пользоваться обеими функциями ? Непонятно получается. Я у себя в проекте указываю нужные мне библиотеки: -lminigui -ltsbrowse -lhbxlsxml -lhbwin А к проекту ещё добавляются библиотеки, в ходе компиляции ? Ole2TxtError() содержится в 2х библиотеках - hbole.lib и xhb.lib
|
|
|
|
| |
Пост N: 6844
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.06.18 13:07. Заголовок: Andrey пишет: hbole..
Andrey пишет: gfilatov2002 пишет: цитата: | Ожидал подобное замечание, поскольку произошел отказ от устаревшей библиотеки HbOLE |
| И на хрена ты её туда лепишь теперь ?
|
|
|
|
| постоянный участник
|
Пост N: 5912
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.06.18 13:35. Заголовок: Dima пишет: И на хр..
Dima пишет: цитата: | И на хрена ты её туда лепишь теперь ? |
| Ничего я не леплю. Вот читай что у меня в проекте: Andrey пишет: цитата: | Я у себя в проекте указываю нужные мне библиотеки: -lminigui -ltsbrowse -lhbxlsxml -lhbwin |
| Как другие библиотеки добавляются к моему проекту ?
|
|
|
|
| постоянный участник
|
Пост N: 5943
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.07.18 16:13. Заголовок: Опять вопрос по Ворд..
Опять вопрос по Ворду: Как сохранить активный документ ? Вот код: ..... oWord := TOleAuto():New( "Word.Application" ) oDocs := oWord:Documents oDocs:Open( cFileDoc ) oActive := oWord:ActiveDocument oSelect := oWord:Selection oMarks := oActive:BookMarks MyDocFindRepl(oWord, aDocVal) // Функция поиска и замена простых переменных по тексту doc MyDocTable(oWord, oSelect, aDimDbf) // Функция поиска и замена для таблицы по тексту doc oWord:Visible := lActivate // значение равно .T. oWord:WindowState := 1 // Maximize oWord:Selection:HomeKey(6) // начало документа oActive:Saved := lSave // значение равно .T. oActive:SaveAs( cFileDoc ) // сохранить документ Файл не сохраняестя.... Что нужно добавить/исправить чтобы файл сохранялся ?
|
|
|
|
| Администратор
|
Пост N: 3765
Зарегистрирован: 23.05.05
|
|
Отправлено: 08.07.18 18:18. Заголовок: Andrey пишет: Что н..
Andrey пишет: цитата: | Что нужно добавить/исправить чтобы файл сохранялся ? |
| Наверное надо убрать эту строку: oActive:Saved := lSave // значение равно .T. А то как-то странно получается: после Saved:=.t. word знает, что документ уже сохранен. И зачем тогда удивляться, что по SaveAs он не сохраняется ? Только что же была установлена отметка, что уже и так.
|
|
|
|
| постоянный участник
|
Пост N: 5944
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.07.18 21:56. Заголовок: Pasha пишет: Наверн..
Pasha пишет: цитата: | Наверное надо убрать эту строку: |
| Да перенес это из какого то проекта давно уже. А запись и не нужна была, так и кочевала из проекта в проект. Убрал. Заработало ! Спасибо большое !
|
|
|
|
| Администратор
|
Пост N: 3766
Зарегистрирован: 23.05.05
|
|
Отправлено: 08.07.18 22:32. Заголовок: Andrey пишет: Да пе..
Andrey пишет: цитата: | Да перенес это из какого то проекта давно уже. А запись и не нужна была, так и кочевала из проекта в проект. |
| А вызов SaveAs тоже из другого проекта ? Ты если в ворде открываешь документ, изменяешь, потом сохраняешь его через Сохранить как ? Или просто Сохранить ? Тогда надо использовать не SaveAs, а Save
|
|
|
|
|
| постоянный участник
|
Пост N: 5945
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.07.18 01:13. Заголовок: Pasha пишет: Тогда ..
Pasha пишет: цитата: | Тогда надо использовать не SaveAs, а Save |
| Понял. Спасибо !!! Ещё один вопрос: Как сделать поиск замену в подвале документа ? В свое время (с твоей помощью) сделал поиск-замену по тексту: Скрытый текст
/////////////////////////////////////////////////////////////////////////////////////////// // Функция поиска и замена простых переменных по тексту doc FUNCTION MyDocFindRepl(oWord, aDocVal) LOCAL nI, oFind, cFind, cReplace oFind := oWord:Selection:Find FOR nI := 1 TO LEN(aDocVal) cFind := UPPER(ALLTRIM(aDocVal[nI,1])) cReplace := CStr( aDocVal[nI,2] ) // стандартная функция перевода в текст oFind:ClearFormatting() oFind:Replacement:ClearFormatting() oFind:Text := cFind // пример "#M->Date1" oFind:Replacement:Text := cReplace // пример "01/01/2016" oFind:Forward := .T. //oFind:Wrap := 1 oFind:Wrap = wdFindContinue oFind:Format = .F. oFind:MatchCase = .F. oFind:MatchWholeWord = .F. oFind:MatchWildcards = .F. oFind:MatchSoundsLike = .F. oFind:MatchAllWordForms = .F. oFind:Execute(cFind,0,0,0,0,0,1,1,0,cReplace,wdReplaceAll) NEXT RETURN NIL
| А как делать в подвале документа - не знаю. Сейчас просто потребовалось.
|
|
|
|
| Администратор
|
Пост N: 3767
Зарегистрирован: 23.05.05
|
|
Отправлено: 09.07.18 07:58. Заголовок: А что такое подвал д..
А что такое подвал документа ? В общем случае ответ простой. Как в ворде делается - так и через ole делать. Включить макросы, и..
|
|
|
|
| постоянный участник
|
Пост N: 5946
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.07.18 09:52. Заголовок: Pasha пишет: Как в ..
Pasha пишет: цитата: | Как в ворде делается - так и через ole делать. Включить макросы, и.. |
| Вот получил макрос: Sub Макрос9_подвал() ' ' Макрос9_подвал Макрос ' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.Font.Size = 10 Selection.TypeText Text:="Строка тест 1" Selection.TypeParagraph Selection.TypeText Text:="Строка тест 2" Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Блин... и как его переделать под Харбор ?
|
|
|
|
| Администратор
|
Пост N: 3768
Зарегистрирован: 23.05.05
|
|
Отправлено: 09.07.18 09:56. Заголовок: Ну взять и переделат..
Ну взять и переделать. Тут и переделывать то ничего не надо. Какая строка вызывает затруднения ?
|
|
|
|
| постоянный участник
|
Пост N: 5947
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.07.18 10:12. Заголовок: Pasha пишет: Какая ..
Pasha пишет: цитата: | Какая строка вызывает затруднения ? |
| Вообще всё - темный лес сейчас для меня. Забыл уже как раньше переделывал... Уже года два/три не занимался макросами. Если не сложно, помоги пожалуйста.
|
|
|
|
| Администратор
|
Пост N: 3769
Зарегистрирован: 23.05.05
|
|
Отправлено: 09.07.18 10:36. Заголовок: Andrey пишет: If A..
Andrey пишет: цитата: | If ActiveWindow.View.SplitSpecial <> wdPaneNone Then |
| Ну помоги я так понимаю научи, а не тупо папазавасюрешалматематику. Начнем с первой строки. oWindow := oActive:ActiveWindow If oWindow:View:SplitSpecial <> 0 для трансляции строки вида Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend надо найти описание метода MoveUp, и перевести ключевые параметры в позиционные
|
|
|
|
| постоянный участник
|
Пост N: 5948
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.07.18 19:31. Заголовок: Pasha пишет: а не т..
Pasha пишет: цитата: | а не тупо папазавасюрешалматематику. |
| Да, да ... Есть такое... Я вот макрос сделал и не понимаю зачем этот ВЕРХНИЙ кусочек, по моему это не относиться к колонтитулу, а относится к перемещению по меню... Нашёл вот более правильное на VB: Добавление текста в нижние колонтитулы документа: Следующий пример кода задает шрифт текста, который необходимо вставить в основной нижний колонтитул каждого раздела документа, а затем вставляет текст в нижний колонтитул. В этом примере кода используется активный документ. For Each section As Word.Section In Me.Application.ActiveDocument.Sections Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed footerRange.Font.Size = 20 footerRange.Text = "Confidential" Next Правильно ли я мыслю или нет ? Или продолжать - сражаться с макросом ?
|
|
|
|
| Администратор
|
Пост N: 3770
Зарегистрирован: 23.05.05
|
|
Отправлено: 09.07.18 20:36. Заголовок: Так подвал это нижни..
Так подвал это нижний коллонититул, что ли ? Что вообще надо сделать ? А с макросом сражаться не надо. В макрос оформляются те команды, которые выполняет word, и которые можно повторить через ole. Поэтому надо включить макрос, выполнить только необходимые действия без лишних движений, и затем посмотреть, какими командами word их выполняет. Ну и просто повторить их.
|
|
|
|
| постоянный участник
|
Пост N: 5949
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.07.18 21:03. Заголовок: Pasha пишет: Так по..
Pasha пишет: цитата: | Так подвал это нижний коллонититул, что ли ? Что вообще надо сделать ? |
| 1) Удалить то что там стоит (нижний колонтитул). 2) Вставить 10 шрифтом красным цветом 4 строчки - "Тест строка 1", "Тест строка 2", и т.д.
|
|
|
|
| Администратор
|
Пост N: 3771
Зарегистрирован: 23.05.05
|
|
Отправлено: 09.07.18 22:03. Заголовок: Ну вроде бы так: пе..
Ну вроде бы так: переключиться на нижний коллонтитул ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter выделить строку Selection.EndKey Unit:=wdLine, Extend:=wdExtend удалить ее Selection.Delete Unit:=wdCharacter, Count:=1 ввести текст Selection.TypeText Text:="444" Selection.TypeParagraph переключиться обратно на документ ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Действия в коллонтитуле я делал от балды. Сделай, что там тебе надо, в макросе будет записано то, что ты делаешь. Ну и переводи на харбор. А то подвал какой-то, фиг поймешь
|
|
|
|
|
| постоянный участник
|
Пост N: 5952
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.07.18 08:04. Заголовок: Сделал функцию запис..
Сделал функцию записи в нижний колонтитул. Отдельный пример работает отлично. Порядок следования библиотек в проекте: -lminigui -ltsbrowse.lib -lhbole -lhbwin -lxhb Вставляю в свою большую систему, функция перестаёт работать. Порядок следования библиотек в проекте: -lminigui -ltsbrowse.lib -lhbwin -lhbole -lxhb Вот такая ошибка: Вот сам код функции: Скрытый текст
/////////////////////////////////////////////////////////////////////////////////////////// // Функция замены и вставки нижнего колонтитула в doc // The function to replace and insert the footer in doc FUNCTION MyDocFooter(oActive, aStroka) Local footerRange, oSection, ofooterRange, oRange Local aFColor, nI, cStroka := "" //aStroka := { "Тестовая строка № 1", "Тестовая строка № 2", "Тестовая строка № 3" } For nI := 1 TO LEN(aStroka) cStroka += aStroka[nI] If nI != LEN(aStroka) cStroka += CRLF Endif Next aFColor := BLUE // цвет текста For Each oSection In oActive:Sections // строка 914 - вылет здесь ofooterRange := oSection:Footers For Each footerRange In ofooterRange oRange := footerRange:Range oRange:Font:Color := RGB(aFColor[1],aFColor[2],aFColor[3]) oRange:Font:Name := "Times New Roman" oRange:Font:Size := 10 oRange:Font:Bold := .T. oRange:Text = cStroka oRange:ParagraphFormat:Alignment = wdAlignParagraphCenter Next Next RETURN NIL
| Подскажите пожалуйста почему так происходит и как исправить ?
|
|
|
|
| Администратор
|
Пост N: 3773
Зарегистрирован: 23.05.05
|
|
Отправлено: 11.07.18 09:55. Заголовок: Для начала наверное ..
Для начала наверное надо прекратить использовать очень старую библиотеку hbole (это видно по тому, что задействован класс TOleAuto), а использовать аналогичные средства из hbwin, тем более там отличия в основном только в инициализации. Ну а на такой вопрос: почему тестовый пример работает, а в большом проекте вылет вряд ли кто-нибудь вообще ответит по понятным причинам.
|
|
|
Ответов - 43
, стр:
1
2
3
All
[только новые]
|
|