API tools faq
paste
Advertisement
Guest User

makro

a guest
Jun 23rd, 2014
283
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.83 KB | None | 0 0
raw download clone embed print report
  1. Sub makro1()
  2. '
  3. ' makro1 Makro
  4. '
  5. '
  6. Selection.Find.ClearFormatting
  7. Selection.Find.Replacement.ClearFormatting
  8. With Selection.Find
  9. .Text = "^-"
  10. .Replacement.Text = ""
  11. .Forward = True
  12. .Wrap = wdFindContinue
  13. .Format = False
  14. .MatchCase = False
  15. .MatchWholeWord = False
  16. .MatchWildcards = False
  17. .MatchSoundsLike = False
  18. .MatchAllWordForms = False
  19. End With
  20. Selection.Find.Execute Replace:=wdReplaceAll
  21. Selection.Find.Replacement.ClearFormatting
  22. With Selection.Find
  23. .Text = ".^p^b"
  24. .Replacement.Text = ".^p"
  25. .Forward = True
  26. .Wrap = wdFindContinue
  27. .Format = False
  28. .MatchCase = False
  29. .MatchWholeWord = False
  30. .MatchWildcards = False
  31. .MatchSoundsLike = False
  32. .MatchAllWordForms = False
  33. End With
  34. Selection.Find.Execute Replace:=wdReplaceAll
  35. With Selection.Find
  36. .Text = "?^p^b"
  37. .Replacement.Text = "?^p"
  38. .Forward = True
  39. .Wrap = wdFindContinue
  40. .Format = False
  41. .MatchCase = False
  42. .MatchWholeWord = False
  43. .MatchWildcards = False
  44. .MatchSoundsLike = False
  45. .MatchAllWordForms = False
  46. End With
  47. Selection.Find.Execute Replace:=wdReplaceAll
  48. With Selection.Find
  49. .Text = "!^p^b"
  50. .Replacement.Text = "!^p"
  51. .Forward = True
  52. .Wrap = wdFindContinue
  53. .Format = False
  54. .MatchCase = False
  55. .MatchWholeWord = False
  56. .MatchWildcards = False
  57. .MatchSoundsLike = False
  58. .MatchAllWordForms = False
  59. End With
  60. Selection.Find.Execute Replace:=wdReplaceAll
  61. With Selection.Find
  62. .Text = "-^p^b"
  63. .Replacement.Text = "- "
  64. .Forward = True
  65. .Wrap = wdFindContinue
  66. .Format = False
  67. .MatchCase = False
  68. .MatchWholeWord = False
  69. .MatchWildcards = False
  70. .MatchSoundsLike = False
  71. .MatchAllWordForms = False
  72. End With
  73. Selection.Find.Execute Replace:=wdReplaceAll
  74. With Selection.Find
  75. .Text = ",^p^b"
  76. .Replacement.Text = ", "
  77. .Forward = True
  78. .Wrap = wdFindContinue
  79. .Format = False
  80. .MatchCase = False
  81. .MatchWholeWord = False
  82. .MatchWildcards = False
  83. .MatchSoundsLike = False
  84. .MatchAllWordForms = False
  85. End With
  86. Selection.Find.Execute Replace:=wdReplaceAll
  87. With Selection.Find
  88. .Text = "^p^b"
  89. .Replacement.Text = " "
  90. .Forward = True
  91. .Wrap = wdFindContinue
  92. .Format = False
  93. .MatchCase = False
  94. .MatchWholeWord = False
  95. .MatchWildcards = False
  96. .MatchSoundsLike = False
  97. .MatchAllWordForms = False
  98. End With
  99. Selection.Find.Execute Replace:=wdReplaceAll
  100. Selection.Find.ClearFormatting
  101. Selection.Find.Replacement.ClearFormatting
  102. With Selection.Find
  103. .Text = "^l"
  104. .Replacement.Text = ""
  105. .Forward = True
  106. .Wrap = wdFindContinue
  107. .Format = False
  108. .MatchCase = False
  109. .MatchWholeWord = False
  110. .MatchWildcards = False
  111. .MatchSoundsLike = False
  112. .MatchAllWordForms = False
  113. End With
  114. Selection.Find.Execute Replace:=wdReplaceAll
  115. End Sub
  116.  
  117. Sub makro2()
  118. '
  119. ' makro2 Makro
  120. '
  121. '
  122. Selection.Find.ClearFormatting
  123. Selection.Find.Replacement.ClearFormatting
  124. With Selection.Find
  125. .Text = "^-"
  126. .Replacement.Text = ""
  127. .Forward = True
  128. .Wrap = wdFindContinue
  129. .Format = False
  130. .MatchCase = False
  131. .MatchWholeWord = False
  132. .MatchWildcards = False
  133. .MatchSoundsLike = False
  134. .MatchAllWordForms = False
  135. End With
  136. Selection.Find.Execute Replace:=wdReplaceAll
  137. Selection.Find.ClearFormatting
  138. Selection.Find.Replacement.ClearFormatting
  139. With Selection.Find
  140. .Text = "^l"
  141. .Replacement.Text = ""
  142. .Forward = True
  143. .Wrap = wdFindContinue
  144. .Format = False
  145. .MatchCase = False
  146. .MatchWholeWord = False
  147. .MatchWildcards = False
  148. .MatchSoundsLike = False
  149. .MatchAllWordForms = False
  150. End With
  151. Selection.Find.Execute Replace:=wdReplaceAll
  152. Selection.Find.ClearFormatting
  153. Selection.Find.Replacement.ClearFormatting
  154. With Selection.Find
  155. .Text = "^p^b"
  156. .Replacement.Text = "^p"
  157. .Forward = True
  158. .Wrap = wdFindContinue
  159. .Format = False
  160. .MatchCase = False
  161. .MatchWholeWord = False
  162. .MatchWildcards = False
  163. .MatchSoundsLike = False
  164. .MatchAllWordForms = False
  165. End With
  166. Selection.Find.Execute Replace:=wdReplaceAll
  167. End Sub
  168.  
  169.  
  170.  
  171. Sub makro3()
  172. '
  173. ' makro3 Makro
  174. '
  175. '
  176. Selection.Find.ClearFormatting
  177. With Selection.Find
  178. .Text = "^$^p^$"
  179. .Replacement.Text = " "
  180. .Forward = True
  181. .Wrap = wdFindAsk
  182. .Format = False
  183. .MatchCase = False
  184. .MatchWholeWord = False
  185. .MatchWildcards = False
  186. .MatchSoundsLike = False
  187. .MatchAllWordForms = False
  188. End With
  189. Selection.Find.Execute
  190. Selection.Find.ClearFormatting
  191. With Selection.Find
  192. .Text = "^$^p^$"
  193. .Replacement.Text = " "
  194. .Forward = True
  195. .Wrap = wdFindAsk
  196. .Format = False
  197. .MatchCase = False
  198. .MatchWholeWord = False
  199. .MatchWildcards = False
  200. .MatchSoundsLike = False
  201. .MatchAllWordForms = False
  202. End With
  203. Selection.MoveUp Unit:=wdLine, Count:=1
  204. Selection.MoveDown Unit:=wdLine, Count:=1
  205. Selection.MoveRight Unit:=wdCharacter, Count:=1
  206. Selection.Delete Unit:=wdCharacter, Count:=1
  207. Selection.TypeText Text:=" "
  208. Selection.MoveRight Unit:=wdCharacter, Count:=4
  209. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!