Найти на сайте
  2. Форумы
  3. РАЗНОЕ
  4. Флейм / Флуд / Оффтопик
  5. Подготовка документа Ворд для вставки на сайт

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

#1 10 января 2012 в 06:31
Вобщем столкнулся с проблемой.
При вставке документа из Ворд простое форматирование не решает проблему, нужно было удалить много чего.
Нарыл в тырнете кое-чего, не много переписал несколько макросов.Удаление переводов строки, удаление абзацев и т.п.
Может кому пригодится.
  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.  
0
#2 10 января 2012 в 07:37
А не проще скопировать текст в блокнот, а оттуда уже на сайт?
0
#3 10 января 2012 в 08:44
Ӎɑƙҫ иӎ, плагином нельзя сделать?
0
Две одинаковые Оперы-одна рабо
вопрос что это?
Вы не можете отвечать в этой теме.
Войдите или зарегистрируйтесь, чтобы писать на форуме.

Похожие темы

[ЗАКРЫТО] Интеграция с API Почты России

Ищу исполнителя Создана 4 года назад 2 сообщения

[ЕСТЬ РЕШЕНИЕ] Переезд с Wordpress на Instant

Ищу исполнителя Создана 4 года назад 3 сообщения

Ищу исполнителя - Перенос сайта с instantcms 1.10.6 на вордпресс

Ищу исполнителя Создана 3 года назад 22 сообщения

[ЕСТЬ РЕШЕНИЕ] Кто может сказать, что это за плагин стоит такой на сайте?

Флейм / Флуд / Оффтопик Создана 2 года назад 14 сообщений

Что за плагин?

Флейм / Флуд / Оффтопик Создана 3 года назад 13 сообщений

Автоподгрузка записей, вставка кода между записями

Ищу исполнителя Создана 3 года назад 12 сообщений

InstantCMS Team

Связь с нами
Email dev@instantcms.ru

Делаем полезные Интернет проекты с 2008 года 💫

О проекте

Поддержка

Дополнения

Используя этот сайт, вы соглашаетесь с тем, что мы используем файлы cookie.