Sub MAIN
REM Makro na převod wordovských dokumentů do formátu Html 

REM funguje pouze ve Wordu verze 7, to jest 95
REM verze makra 1.3
REM © Dušan Janovský 1998.
REM tento dokument je možno šířit beze změn jako freeware. 
REM Podporuje tučnost, kurzivu, odstavce typu normální, nadpis 1 až 4
REM koncová část dokumentu je zapoznámkovaná, protože nefunguje dobře.

REM upravuji konce odstavců tak, aby před každým byla mezera, ale ne dvě.  
EditReplace .Find = "^p", .Replace = " ^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
EditReplace .Find = "  ^p", .Replace = " ^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0

REM zde se bude formátovat tučnost a kurzíva

REM Kurzíva
EditFindStyle .Style = "Normální"
EditFindFont .Points = "", .Underline = - 1, .Color = - 1, .Strikethrough = - 1, .Superscript = - 1, .Subscript = - 1, .Hidden = - 1, .SmallCaps = - 1, .AllCaps = - 1, .Spacing = "", .Position = "", .Kerning = - 1, .KerningMin = "", .Tab = "0", .Font = "(normální text)", .Bold = - 1, .Italic = 1, .Outline = - 1, .Shadow = - 1
EditReplace .Find = "", .Replace = "<i>^&</i>", .Direction = 0, .MatchCase = 0, .WholeWord = 1, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditReplace .Find = " ^? ", .Replace = "<i>^&</i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
REM toto byla zatím jen celá slova
REM Tohle jsou tečky a čárky
EditReplace .Find = "i>^? ", .Replace = "i><^&</i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0



REM vytřískáme zbytečné </i> <i>
EditReplace .Find = "</i> <i>", .Replace = " ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
EditReplace .Find = "</i><i>", .Replace = "", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0


EditFindClearFormatting

REM Tučnost
EditFindStyle .Style = "Normální"
EditFindFont .Points = "", .Underline = - 1, .Color = - 1, .Strikethrough = - 1, .Superscript = - 1, .Subscript = - 1, .Hidden = - 1, .SmallCaps = - 1, .AllCaps = - 1, .Spacing = "", .Position = "", .Kerning = - 1, .KerningMin = "", .Tab = "0", .Font = "(normální text)", .Bold = 1, .Italic = - 1, .Outline = - 1, .Shadow = - 1
EditReplace .Find = "", .Replace = "<b>^&</b>", .Direction = 0, .MatchCase = 0, .WholeWord = 1, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditReplace .Find = " ^? ", .Replace = "<b>^&</b>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
REM toto byla zatím jen celá slova
REM Tohle jsou tečky a čárky
EditReplace .Find = "b>^? ", .Replace = "b><^&</b>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
REM nesmí to ale být >
EditReplace .Find = "<b>> </b>", .Replace = "> ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0

REM vytřískáme zbytečné </b> <b>
EditReplace .Find = "</b> <b>", .Replace = " ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
EditReplace .Find = "</b><b>", .Replace = "", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0

EditFindClearFormatting

EditReplace .Find = "<b>i</b>>", .Replace = "i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0

REM jen tak pro krásu:

EditReplace .Find = "</b> <i><b>", .Replace = " <i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
EditReplace .Find = "</b></i> <b>", .Replace = "</i> ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
REM zde končí tučnost a kurzíva

REM Vytřískáme mezeroentry
EditReplace .Find = " ^p", .Replace = "^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0


REM Zde začíná formfátování odstavců

EditReplace .Find = "^l", .Replace = "<br>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0


EditFindStyle .Style = "Nadpis 1"
EditReplaceStyle .Style = "Nadpis 1"
EditReplace .Find = "", .Replace = "<h1>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditFindStyle .Style = "Nadpis 1"
EditReplaceStyle .Style = "Nadpis 1"
EditReplace .Find = "^p", .Replace = "</h1>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0


EditFindStyle .Style = "Normální"
EditReplaceStyle .Style = "Normální"
EditReplace .Find = "", .Replace = "<p>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditFindStyle .Style = "Normální"
EditReplaceStyle .Style = "Normální"
EditReplace .Find = "^p", .Replace = "</p>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0

EditFindStyle .Style = "Nadpis 4"
EditReplaceStyle .Style = "Nadpis 4"
EditReplace .Find = "", .Replace = "<h4>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditFindStyle .Style = "Nadpis 4"
EditReplaceStyle .Style = "Nadpis 4"
EditReplace .Find = "^p", .Replace = "</h4>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0


EditFindStyle .Style = "Nadpis 3"
EditReplaceStyle .Style = "Nadpis 3"
EditReplace .Find = "", .Replace = "<h3>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditFindStyle .Style = "Nadpis 3"
EditReplaceStyle .Style = "Nadpis 3"
EditReplace .Find = "^p", .Replace = "</h3>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0


EditFindStyle .Style = "Nadpis 2"
EditReplaceStyle .Style = "Nadpis 2"
EditReplace .Find = "", .Replace = "<h2>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
EditFindStyle .Style = "Nadpis 2"
EditReplaceStyle .Style = "Nadpis 2"
EditReplace .Find = "^p", .Replace = "</h2>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0


REM Zde končí formátování odstavců, budou převedeny na normální styl
EditSelectAll
DemoteToBodyText


REM Zde začíná vkládání hlavičky
REM 
REM 
REM StartOfDocument
REM 
REM Insert "<HTML>"
REM InsertPara
REM Insert "<HEAD> "
REM InsertPara
REM Insert "<META HTTP-EQUIV =÷Content-Type÷ CONTENT=÷Text/html; charset=windows-1250÷ > "
REM InsertPara
REM Insert "<META Name=÷Generator÷ CONTENT=÷Genial Yuhu Word Makro÷ > "
REM InsertPara
REM Insert "<TITLE > "
REM InsertField .Field = "NÁZEV"
REM Insert "</TITLE>"
REM InsertPara
REM Insert "</HEAD> "
REM InsertPara
REM Insert "<body id="jakpsatweb-cz" stylesrc=÷Pom.htm÷>"
REM InsertPara
REM 
REM EndOfDocument
REM Insert "</html>"
REM 
REM Zde končí vkládání hlavičky
REM 
REM EditFindClearFormatting
REM EditReplaceClearFormatting
REM EditReplace .Find = "÷", .Replace = Chr$(34), .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
REM Toto bylo triviální překódování uvozovek
REM !!!! -------------------- Vkládání hlavičky nefunguje správně -------------------
REM Zde se ukládá soubor jako HTML.TXT

REM FileSaveAs .Name = "html.txt", .Format = 2, .LockAnnot = 0, .Password = "", .AddToMru = 1, .WritePassword = "", .RecommendReadOnly = 0, .EmbedFonts = 0, .NativePictureFormat = 0, .FormsData = 0, .SaveAsAOCELetter = 0

REM zde končí ukládání souboru. Je nutné jej přejmenovat.
REM Nyní se soubor uzavře, aby dále nemátl.
REM DocClose

End Sub