home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / internet / jakpsat / archiv / makro_html.txt < prev    next >
Text File  |  2001-07-27  |  9KB  |  154 lines
  1. Sub MAIN
  2. REM Makro na p°evod wordovsk²ch dokument∙ do formßtu Html 
  3.  
  4. REM funguje pouze ve Wordu verze 7, to jest 95
  5. REM verze makra 1.3
  6. REM ⌐ DuÜan Janovsk² 1998.
  7. REM tento dokument je mo₧no Üφ°it beze zm∞n jako freeware. 
  8. REM Podporuje tuΦnost, kurzivu, odstavce typu normßlnφ, nadpis 1 a₧ 4
  9. REM koncovß Φßst dokumentu je zapoznßmkovanß, proto₧e nefunguje dob°e.
  10.  
  11. REM upravuji konce odstavc∙ tak, aby p°ed ka₧d²m byla mezera, ale ne dv∞.  
  12. EditReplace .Find = "^p", .Replace = " ^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  13. EditReplace .Find = "  ^p", .Replace = " ^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  14.  
  15. REM zde se bude formßtovat tuΦnost a kurzφva
  16.  
  17. REM Kurzφva
  18. EditFindStyle .Style = "Normßlnφ"
  19. 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
  20. EditReplace .Find = "", .Replace = "<i>^&</i>", .Direction = 0, .MatchCase = 0, .WholeWord = 1, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  21. EditReplace .Find = " ^? ", .Replace = "<i>^&</i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  22. REM toto byla zatφm jen celß slova
  23. REM Tohle jsou teΦky a Φßrky
  24. EditReplace .Find = "i>^? ", .Replace = "i><^&</i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  25.  
  26.  
  27.  
  28. REM vyt°φskßme zbyteΦnΘ </i> <i>
  29. EditReplace .Find = "</i> <i>", .Replace = " ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  30. EditReplace .Find = "</i><i>", .Replace = "", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  31.  
  32.  
  33. EditFindClearFormatting
  34.  
  35. REM TuΦnost
  36. EditFindStyle .Style = "Normßlnφ"
  37. 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
  38. EditReplace .Find = "", .Replace = "<b>^&</b>", .Direction = 0, .MatchCase = 0, .WholeWord = 1, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  39. EditReplace .Find = " ^? ", .Replace = "<b>^&</b>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  40. REM toto byla zatφm jen celß slova
  41. REM Tohle jsou teΦky a Φßrky
  42. EditReplace .Find = "b>^? ", .Replace = "b><^&</b>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  43. REM nesmφ to ale b²t >
  44. EditReplace .Find = "<b>> </b>", .Replace = "> ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  45.  
  46. REM vyt°φskßme zbyteΦnΘ </b> <b>
  47. EditReplace .Find = "</b> <b>", .Replace = " ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  48. EditReplace .Find = "</b><b>", .Replace = "", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  49.  
  50. EditFindClearFormatting
  51.  
  52. EditReplace .Find = "<b>i</b>>", .Replace = "i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  53.  
  54. REM jen tak pro krßsu:
  55.  
  56. EditReplace .Find = "</b> <i><b>", .Replace = " <i>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  57. EditReplace .Find = "</b></i> <b>", .Replace = "</i> ", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  58. REM zde konΦφ tuΦnost a kurzφva
  59.  
  60. REM Vyt°φskßme mezeroentry
  61. EditReplace .Find = " ^p", .Replace = "^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  62.  
  63.  
  64. REM Zde zaΦφnß formfßtovßnφ odstavc∙
  65.  
  66. EditReplace .Find = "^l", .Replace = "<br>", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1, .FindAllWordForms = 0
  67.  
  68.  
  69. EditFindStyle .Style = "Nadpis 1"
  70. EditReplaceStyle .Style = "Nadpis 1"
  71. EditReplace .Find = "", .Replace = "<h1>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  72. EditFindStyle .Style = "Nadpis 1"
  73. EditReplaceStyle .Style = "Nadpis 1"
  74. EditReplace .Find = "^p", .Replace = "</h1>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  75.  
  76.  
  77. EditFindStyle .Style = "Normßlnφ"
  78. EditReplaceStyle .Style = "Normßlnφ"
  79. EditReplace .Find = "", .Replace = "<p>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  80. EditFindStyle .Style = "Normßlnφ"
  81. EditReplaceStyle .Style = "Normßlnφ"
  82. EditReplace .Find = "^p", .Replace = "</p>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  83.  
  84. EditFindStyle .Style = "Nadpis 4"
  85. EditReplaceStyle .Style = "Nadpis 4"
  86. EditReplace .Find = "", .Replace = "<h4>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  87. EditFindStyle .Style = "Nadpis 4"
  88. EditReplaceStyle .Style = "Nadpis 4"
  89. EditReplace .Find = "^p", .Replace = "</h4>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  90.  
  91.  
  92. EditFindStyle .Style = "Nadpis 3"
  93. EditReplaceStyle .Style = "Nadpis 3"
  94. EditReplace .Find = "", .Replace = "<h3>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  95. EditFindStyle .Style = "Nadpis 3"
  96. EditReplaceStyle .Style = "Nadpis 3"
  97. EditReplace .Find = "^p", .Replace = "</h3>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  98.  
  99.  
  100. EditFindStyle .Style = "Nadpis 2"
  101. EditReplaceStyle .Style = "Nadpis 2"
  102. EditReplace .Find = "", .Replace = "<h2>^&", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  103. EditFindStyle .Style = "Nadpis 2"
  104. EditReplaceStyle .Style = "Nadpis 2"
  105. EditReplace .Find = "^p", .Replace = "</h2>^p", .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  106.  
  107.  
  108. REM Zde konΦφ formßtovßnφ odstavc∙, budou p°evedeny na normßlnφ styl
  109. EditSelectAll
  110. DemoteToBodyText
  111.  
  112.  
  113. REM Zde zaΦφnß vklßdßnφ hlaviΦky
  114. REM 
  115. REM 
  116. REM StartOfDocument
  117. REM 
  118. REM Insert "<HTML>"
  119. REM InsertPara
  120. REM Insert "<HEAD> "
  121. REM InsertPara
  122. REM Insert "<META HTTP-EQUIV =≈Content-Type≈ CONTENT=≈Text/html; charset=windows-1250≈ > "
  123. REM InsertPara
  124. REM Insert "<META Name=≈Generator≈ CONTENT=≈Genial Yuhu Word Makro≈ > "
  125. REM InsertPara
  126. REM Insert "<TITLE > "
  127. REM InsertField .Field = "N┴ZEV"
  128. REM Insert "</TITLE>"
  129. REM InsertPara
  130. REM Insert "</HEAD> "
  131. REM InsertPara
  132. REM Insert "<body stylesrc=≈Pom.htm≈>"
  133. REM InsertPara
  134. REM 
  135. REM EndOfDocument
  136. REM Insert "</html>"
  137. REM 
  138. REM Zde konΦφ vklßdßnφ hlaviΦky
  139. REM 
  140. REM EditFindClearFormatting
  141. REM EditReplaceClearFormatting
  142. REM EditReplace .Find = "≈", .Replace = Chr$(34), .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1, .FindAllWordForms = 0
  143. REM Toto bylo trivißlnφ p°ek≤dovßnφ uvozovek
  144. REM !!!! -------------------- Vklßdßnφ hlaviΦky nefunguje sprßvn∞ -------------------
  145. REM Zde se uklßdß soubor jako HTML.TXT
  146.  
  147. REM FileSaveAs .Name = "html.txt", .Format = 2, .LockAnnot = 0, .Password = "", .AddToMru = 1, .WritePassword = "", .RecommendReadOnly = 0, .EmbedFonts = 0, .NativePictureFormat = 0, .FormsData = 0, .SaveAsAOCELetter = 0
  148.  
  149. REM zde konΦφ uklßdßnφ souboru. Je nutnΘ jej p°ejmenovat.
  150. REM Nynφ se soubor uzav°e, aby dßle nemßtl.
  151. REM DocClose
  152.  
  153. End Sub
  154.