Форум "Cофт"

Программное обеспечение, бесплатный софт, варез

#0 ID © 03.01.07 10:51:44 - 20.01.07 11:32:01

программа перевода MS Word в текстовый файл с BBCode тегами

если попадалась программа перевода MS Word в текстовый файл с BBCode тегами - поделитесь, пожалуйста линком

#1 VictorT © 03.01.07 11:29:21

Полноценного перевода всё равно не получится

#2 Deep © 03.01.07 15:00:27

> ID ©
сохраняешь как хтмл-файл, а потом делаешь с ним все что нужно.
После модификации, если нужно опять вкачиваешь в ворд.

модификации можно легко сделать програмно, выгрузку/вгрузку по идее - тоже можно, но уже далеко как непросто. По крайней мере готового куска кода у меня для этого случая нет.

#3 VictorT © 03.01.07 15:59:19

> сохраняешь как хтмл-файл,
офигиеваешь от его вида, и задумываешься, насколько "легко будет делать с ним все что нужно".
> модификации можно легко сделать програмно, выгрузку/вгрузку по идее - тоже можно, но уже далеко как непросто.
Как раз наоборот, вторая задача далеко не так сложна, как первая.
> По крайней мере готового куска кода у меня для этого случая нет.

Перефразируя одну фразу, с готовыми кусками кода все могут программить, а ты попробуй без готового

#4 Deep © 03.01.07 16:25:47

>#3 VictorT ©
дык, когда жизнь заставляет - пробую, а так стараюсь не сильно напрягаццо... Нужно дать умишку немного отдохнуть...

#5 ID © 03.01.07 19:02:27

программа нужна для публикации документации на страницах вебпортала. Документации много. Вручную не охото верстать.
Может у когото есть фрагмент кода - макрос для MS Word, который бы искал в тексте формат жирный, курсив и т.п.?

#6 Marser © 04.01.07 00:09:59

Кстати, идейка интересная. Когда будут чесаться руки и нечем будет заняться, можно будет сделать. Но хз, когда это будет

#7 VictorT © 04.01.07 10:10:43

> Вручную не охото верстать.
Ну, тут выбор за тобой, либо качесвенно верстать вручную, либо некачественно автоматически.

#8 ID © 04.01.07 11:06:51

#7 VictorT ©04.01.07 13:10:43
Одно дело подправить, другое - делать все с нуля.
Искал программу, которая бы вордовский текст переделала с учетом bbcode + выкусить кртинки и сохранить в отдельный файл, а на эти картинки линк в тексте + символ окончания листа (для постраничного отображения документации). Если не найду, буду пробовать самостоятельно написать такую прогу.

#9 VictorT © 04.01.07 11:10:00

> Одно дело подправить, другое - делать все с нуля.
Типичное заблуждение. С опытом приходит понимание, что это не так.

#10 Deep © 04.01.07 12:49:13

> ID ©
>>программа нужна для публикации документации на страницах вебпортала.
а при чем здесь bbcode ?
делаешь обыкновенный экспорт в html и выкладываешь на сайте.

если же хочется сделать "лучше" и совсем "по-своему", тогда нужно плясать не от вордовского формата. а от формата RTF.

посмотри вот это

если вдруг не подойтет, то смотри дальше здесь
+to+html

#11 Зашел © 04.01.07 13:09:28

Word97 делает это приятнее, чем более свежие версии. Мы когда массово перегоняли тексты в хтмл - пользовали именно его. Более же молодое таких монстров выдает, что вид их вызывает уныние.

#12 VictorT © 04.01.07 13:14:24

>#11 Зашел © 04.01.07
Кстати да, 97 - это меньшее зло. Но всё равно зло.

#13 Deep © 04.01.07 13:50:38

>#12 VictorT ©
если выложить нужно на локалке(где трафик не имеет значения), я бы даже на версии ворда не смотрел

Сделал и забыл.

#14 VictorT © 04.01.07 14:02:13

>#13 Deep
Ну дело ведь не только в трафике. В разных броузерах криво показываться будет.
Да и вообще, в локалке можно и вордовые документы смотреть.

#15 Deep © 04.01.07 14:08:09

> В разных броузерах криво показываться будет.
если там нет ничего заумного, кроме текста и картинок -- вряд ли отличия будут носить существенный характер.

> Да и вообще, в локалке можно и вордовые документы смотреть.
Конечно можно, однако офисные приложения(ворд в т.ч.) нынче платные. Потому либо нужно везде ставить бесплатные просмотрщики либо конвертировать в веб-формат.

Лично мне второй вариант бы больше понравился, даже при наличии просмотрщиков.

#16 VictorT © 04.01.07 14:14:16

> Лично мне второй вариант бы больше понравился, даже при наличии просмотрщиков.
Ты уже отконвертировал все свои документы?

#17 Deep © 04.01.07 15:33:02

> #16 VictorT ©
подразумевались не мои лично документы, а документы фирмы, которы нужны для всеобщего ознакомления

#19 Зашел © 04.01.07 17:53:04

Массовая перегонка может понадобится для разного. Нам это нужно было, чтобы файлы нормально показывались во вьювере поддерживающем хтмл в несколько урезанном виде и облдадающем доп. возможностями под наши проекты - типа энциклопедий на дисках. 97 обладал нужным - более старшие версии делали итоговые документы и большими и ужасными по структуре. Далее я брал получившееся и без проблем парсил это и приводил к нужному мне итогу.

#20 Deep © 05.01.07 14:38:04

>#18 VictorT ©
> > 17 Deep ©
> Т.е. для фирмы удобно, а для тебя неудобно?
а что здесь удивительного?
1)ко мне домой софт проверять не придут
2)как я уже писал - я имел ввиду документы которые нужно выставить для общего доступа. Лично у меня таких вордовских документов нету.

#21 VictorT © 05.01.07 14:59:21

> ко мне домой софт проверять не придут
А какая разница? Ты ведь написал: > даже при наличии просмотрщиков.

uses 
  ComObj; 

function ConvertDoc2Rtf(var FileName: string) : Boolean;
var 
  oWord: OleVariant; 
  oDoc: OleVariant; 
begin 
  Result := False; 
  try 
    oWord := GetActiveOleObject('Word.Application'); 
  except 
    oWord := CreateOleObject('Word.Application'); 
  end; 
  oWord.Documents.Open(FileName); 
  oDoc  := oWord.ActiveDocument; 
  FileName := ChangeFileExt(FileName, '.rtf'); 
  oDoc.SaveAs(FileName); 
  oWord.ActiveDocument.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam); 
  oWord.Quit(EmptyParam, EmptyParam, EmptyParam); 
  oDoc := VarNull; 
  oWord := VarNull; 
  Result := True; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
const 
  FileName = 'c:\Document.doc'; 
begin 
  if ConvertDoc2Rtf(FileName) then 
  begin 
    ShowMessage('Word document has been converted to .rtf'); 
    RichEdit1.Lines.LoadFromFile(FileName); 
  end; 
end;

Написать ответ