docserver na doc->t602

[Pavel Smerk]

Nejprve par detailu pro upresneni:

On Thu, Sep 04, 2003 at 09:06:20AM +0200, Honza Pazdziora wrote:
> OK. V tom pripade bych doporucoval postupne vyzkouset tam dat
> integerove hodnoty, pripadne stejny retezec ktery se objevuje v tom
> menu. To wdFormatTextje totiz funkce ktera vraci nejake cislo, ktere
> ten Word vyhodnoti jako index do tabulky prevodniku. Takze budto
> najdete metodou pokus omyl to spravne cislo, a nebo to udelate podobne
> jako tam jsou delane ty vystupy do PostScriptu, tedy ze tam date
> patricny nazev toho exportu.

wdFormatText je konstanta, ta cisla "vestavenych" konvertoru nejsou velka,
ale u "nestandardnich" jsem uz videl i pres stovku, takze prochazeni 1, 2,
3... by mohlo byt narocne. Jinak ma Adelton pravdu, ze u nestandardnich
konvertoru nelze ocekavat nejakou prislusnou konstantu definovanou ve VBA a
je potreba najit to cislo. Retezec, ktery se objevuje v menu (jako TeX u
toho word2tex apod.), nelze (afaik) pouzit k nicemu --- do toho postscriptu
se neprevadi zadnym konvertorem, ale tiskne, a to, co je v parametru, je
nazev tiskarny, slovo "on" ci "na" dle jazykove mutace a nazev portu, na
kterem je tiskarna pripojena.

On Thu, Sep 04, 2003 at 08:27:11AM +0200, Ondrej Koala Vacha wrote:
> nepodarilo se mi zkonvertovat soubor 602, tedy takovy, ktery sice ve wordu
> je, ale nikoli implicitne. Docserver ho patrne proto take implicitne
> neumi. Snazil jsem poeditovat Docserver.pm pridanim radku
> 
> 	'602' =>	wdFormat602,
> 
> ale uskali je prave na te prave strane. Da se odnekud vycist, co tam ma
> byt, jestlize word tuto konverzi umi?

Prikladam jednoduche makro, ktere mi po spusteni (spustim word, alt+f11 pro
otevreni editoru VBA, zkopiruju makro a dam tusim f5 nebo tak neco pro
spusteni) vypise informace o dostupnych konvertorech. Vas bude zajimat cislo
na radku SaveFormat u konvertoru, ktere chcete pouzit. Pozor, pokud se dobre
pamatuju, to cislo pro jednotlive nestandardni konvertory neni pevne, ale
word si ho urci pri instalaci, takze pokud byste word preinstaloval, je
potreba si znovu zjistit cisla konvertoru, ktere chcete pouzivat. Bez
zaruky, ale snad to pomuze.
							S pozdravem	P.

P.S. Asi bychom do dalsi verze docserveru mohli pridat nejake takovehle
info o mozne rozsiritelnosti, budu na to pamatovat.

Sub converters_info()
For Each conv In FileConverters
    Selection.TypeText Text:="ClassName:    " & conv.ClassName
    Selection.TypeParagraph
    Selection.TypeText Text:="FormatName:   " & conv.FormatName
    Selection.TypeParagraph
'    Selection.TypeText Text:="CanSave:      " & conv.CanSave
'    Selection.TypeParagraph
    If conv.CanSave Then
        Selection.TypeText Text:="SaveFormat:   " & conv.SaveFormat
        Selection.TypeParagraph
    End If
'    Selection.TypeText Text:="CanOpen:      " & conv.CanOpen
'    Selection.TypeParagraph
    If conv.CanOpen Then
        Selection.TypeText Text:="OpenFormat:   " & conv.OpenFormat
        Selection.TypeParagraph
    End If
    Selection.TypeText Text:="Extensions:   " & conv.Extensions
    Selection.TypeParagraph
    Selection.TypeText Text:="File:         " & conv.Path & "\" & conv.Name
    Selection.TypeParagraph
'    Selection.TypeText Text:="Path:         " & conv.Path
'    Selection.TypeParagraph
'    Selection.TypeText Text:="Parent:       " & conv.Parent
'    Selection.TypeParagraph
'    Selection.TypeText Text:="Application:  " & conv.Application
'    Selection.TypeParagraph
'    Selection.TypeText Text:="Creator:      " & conv.Creator
'    Selection.TypeParagraph
    Selection.TypeParagraph
Next conv
End Sub