Подготовка документа Ворд для вставки на сайт

 
Посетитель
small user social cms
Медаль
Сообщений: 187
Вобщем столкнулся с проблемой.
При вставке документа из Ворд простое форматирование не решает проблему,нужно было удалить много чего.
Нарыл в тырнете кое-чего,не много переписал несколько макросов.Удаление переводов строки,удаление абзацев и т.п.
Может кому пригодится.
Код PHP:
  1. Sub C_Delete_Spase()
  2. Selection.Find.ClearFormatting
  3. Selection.Find.Replacement.ClearFormatting
  4. With Selection.Find
  5. .Text = " {2;}"
  6. .Replacement.Text = " "
  7. .Forward = True
  8. .Wrap = wdFindContinue
  9. .Format = False
  10. .MatchCase = False
  11. .MatchWholeWord = False
  12. .MatchAllWordForms = False
  13. .MatchWildcards = True
  14. End With
  15. Selection.Find.Execute Replace:=wdReplaceAll
  16. End Sub
  17.  
  18. Sub D_Delete_Spase_before_points()
  19. Selection.Find.ClearFormatting
  20. Selection.Find.Replacement.ClearFormatting
  21. With Selection.Find
  22. .Text = " {1;}([.,:;\!\?])"
  23. .Replacement.Text = "\1"
  24. .Forward = True
  25. .Wrap = wdFindContinue
  26. .Format = False
  27. .MatchCase = False
  28. .MatchWholeWord = False
  29. .MatchAllWordForms = False
  30. .MatchSoundsLike = False
  31. .MatchWildcards = True
  32. End With
  33. Selection.Find.Execute Replace:=wdReplaceAll
  34. End Sub
  35. Sub A_Delete_Enter()
  36. Selection.Find.ClearFormatting
  37. Selection.Find.Replacement.ClearFormatting
  38. With Selection.Find
  39. .Text = "^l"
  40. .Replacement.Text = " " ' Âíèìàíèå!
  41. .Forward = True
  42. .Wrap = wdFindContinue
  43. .Format = False
  44. .MatchCase = False
  45. .MatchWholeWord = False
  46. .MatchAllWordForms = False
  47. .MatchSoundsLike = False
  48. .MatchWildcards = False
  49. End With
  50. Selection.Find.Execute Replace:=wdReplaceAll
  51. End Sub
  52. Sub I_Delete_Perenosy()
  53. Selection.Find.ClearFormatting
  54. Selection.Find.Replacement.ClearFormatting
  55. With Selection.Find
  56. .Text = "- "
  57. .Replacement.Text = ""
  58. .Forward = True
  59. .Wrap = wdFindContinue
  60. .Format = False
  61. .MatchCase = False
  62. .MatchWholeWord = False
  63. .MatchAllWordForms = False
  64. .MatchSoundsLike = False
  65. .MatchWildcards = False
  66. End With
  67. Selection.Find.Execute Replace:=wdReplaceAll
  68. End Sub
  69.  
  70.  
  71. Sub B_Delete_Abzac()
  72. Selection.Find.ClearFormatting
  73. Selection.Find.Replacement.ClearFormatting
  74. With Selection.Find
  75. .Text = Chr(13)
  76. .Replacement.Text = " "
  77. .Forward = True
  78. .Wrap = wdFindContinue
  79. .Format = False
  80. .MatchCase = False
  81. .MatchWholeWord = False
  82. .MatchAllWordForms = False
  83. .MatchSoundsLike = False
  84. .MatchWildcards = False
  85. End With
  86.  
  87. Selection.Find.Execute Replace:=wdReplaceAll
  88. End Sub
  89. Sub J_Delete_Spase_after_points()
  90. Selection.Find.ClearFormatting
  91. Selection.Find.Replacement.ClearFormatting
  92.  
  93. With Selection.Find
  94. .Text = ">(.) "
  95. .Replacement.Text = "."
  96. .Forward = True
  97. .Wrap = wdFindContinue
  98. .Format = False
  99. .MatchCase = False
  100. .MatchWholeWord = False
  101. .MatchAllWordForms = False
  102. .MatchSoundsLike = False
  103. .MatchWildcards = True
  104. End With
  105. Selection.Find.Execute Replace:=wdReplaceAll
  106. End Sub
  107. Sub K_Delete_Spase_after_point()
  108. Selection.Find.ClearFormatting
  109. Selection.Find.Replacement.ClearFormatting
  110. With Selection.Find
  111. .Text = ">(,) "
  112. .Replacement.Text = ","
  113. .Forward = True
  114. .Wrap = wdFindContinue
  115. .Format = False
  116. .MatchCase = False
  117. .MatchWholeWord = False
  118. .MatchAllWordForms = False
  119. .MatchSoundsLike = False
  120. .MatchWildcards = True
  121. End With
  122.  
  123. Selection.Find.Execute Replace:=wdReplaceAll
  124. End Sub
  125.  
Посетитель
small user social cms
МедальКубок зрительских симпатийПочетный донор проекта
Сообщений: 713
А не проще скопировать текст в блокнот, а оттуда уже на сайт?
Посетитель
small user social cms
МедальПочетный донор проектаАвторитет форумаКубок зрительских симпатий
Сообщений: 4308
Ӎɑƙҫиӎ, плагином нельзя сделать ?
В начало страницы
Предыдущая темаСледующая тема Перейти на форум:
Быстрый ответ
Чтобы писать на форуме, зарегистрируйтесь или авторизуйтесь.