API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
88
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 90.11 KB | None | 0 0
raw download clone embed print report
  1. Sub BasicEdit()
  2. '
  3. ' BasicEdit Macro
  4. '
  5. '
  6. Dim CurPage
  7.  
  8. CurPage = Selection.Information(wdActiveEndAdjustedPageNumber)
  9.  
  10. With Selection.Find
  11. .Text = ChrW(4306) & ChrW(4304) & ChrW(4304) & ChrW(4329) & ChrW(4316) & ChrW(4312) & ChrW(4304)
  12. .Replacement.Text = ChrW(4304) & ChrW(4325) & ChrW(4309) & ChrW(4321)
  13. .Forward = True
  14. .Wrap = wdFindContinue
  15. .Format = False
  16. .MatchCase = False
  17. .MatchWholeWord = False
  18. .MatchWildcards = False
  19. .MatchSoundsLike = False
  20. .MatchAllWordForms = False
  21. End With
  22. Selection.Find.Execute Replace:=wdReplaceAll
  23. With Selection.Find
  24. .Text = ChrW(4307) & ChrW(4308) & ChrW(4324) & ChrW(4317) & ChrW(4315) & ChrW(4304)
  25. .Replacement.Text = ChrW(4307) & ChrW(4308) & ChrW(4324) & ChrW(4317) & ChrW(4320) & ChrW(4315) & ChrW(4304)
  26. .Forward = True
  27. .Wrap = wdFindContinue
  28. .Format = False
  29. .MatchCase = False
  30. .MatchWholeWord = False
  31. .MatchWildcards = False
  32. .MatchSoundsLike = False
  33. .MatchAllWordForms = False
  34. End With
  35. Selection.Find.Execute Replace:=wdReplaceAll
  36. With Selection.Find
  37. .Text = ChrW(4321) & ChrW(4304) & ChrW(4316) & ChrW(4313) & ChrW(4309) & ChrW(4304) & ChrW(4316)
  38. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4316) & ChrW(46) & ChrW(32) & ChrW(4313) & ChrW(4309) & ChrW(4304) & ChrW(4316)
  39. .Forward = True
  40. .Wrap = wdFindContinue
  41. .Format = False
  42. .MatchCase = False
  43. .MatchWholeWord = False
  44. .MatchWildcards = False
  45. .MatchSoundsLike = False
  46. .MatchAllWordForms = False
  47. End With
  48. Selection.Find.Execute Replace:=wdReplaceAll
  49. With Selection.Find
  50. .Text = "comly"
  51. .Replacement.Text = "comply"
  52. .Forward = True
  53. .Wrap = wdFindContinue
  54. .Format = False
  55. .MatchCase = False
  56. .MatchWholeWord = False
  57. .MatchWildcards = False
  58. .MatchSoundsLike = False
  59. .MatchAllWordForms = False
  60. End With
  61. Selection.Find.Execute Replace:=wdReplaceAll
  62. With Selection.Find
  63. .Text = "compy"
  64. .Replacement.Text = "comply"
  65. .Forward = True
  66. .Wrap = wdFindContinue
  67. .Format = False
  68. .MatchCase = False
  69. .MatchWholeWord = False
  70. .MatchWildcards = False
  71. .MatchSoundsLike = False
  72. .MatchAllWordForms = False
  73. End With
  74. Selection.Find.Execute Replace:=wdReplaceAll
  75. With Selection.Find
  76. .Text = "( ){2,}"
  77. .Replacement.Text = "\1"
  78. .Forward = True
  79. .Wrap = wdFindContinue
  80. .Format = False
  81. .MatchCase = False
  82. .MatchWholeWord = False
  83. .MatchWildcards = True
  84. .MatchSoundsLike = False
  85. .MatchAllWordForms = False
  86. End With
  87. Selection.Find.Execute Replace:=wdReplaceAll
  88. Selection.Find.ClearFormatting
  89. Selection.Find.Replacement.ClearFormatting
  90. With Selection.Find
  91. .Text = "(?[! ])|([! ]?)"
  92. .Replacement.Text = "\1 | \2"
  93. .Forward = True
  94. .Wrap = wdFindContinue
  95. .Format = False
  96. .MatchCase = False
  97. .MatchWholeWord = False
  98. .MatchAllWordForms = False
  99. .MatchSoundsLike = False
  100. .MatchWildcards = True
  101. End With
  102. Selection.Find.Execute Replace:=wdReplaceAll
  103. With Selection.Find
  104. .Text = "([! ])| (?)"
  105. .Replacement.Text = "\1 | \2"
  106. .Forward = True
  107. .Wrap = wdFindContinue
  108. .Format = False
  109. .MatchCase = False
  110. .MatchWholeWord = False
  111. .MatchAllWordForms = False
  112. .MatchSoundsLike = False
  113. .MatchWildcards = True
  114. End With
  115. Selection.Find.Execute Replace:=wdReplaceAll
  116. With Selection.Find
  117. .Text = "(?)|([! ])"
  118. .Replacement.Text = "\1 | \2"
  119. .Forward = True
  120. .Wrap = wdFindContinue
  121. .Format = False
  122. .MatchCase = False
  123. .MatchWholeWord = False
  124. .MatchAllWordForms = False
  125. .MatchSoundsLike = False
  126. .MatchWildcards = True
  127. End With
  128. Selection.Find.Execute Replace:=wdReplaceAll
  129. With Selection.Find
  130. .Text = " ."
  131. .Replacement.Text = "."
  132. .Forward = True
  133. .Wrap = wdFindContinue
  134. .Format = False
  135. .MatchCase = False
  136. .MatchWholeWord = False
  137. .MatchAllWordForms = False
  138. .MatchSoundsLike = False
  139. .MatchWildcards = False
  140. End With
  141. Selection.Find.Execute Replace:=wdReplaceAll
  142. With Selection.Find
  143. .Text = " ,"
  144. .Replacement.Text = ","
  145. .Forward = True
  146. .Wrap = wdFindContinue
  147. .Format = False
  148. .MatchCase = False
  149. .MatchWholeWord = False
  150. .MatchAllWordForms = False
  151. .MatchSoundsLike = False
  152. .MatchWildcards = False
  153. End With
  154. Selection.Find.Execute Replace:=wdReplaceAll
  155. With Selection.Find
  156. .Text = ".."
  157. .Replacement.Text = "."
  158. .Forward = True
  159. .Wrap = wdFindContinue
  160. .Format = False
  161. .MatchCase = False
  162. .MatchWholeWord = False
  163. .MatchAllWordForms = False
  164. .MatchSoundsLike = False
  165. .MatchWildcards = False
  166. End With
  167. Selection.Find.Execute Replace:=wdReplaceAll
  168. With Selection.Find
  169. .Text = ".."
  170. .Replacement.Text = "."
  171. .Forward = True
  172. .Wrap = wdFindContinue
  173. .Format = False
  174. .MatchCase = False
  175. .MatchWholeWord = False
  176. .MatchAllWordForms = False
  177. .MatchSoundsLike = False
  178. .MatchWildcards = False
  179. End With
  180. Selection.Find.Execute Replace:=wdReplaceAll
  181. With Selection.Find
  182. .Text = "( ){2,}"
  183. .Replacement.Text = "\1"
  184. .Forward = True
  185. .Wrap = wdFindContinue
  186. .Format = False
  187. .MatchCase = False
  188. .MatchWholeWord = False
  189. .MatchWildcards = True
  190. .MatchSoundsLike = False
  191. .MatchAllWordForms = False
  192. End With
  193. Selection.Find.Execute Replace:=wdReplaceAll
  194. ' With Selection.Find
  195. ' .Text = "([!.;]) | (?*)."
  196. ' .Replacement.Text = "\1. | \2."
  197. ' .Forward = True
  198. ' .Wrap = wdFindContinue
  199. ' .Format = False
  200. ' .MatchCase = False
  201. ' .MatchWholeWord = False
  202. ' .MatchWildcards = True
  203. ' .MatchSoundsLike = False
  204. ' .MatchAllWordForms = False
  205. ' End With
  206. ' Selection.Find.Execute Replace:=wdReplaceAll
  207. Selection.Find.Execute Replace:=wdReplaceAll
  208. With Selection.Find
  209. .Text = ChrW(4321) & ChrW(4304) & ChrW(4335) & ChrW(4304) & ChrW(4320) & ChrW(4317) & ChrW(4321) & ChrW(32) & ChrW(4321) & ChrW(4313) & ChrW(4317) & ChrW(4314) & ChrW(4312) & ChrW(4321)
  210. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4335) & ChrW(4304) & ChrW(4320) & ChrW(4317) & ChrW(32) & ChrW(4321) & ChrW(4313) & ChrW(4317) & ChrW(4314) & ChrW(4312) & ChrW(4321)
  211. .Forward = True
  212. .Wrap = wdFindContinue
  213. .Format = False
  214. .MatchCase = False
  215. .MatchWholeWord = False
  216. .MatchWildcards = False
  217. .MatchSoundsLike = False
  218. .MatchAllWordForms = False
  219. End With
  220. Selection.Find.Execute Replace:=wdReplaceAll
  221. With Selection.Find
  222. .Text = ChrW(4304) & ChrW(4315) & ChrW(4317) & ChrW(4320) & ChrW(4322) & ChrW(4312) & ChrW(4310) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312)
  223. .Replacement.Text = ChrW(4304) & ChrW(4315) & ChrW(4317) & ChrW(4320) & ChrW(4322) & ChrW(4312) & ChrW(4310) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312)
  224. .Forward = True
  225. .Wrap = wdFindContinue
  226. .Format = False
  227. .MatchCase = False
  228. .MatchWholeWord = False
  229. .MatchWildcards = False
  230. .MatchSoundsLike = False
  231. .MatchAllWordForms = False
  232. End With
  233. Selection.Find.Execute Replace:=wdReplaceAll
  234. With Selection.Find
  235. .Text = "inclisive"
  236. .Replacement.Text = "inclusive"
  237. .Forward = True
  238. .Wrap = wdFindContinue
  239. .Format = False
  240. .MatchCase = False
  241. .MatchWholeWord = False
  242. .MatchWildcards = False
  243. .MatchSoundsLike = False
  244. .MatchAllWordForms = False
  245. End With
  246. Selection.Find.Execute Replace:=wdReplaceAll
  247. With Selection.Find
  248. .Text = "comliance"
  249. .Replacement.Text = "compliance"
  250. .Forward = True
  251. .Wrap = wdFindContinue
  252. .Format = False
  253. .MatchCase = False
  254. .MatchWholeWord = False
  255. .MatchWildcards = False
  256. .MatchSoundsLike = False
  257. .MatchAllWordForms = False
  258. End With
  259. Selection.Find.Execute Replace:=wdReplaceAll
  260. With Selection.Find
  261. .Text = "electric "
  262. .Replacement.Text = "electrical "
  263. .Forward = True
  264. .Wrap = wdFindContinue
  265. .Format = False
  266. .MatchCase = False
  267. .MatchWholeWord = False
  268. .MatchWildcards = False
  269. .MatchSoundsLike = False
  270. .MatchAllWordForms = False
  271. End With
  272. Selection.Find.Execute Replace:=wdReplaceAll
  273. With Selection.Find
  274. .Text = ChrW(4332) & ChrW(4308) & ChrW(4320) & ChrW(4322) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4314) & ChrW(4304) & ChrW(4305) & ChrW(4317) & ChrW(4320) & ChrW(4304) & ChrW(4322) & ChrW(4317) & ChrW(4320) & ChrW(4312) & ChrW(4304) & ChrW(4328) & ChrW(4312)
  275. .Replacement.Text = ChrW(4332) & ChrW(4308) & ChrW(4320) & ChrW(4322) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4321) & ChrW(4304) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4314) & ChrW(4304) & ChrW(4305) & ChrW(4317) & ChrW(4320) & ChrW(4304) & ChrW(4322) & ChrW(4317) & ChrW(4320) & ChrW(4312) & ChrW(4304) & ChrW(4328) & ChrW(4312)
  276. .Forward = True
  277. .Wrap = wdFindContinue
  278. .Format = False
  279. .MatchCase = False
  280. .MatchWholeWord = False
  281. .MatchWildcards = False
  282. .MatchSoundsLike = False
  283. .MatchAllWordForms = False
  284. End With
  285. Selection.Find.Execute Replace:=wdReplaceAll
  286. With Selection.Find
  287. .Text = ChrW(4316) & ChrW(4304) & ChrW(4332) & ChrW(4314) & ChrW(4317) & ChrW(4305) & ChrW(4320) & ChrW(4312) & ChrW(4309)
  288. .Replacement.Text = ChrW(4316) & ChrW(4304) & ChrW(4332) & ChrW(4312) & ChrW(4314) & ChrW(4317) & ChrW(4305) & ChrW(4320) & ChrW(4312) & ChrW(4309)
  289. .Forward = True
  290. .Wrap = wdFindContinue
  291. .Format = False
  292. .MatchCase = False
  293. .MatchWholeWord = False
  294. .MatchWildcards = False
  295. .MatchSoundsLike = False
  296. .MatchAllWordForms = False
  297. End With
  298. Selection.Find.Execute Replace:=wdReplaceAll
  299. With Selection.Find
  300. .Text = "costs is"
  301. .Replacement.Text = "costs are"
  302. .Forward = True
  303. .Wrap = wdFindContinue
  304. .Format = False
  305. .MatchCase = False
  306. .MatchWholeWord = False
  307. .MatchWildcards = False
  308. .MatchSoundsLike = False
  309. .MatchAllWordForms = False
  310. End With
  311. Selection.Find.Execute Replace:=wdReplaceAll
  312. With Selection.Find
  313. .Text = "lonfer"
  314. .Replacement.Text = "longer"
  315. .Forward = True
  316. .Wrap = wdFindContinue
  317. .Format = False
  318. .MatchCase = False
  319. .MatchWholeWord = False
  320. .MatchWildcards = False
  321. .MatchSoundsLike = False
  322. .MatchAllWordForms = False
  323. End With
  324. Selection.Find.Execute Replace:=wdReplaceAll
  325. With Selection.Find
  326. .Text = "disebility person"
  327. .Replacement.Text = "disabled persons"
  328. .Forward = True
  329. .Wrap = wdFindContinue
  330. .Format = False
  331. .MatchCase = False
  332. .MatchWholeWord = False
  333. .MatchWildcards = False
  334. .MatchSoundsLike = False
  335. .MatchAllWordForms = False
  336. End With
  337. Selection.Find.Execute Replace:=wdReplaceAll
  338. With Selection.Find
  339. .Text = ChrW(4316) & ChrW(4304) & ChrW(4313) & ChrW(4314) & ChrW(4317) & ChrW(4309) & ChrW(4304) & ChrW(4316) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4320) & ChrW(4306) & ChrW(4308) & ChrW(4305) & ChrW(4314) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321)
  340. .Replacement.Text = ChrW(4316) & ChrW(4304) & ChrW(4313) & ChrW(4314) & ChrW(4317) & ChrW(4309) & ChrW(4304) & ChrW(4316) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(4304) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4320) & ChrW(4306) & ChrW(4308) & ChrW(4305) & ChrW(4314) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321)
  341. .Forward = True
  342. .Wrap = wdFindContinue
  343. .Format = False
  344. .MatchCase = False
  345. .MatchWholeWord = False
  346. .MatchWildcards = False
  347. .MatchSoundsLike = False
  348. .MatchAllWordForms = False
  349. End With
  350. Selection.Find.Execute Replace:=wdReplaceAll
  351. With Selection.Find
  352. .Text = ChrW(4309) & ChrW(4312) & ChrW(4310) & ChrW(4323) & ChrW(4314) & ChrW(4323) & ChrW(4320) & ChrW(4312)
  353. .Replacement.Text = ChrW(4309) & ChrW(4312) & ChrW(4310) & ChrW(4323) & ChrW(4304) & ChrW(4314) & ChrW(4323) & ChrW(4320) & ChrW(4312)
  354. .Forward = True
  355. .Wrap = wdFindContinue
  356. .Format = False
  357. .MatchCase = False
  358. .MatchWholeWord = False
  359. .MatchWildcards = False
  360. .MatchSoundsLike = False
  361. .MatchAllWordForms = False
  362. End With
  363. Selection.Find.Execute Replace:=wdReplaceAll
  364. With Selection.Find
  365. .Text = ChrW(4307) & ChrW(4304) & ChrW(4311) & ChrW(4309) & ChrW(4304) & ChrW(4314) & ChrW(4312) & ChrW(4308) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4315) & ChrW(4312) & ChrW(4334) & ChrW(4308) & ChrW(4307) & ChrW(4309) & ChrW(4312) & ChrW(4311)
  366. .Replacement.Text = ChrW(4307) & ChrW(4304) & ChrW(4311) & ChrW(4309) & ChrW(4304) & ChrW(4314) & ChrW(4312) & ChrW(4308) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4328) & ChrW(4308) & ChrW(4307) & ChrW(4308) & ChrW(4306) & ChrW(4304) & ChrW(4307)
  367. .Forward = True
  368. .Wrap = wdFindContinue
  369. .Format = False
  370. .MatchCase = False
  371. .MatchWholeWord = False
  372. .MatchWildcards = False
  373. .MatchSoundsLike = False
  374. .MatchAllWordForms = False
  375. End With
  376. Selection.Find.Execute Replace:=wdReplaceAll
  377. With Selection.Find
  378. .Text = ChrW(4306) & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4315) & ChrW(4317) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(32) & ChrW(4320) & ChrW(4317) & ChrW(4315) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(4330)
  379. .Replacement.Text = ChrW(4306) & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4315) & ChrW(4317) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(44) & ChrW(32) & ChrW(4320) & ChrW(4317) & ChrW(4315) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4330)
  380. .Forward = True
  381. .Wrap = wdFindContinue
  382. .Format = False
  383. .MatchCase = False
  384. .MatchWholeWord = False
  385. .MatchWildcards = False
  386. .MatchSoundsLike = False
  387. .MatchAllWordForms = False
  388. End With
  389. Selection.Find.Execute Replace:=wdReplaceAll
  390. With Selection.Find
  391. .Text = "circumstances which"
  392. .Replacement.Text = "circumstances, which"
  393. .Forward = True
  394. .Wrap = wdFindContinue
  395. .Format = False
  396. .MatchCase = False
  397. .MatchWholeWord = False
  398. .MatchWildcards = False
  399. .MatchSoundsLike = False
  400. .MatchAllWordForms = False
  401. End With
  402. Selection.Find.Execute Replace:=wdReplaceAll
  403. With Selection.Find
  404. .Text = "Reason of incompliance to norm"
  405. .Replacement.Text = "Reason of incompliance"
  406. .Forward = True
  407. .Wrap = wdFindContinue
  408. .Format = False
  409. .MatchCase = False
  410. .MatchWholeWord = False
  411. .MatchWildcards = False
  412. .MatchSoundsLike = False
  413. .MatchAllWordForms = False
  414. End With
  415. Selection.Find.Execute Replace:=wdReplaceAll
  416. With Selection.Find
  417. .Text = ChrW(4321) & ChrW(4312) & ChrW(4309) & ChrW(4320) & ChrW(4330) & ChrW(4308) & ChrW(44) & ChrW(32) & ChrW(4307) & ChrW(4304)
  418. .Replacement.Text = ChrW(4321) & ChrW(4312) & ChrW(4309) & ChrW(4320) & ChrW(4330) & ChrW(4308) & ChrW(32) & ChrW(4307) & ChrW(4304)
  419. .Forward = True
  420. .Wrap = wdFindContinue
  421. .Format = False
  422. .MatchCase = False
  423. .MatchWholeWord = False
  424. .MatchWildcards = False
  425. .MatchSoundsLike = False
  426. .MatchAllWordForms = False
  427. End With
  428. Selection.Find.Execute Replace:=wdReplaceAll
  429. With Selection.Find
  430. .Text = ChrW(4321) & ChrW(4313) & ChrW(4317) & ChrW(4314) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4308) _
  431. & ChrW(4309) & ChrW(4304) & ChrW(4313) & ChrW(4323) & ChrW(4304) & ChrW(4330) & ChrW(4312) & ChrW(4317) & ChrW(32) & ChrW(4306) _
  432. & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4321) & ChrW(4309) & ChrW(4314) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4305) _
  433. & ChrW(4311) & ChrW(4304) & ChrW(4316) & ChrW(44) & ChrW(32) & ChrW(4320) & ChrW(4317) & ChrW(4315) & ChrW(4314) & ChrW(4308) _
  434. & ChrW(4305) & ChrW(4312) & ChrW(4330) & ChrW(32) & ChrW(4304) & ChrW(4334) & ChrW(4314) & ChrW(4317) & ChrW(4321) & ChrW(4304) _
  435. & ChrW(4304) & ChrW(32) & ChrW(4306) & ChrW(4310) & ChrW(4304) & ChrW(4321) & ChrW(4311) & ChrW(4304) & ChrW(4316) & ChrW(44) _
  436. & ChrW(32) & ChrW(4304) & ChrW(4323) & ChrW(4330) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4314) & ChrW(4304) _
  437. & ChrW(4307) & ChrW(32) & ChrW(4306) & ChrW(4310) & ChrW(4312) & ChrW(4307) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4312) _
  438. & ChrW(4310) & ChrW(4317) & ChrW(4314) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) _
  439. & ChrW(32) & ChrW(4312) & ChrW(4327) & ChrW(4317) & ChrW(4321) & ChrW(32) & ChrW(4315) & ChrW(4317) & ChrW(4304) & ChrW(4335) _
  440. & ChrW(4312) & ChrW(4320) & ChrW(4312) & ChrW(4311) & ChrW(46) & ChrW(32)
  441. .Replacement.Text = ChrW(4321) & ChrW(4313) & ChrW(4317) & ChrW(4314) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4308) _
  442. & ChrW(4309) & ChrW(4304) & ChrW(4313) & ChrW(4323) & ChrW(4304) & ChrW(4330) & ChrW(4312) & ChrW(4317) & ChrW(32) & ChrW(4306) _
  443. & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4321) & ChrW(4309) & ChrW(4314) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4305) _
  444. & ChrW(4312) & ChrW(44) & ChrW(32) & ChrW(4320) & ChrW(4317) & ChrW(4315) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4312) _
  445. & ChrW(4330) & ChrW(32) & ChrW(4304) & ChrW(4334) & ChrW(4314) & ChrW(4317) & ChrW(4321) & ChrW(4304) & ChrW(4304) & ChrW(32) _
  446. & ChrW(4306) & ChrW(4310) & ChrW(4304) & ChrW(4321) & ChrW(4311) & ChrW(4304) & ChrW(4316) & ChrW(44) & ChrW(32) & ChrW(4304) _
  447. & ChrW(4323) & ChrW(4330) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4314) & ChrW(4304) & ChrW(4307) & ChrW(32) _
  448. & ChrW(4323) & ChrW(4316) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4312) & ChrW(4327) & ChrW(4317) & ChrW(4321) & ChrW(32) _
  449. & ChrW(4306) & ChrW(4310) & ChrW(4312) & ChrW(4307) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4312) & ChrW(4310) & ChrW(4317) _
  450. & ChrW(4314) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4315) _
  451. & ChrW(4317) & ChrW(4304) & ChrW(4335) & ChrW(4312) & ChrW(4320) & ChrW(4312) & ChrW(4311) & ChrW(46) & ChrW(32)
  452. .Forward = True
  453. .Wrap = wdFindContinue
  454. .Format = False
  455. .MatchCase = False
  456. .MatchWholeWord = False
  457. .MatchWildcards = False
  458. .MatchSoundsLike = False
  459. .MatchAllWordForms = False
  460. End With
  461. Selection.Find.Execute Replace:=wdReplaceAll
  462. BasicEdit2
  463.  
  464. Selection.GoTo wdGoToPage, wdGoToAbsolute, CurPage
  465. End Sub
  466. Sub BasicEdit2()
  467. With Selection.Find
  468. .Text = ChrW(4321) & ChrW(4312) & ChrW(4315) & ChrW(4304) & ChrW(4326) & ChrW(4314) & ChrW(4308) & ChrW(4308) & ChrW(4305) & ChrW(4312)
  469. .Replacement.Text = ChrW(4321) & ChrW(4312) & ChrW(4315) & ChrW(4304) & ChrW(4326) & ChrW(4314) & ChrW(4308)
  470. .Forward = True
  471. .Wrap = wdFindContinue
  472. .Format = False
  473. .MatchCase = False
  474. .MatchWholeWord = False
  475. .MatchWildcards = False
  476. .MatchSoundsLike = False
  477. .MatchAllWordForms = False
  478. End With
  479. Selection.Find.Execute Replace:=wdReplaceAll
  480. With Selection.Find
  481. .Text = "flight of steps"
  482. .Replacement.Text = "flight of stairs"
  483. .Forward = True
  484. .Wrap = wdFindContinue
  485. .Format = False
  486. .MatchCase = False
  487. .MatchWholeWord = False
  488. .MatchWildcards = False
  489. .MatchSoundsLike = False
  490. .MatchAllWordForms = False
  491. End With
  492. Selection.Find.Execute Replace:=wdReplaceAll
  493. With Selection.Find
  494. .Text = "glasses is"
  495. .Replacement.Text = "glasses are"
  496. .Forward = True
  497. .Wrap = wdFindContinue
  498. .Format = False
  499. .MatchCase = False
  500. .MatchWholeWord = False
  501. .MatchWildcards = False
  502. .MatchSoundsLike = False
  503. .MatchAllWordForms = False
  504. End With
  505. Selection.Find.Execute Replace:=wdReplaceAll
  506. With Selection.Find
  507. .Text = ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(4334) & ChrW(4308) & ChrW(4305) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4307) _
  508. & ChrW(4304) & ChrW(32) & ChrW(4307) & ChrW(4308) & ChrW(4320) & ChrW(4308) & ChrW(4324) & ChrW(4316) & ChrW(4308) & ChrW(4305) _
  509. & ChrW(4328) & ChrW(4312)
  510. .Replacement.Text = ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(4334) & ChrW(4308) & ChrW(4305) & ChrW(4321) & ChrW(4304) & ChrW(32) & ChrW(4307) _
  511. & ChrW(4304) & ChrW(32) & ChrW(4307) & ChrW(4308) & ChrW(4320) & ChrW(4308) & ChrW(4324) & ChrW(4316) & ChrW(4308) & ChrW(4305) _
  512. & ChrW(4328) & ChrW(4312)
  513. .Forward = True
  514. .Wrap = wdFindContinue
  515. .Format = False
  516. .MatchCase = False
  517. .MatchWholeWord = False
  518. .MatchWildcards = False
  519. .MatchSoundsLike = False
  520. .MatchAllWordForms = False
  521. End With
  522. Selection.Find.Execute Replace:=wdReplaceAll
  523. With Selection.Find
  524. .Text = ChrW(4315) & ChrW(4311) & ChrW(4314) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(4317) & ChrW(4305) & ChrW(4304) & ChrW(4328) _
  525. & ChrW(4312) & ChrW(32) & ChrW(4310) & ChrW(4317) & ChrW(4306) & ChrW(4304) & ChrW(4307) & ChrW(4304) & ChrW(4307)
  526. .Replacement.Text = ChrW(4310) & ChrW(4317) & ChrW(4306) & ChrW(4304) & ChrW(4307) & ChrW(4304) & ChrW(4307)
  527. .Forward = True
  528. .Wrap = wdFindContinue
  529. .Format = False
  530. .MatchCase = False
  531. .MatchWholeWord = False
  532. .MatchWildcards = False
  533. .MatchSoundsLike = False
  534. .MatchAllWordForms = False
  535. End With
  536. Selection.Find.Execute Replace:=wdReplaceAll
  537. With Selection.Find
  538. .Text = "Does Not"
  539. .Replacement.Text = "Does not"
  540. .Forward = True
  541. .Wrap = wdFindContinue
  542. .Format = False
  543. .MatchCase = True
  544. .MatchWholeWord = False
  545. .MatchWildcards = False
  546. .MatchSoundsLike = False
  547. .MatchAllWordForms = False
  548. End With
  549. Selection.Find.Execute Replace:=wdReplaceAll
  550. With Selection.Find
  551. .Text = ChrW(4306) & ChrW(4304) & ChrW(4316) & ChrW(4321) & ChrW(4304) & ChrW(4310) & ChrW(4326) & ChrW(4309) & ChrW(4320) & ChrW(4304) _
  552. & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(66) & ChrW(97) & ChrW(115) & ChrW(101) & ChrW(100)
  553. .Replacement.Text = ChrW(4306) & ChrW(4304) & ChrW(4316) & ChrW(4321) & ChrW(4304) & ChrW(4310) & ChrW(4326) & ChrW(4309) & ChrW(4320) & ChrW(4304) _
  554. & ChrW(46) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(66) & ChrW(97) & ChrW(115) & ChrW(101) & ChrW(100)
  555. .Forward = True
  556. .Wrap = wdFindContinue
  557. .Format = False
  558. .MatchCase = False
  559. .MatchWholeWord = False
  560. .MatchWildcards = False
  561. .MatchSoundsLike = False
  562. .MatchAllWordForms = False
  563. End With
  564. Selection.Find.Execute Replace:=wdReplaceAll
  565. With Selection.Find
  566. .Text = ChrW(4307) & ChrW(4304) & ChrW(4311) & ChrW(4309) & ChrW(4304) & ChrW(4314) & ChrW(4312) & ChrW(4308) & ChrW(4320) & ChrW(4308) _
  567. & ChrW(4305) & ChrW(4312) & ChrW(4311) & ChrW(44) & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4309) & ChrW(4308) _
  568. & ChrW(4310) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(4304)
  569. .Replacement.Text = ChrW(4307) & ChrW(4304) & ChrW(4311) & ChrW(4309) & ChrW(4304) & ChrW(4314) & ChrW(4312) & ChrW(4308) & ChrW(4320) & ChrW(4308) _
  570. & ChrW(4305) & ChrW(4312) & ChrW(4311) & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4309) & ChrW(4308) & ChrW(4310) _
  571. & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(4304)
  572. .Forward = True
  573. .Wrap = wdFindContinue
  574. .Format = False
  575. .MatchCase = False
  576. .MatchWholeWord = False
  577. .MatchWildcards = False
  578. .MatchSoundsLike = False
  579. .MatchAllWordForms = False
  580. End With
  581. Selection.Find.Execute Replace:=wdReplaceAll
  582. With Selection.Find
  583. .Text = ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(4334) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) _
  584. & ChrW(4307) & ChrW(4308) & ChrW(4320) & ChrW(4308) & ChrW(4324) & ChrW(4316) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) _
  585. & ChrW(32) & ChrW(4316) & ChrW(4304) & ChrW(4332) & ChrW(4312) & ChrW(4314) & ChrW(4328) & ChrW(4312)
  586. .Replacement.Text = ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(4334) & ChrW(4321) & ChrW(4304) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) _
  587. & ChrW(4307) & ChrW(4308) & ChrW(4320) & ChrW(4308) & ChrW(4324) & ChrW(4316) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) _
  588. & ChrW(32) & ChrW(4316) & ChrW(4304) & ChrW(4332) & ChrW(4312) & ChrW(4314) & ChrW(4328) & ChrW(4312)
  589. .Forward = True
  590. .Wrap = wdFindContinue
  591. .Format = False
  592. .MatchCase = False
  593. .MatchWholeWord = False
  594. .MatchWildcards = False
  595. .MatchSoundsLike = False
  596. .MatchAllWordForms = False
  597. End With
  598. Selection.Find.Execute Replace:=wdReplaceAll
  599. With Selection.Find
  600. .Text = ChrW(4320) & ChrW(4304) & ChrW(4322) & ChrW(4317) & ChrW(4315) & ChrW(32) & ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4328) & ChrW(4308) & ChrW(4308) & ChrW(4321) & ChrW(4304) & ChrW(4305) & ChrW(4304) & ChrW(4315) & ChrW(4308) & ChrW(4305) & ChrW(4304)
  601. .Replacement.Text = ChrW(4328) & ChrW(4308) & ChrW(4323) & ChrW(4321) & ChrW(4304) & ChrW(4305) & ChrW(4304) & ChrW(4315) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4315) & ChrW(4312) & ChrW(4310) & ChrW(4308) & ChrW(4310) & ChrW(4312)
  602. .Forward = True
  603. .Wrap = wdFindContinue
  604. .Format = False
  605. .MatchCase = False
  606. .MatchWholeWord = False
  607. .MatchWildcards = False
  608. .MatchSoundsLike = False
  609. .MatchAllWordForms = False
  610. End With
  611. Selection.Find.Execute Replace:=wdReplaceAll
  612. With Selection.Find
  613. .Text = ChrW(4307) & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4334) & ChrW(4308) & ChrW(4314) & ChrW(4304) & ChrW(4305) & ChrW(4304)
  614. .Replacement.Text = ChrW(4307) & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4334) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4304)
  615. .Forward = True
  616. .Wrap = wdFindContinue
  617. .Format = False
  618. .MatchCase = False
  619. .MatchWholeWord = False
  620. .MatchWildcards = False
  621. .MatchSoundsLike = False
  622. .MatchAllWordForms = False
  623. End With
  624. Selection.Find.Execute Replace:=wdReplaceAll
  625. With Selection.Find
  626. .Text = ChrW(4321) & ChrW(4313) & ChrW(4317) & ChrW(4314) & ChrW(4304) _
  627. & ChrW(32) & ChrW(4304) _
  628. & ChrW(4327) & ChrW(4309) & ChrW(4304) _
  629. & ChrW(4316) & ChrW(4312) & ChrW(4314) & ChrW(4312) & ChrW(4304) _
  630. & ChrW(32) & ChrW(4304) _
  631. & ChrW(4305) & ChrW(4317) & ChrW(4316) & ChrW(4308) & ChrW(4316) & ChrW(4322) & ChrW(4304) _
  632. & ChrW(4307) _
  633. & ChrW(44) & ChrW(32) & ChrW(4332) & ChrW(4327) & ChrW(4314) & ChrW(4312) & ChrW(4321) & ChrW(44) & ChrW(32) & ChrW(4306) _
  634. & ChrW(4304) _
  635. & ChrW(4310) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4307) _
  636. & ChrW(4304) _
  637. & ChrW(32) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4320) & ChrW(4317) & ChrW(4308) & ChrW(4316) & ChrW(4308) & ChrW(4320) & ChrW(4306) _
  638. & ChrW(4312) & ChrW(4312) & ChrW(4321) & ChrW(32)
  639. .Replacement.Text = ChrW(4321) & ChrW(4313) & ChrW(4317) & ChrW(4314) & ChrW(4304) _
  640. & ChrW(32) & ChrW(4304) _
  641. & ChrW(4327) & ChrW(4309) & ChrW(4304) _
  642. & ChrW(4316) & ChrW(4312) & ChrW(4314) & ChrW(4312) & ChrW(4304) _
  643. & ChrW(32) & ChrW(4304) _
  644. & ChrW(4305) & ChrW(4317) & ChrW(4316) & ChrW(4308) & ChrW(4316) & ChrW(4322) & ChrW(4304) _
  645. & ChrW(4307) _
  646. & ChrW(32) & ChrW(4332) & ChrW(4327) & ChrW(4314) & ChrW(4312) & ChrW(4321) & ChrW(44) & ChrW(32) & ChrW(4306) & ChrW(4304) _
  647. & ChrW(4310) & ChrW(4312) & ChrW(4321) & ChrW(4304) _
  648. & ChrW(32) & ChrW(4307) _
  649. & ChrW(4304) _
  650. & ChrW(32) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4320) & ChrW(4317) & ChrW(4308) & ChrW(4316) & ChrW(4308) & ChrW(4320) & ChrW(4306) & ChrW(4312) & ChrW(4312) & ChrW(4321) & ChrW(32)
  651. .Forward = True
  652. .Wrap = wdFindContinue
  653. .Format = False
  654. .MatchCase = False
  655. .MatchWholeWord = False
  656. .MatchWildcards = False
  657. .MatchSoundsLike = False
  658. .MatchAllWordForms = False
  659. End With
  660. Selection.Find.Execute Replace:=wdReplaceAll
  661. With Selection.Find
  662. .Text = "service 24"
  663. .Replacement.Text = "service for 24"
  664. .Forward = True
  665. .Wrap = wdFindContinue
  666. .Format = False
  667. .MatchCase = False
  668. .MatchWholeWord = False
  669. .MatchWildcards = False
  670. .MatchSoundsLike = False
  671. .MatchAllWordForms = False
  672. End With
  673. Selection.Find.Execute Replace:=wdReplaceAll
  674. With Selection.Find
  675. .Text = ChrW(4310) & ChrW(4317) & ChrW(4316) & ChrW(4304) & ChrW(4328) _
  676. & ChrW(4312) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(84) _
  677. & ChrW(104) & ChrW(101)
  678. .Replacement.Text = ChrW(4310) & ChrW(4317) & ChrW(4316) & ChrW(4304) & ChrW(4328) _
  679. & ChrW(4312) & ChrW(46) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(84) & ChrW(104) & ChrW(101)
  680. .Forward = True
  681. .Wrap = wdFindContinue
  682. .Format = False
  683. .MatchCase = False
  684. .MatchWholeWord = False
  685. .MatchWildcards = False
  686. .MatchSoundsLike = False
  687. .MatchAllWordForms = False
  688. End With
  689. Selection.Find.Execute Replace:=wdReplaceAll
  690. With Selection.Find
  691. .Text = ChrW(4336) & ChrW(4308) & ChrW(4320) & ChrW(4315) & ChrW(4308) & ChrW(4322) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(46) _
  692. & ChrW(32) & ChrW(76) & ChrW(101) & ChrW(100)
  693. .Replacement.Text = ChrW(4336) & ChrW(4308) & ChrW(4320) & ChrW(4315) & ChrW(4308) & ChrW(4322) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(46) _
  694. & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(76) & ChrW(101) _
  695. & ChrW(100)
  696. .Forward = True
  697. .Wrap = wdFindContinue
  698. .Format = False
  699. .MatchCase = False
  700. .MatchWholeWord = False
  701. .MatchWildcards = False
  702. .MatchSoundsLike = False
  703. .MatchAllWordForms = False
  704. End With
  705. Selection.Find.Execute Replace:=wdReplaceAll
  706. With Selection.Find
  707. .Text = "satisfy the 8 force requirements"
  708. .Replacement.Text = "satisfy the requirements"
  709. .Forward = True
  710. .Wrap = wdFindContinue
  711. .Format = False
  712. .MatchCase = False
  713. .MatchWholeWord = False
  714. .MatchWildcards = False
  715. .MatchSoundsLike = False
  716. .MatchAllWordForms = False
  717. End With
  718. Selection.Find.Execute Replace:=wdReplaceAll
  719. With Selection.Find
  720. .Text = ChrW(4323) & ChrW(4310) & ChrW(4323) & ChrW(4316) & ChrW(4309) _
  721. & ChrW(4308) & ChrW(4314) & ChrW(4321) & ChrW(4304) & ChrW(4327) _
  722. & ChrW(4317) & ChrW(4324) & ChrW(4304) & ChrW(4307)
  723. .Replacement.Text = ChrW(4323) & ChrW(4310) & ChrW(4320) & ChrW(4323) & ChrW(4316) _
  724. & ChrW(4309) & ChrW(4308) & ChrW(4314) & ChrW(4321) & ChrW(4304) _
  725. & ChrW(4327) & ChrW(4317) & ChrW(4324) & ChrW(4304) _
  726. & ChrW(4307)
  727. .Forward = True
  728. .Wrap = wdFindContinue
  729. .Format = False
  730. .MatchCase = False
  731. .MatchWholeWord = False
  732. .MatchWildcards = False
  733. .MatchSoundsLike = False
  734. .MatchAllWordForms = False
  735. End With
  736. Selection.Find.Execute Replace:=wdReplaceAll
  737. With Selection.Find
  738. .Text = ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4317) & ChrW(4305) _
  739. & ChrW(4304) & ChrW(45) & ChrW(4316) & ChrW(4308) & ChrW(4306) _
  740. & ChrW(4308) & ChrW(4305) _
  741. & ChrW(4317) & ChrW(4305) _
  742. & ChrW(4312) _
  743. & ChrW(4321)
  744. .Replacement.Text = ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4317) & ChrW(4305) _
  745. & ChrW(4304) & ChrW(45) & ChrW(4316) & ChrW(4304) & ChrW(4306) _
  746. & ChrW(4308) & ChrW(4305) _
  747. & ChrW(4317) & ChrW(4305) _
  748. & ChrW(4312) _
  749. & ChrW(4321)
  750. .Forward = True
  751. .Wrap = wdFindContinue
  752. .Format = False
  753. .MatchCase = False
  754. .MatchWholeWord = False
  755. .MatchWildcards = False
  756. .MatchSoundsLike = False
  757. .MatchAllWordForms = False
  758. End With
  759. With Selection.Find
  760. .Text = ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4328) & ChrW(4308) _
  761. & ChrW(4316) & ChrW(4308) _
  762. & ChrW(4305) & ChrW(4314) & ChrW(4317) _
  763. & ChrW(32) & ChrW(4316) & ChrW(4317) _
  764. & ChrW(4320) & ChrW(4315) & ChrW(4308) _
  765. & ChrW(4305) & ChrW(4311) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4332) _
  766. & ChrW(4308) _
  767. & ChrW(4321) & ChrW(4308) _
  768. & ChrW(4305) & ChrW(4311) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(110) & ChrW(115) & ChrW(116) _
  769. & ChrW(114) & ChrW(117) & ChrW(99) & ChrW(116) _
  770. & ChrW(105) _
  771. & ChrW(111) & ChrW(110) & ChrW(32) & ChrW(110) & ChrW(111) & ChrW(114) & ChrW(109) & ChrW(115) & ChrW(32) & ChrW(97) _
  772. & ChrW(110) & ChrW(100) & ChrW(32) & ChrW(114) & ChrW(117) & ChrW(108) & ChrW(101) & ChrW(115)
  773. .Forward = True
  774. .Wrap = wdFindContinue
  775. .Format = False
  776. .MatchCase = False
  777. .MatchWholeWord = False
  778. .MatchWildcards = False
  779. .MatchSoundsLike = False
  780. .MatchAllWordForms = False
  781. End With
  782.  
  783. If Selection.Find.Execute Then
  784.  
  785. Else
  786. With Selection.Find
  787. .Text = ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4308) & ChrW(4305) & ChrW(4314) & ChrW(4317) _
  788. & ChrW(32) & ChrW(4316) & ChrW(4317) & ChrW(4320) & ChrW(4315) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(4304) _
  789. & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4332) & ChrW(4308) & ChrW(4321) & ChrW(4308) & ChrW(4305) & ChrW(4312) _
  790. & ChrW(4321)
  791. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4308) & ChrW(4305) & ChrW(4314) & ChrW(4317) _
  792. & ChrW(32) & ChrW(4316) & ChrW(4317) & ChrW(4320) & ChrW(4315) & ChrW(4308) & ChrW(4305) & ChrW(4311) & ChrW(4304) & ChrW(4316) _
  793. & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4332) & ChrW(4308) & ChrW(4321) & ChrW(4308) & ChrW(4305) & ChrW(4311) _
  794. & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(110) & ChrW(115) & ChrW(116) _
  795. & ChrW(114) & ChrW(117) & ChrW(99) & ChrW(116) & ChrW(105) & ChrW(111) & ChrW(110) & ChrW(32) & ChrW(110) & ChrW(111) _
  796. & ChrW(114) & ChrW(109) & ChrW(115) & ChrW(32) & ChrW(97) & ChrW(110) & ChrW(100) & ChrW(32) & ChrW(114) & ChrW(117) _
  797. & ChrW(108) & ChrW(101) & ChrW(115)
  798. .Forward = True
  799. .Wrap = wdFindContinue
  800. .Format = False
  801. .MatchCase = False
  802. .MatchWholeWord = False
  803. .MatchWildcards = False
  804. .MatchSoundsLike = False
  805. .MatchAllWordForms = False
  806. End With
  807. Selection.Find.Execute Replace:=wdReplaceAll
  808.  
  809. End If
  810. With Selection.Find
  811. .Text = "has not EXIT"
  812. .Replacement.Text = "has no EXIT"
  813. .Forward = True
  814. .Wrap = wdFindContinue
  815. .Format = False
  816. .MatchCase = True
  817. .MatchWholeWord = False
  818. .MatchWildcards = False
  819. .MatchSoundsLike = False
  820. .MatchAllWordForms = False
  821. End With
  822. Selection.Find.Execute Replace:=wdReplaceAll
  823. With Selection.Find
  824. .Text = "has not equipped"
  825. .Replacement.Text = "is not equipped"
  826. .Forward = True
  827. .Wrap = wdFindContinue
  828. .Format = False
  829. .MatchCase = True
  830. .MatchWholeWord = False
  831. .MatchWildcards = False
  832. .MatchSoundsLike = False
  833. .MatchAllWordForms = False
  834. End With
  835. Selection.Find.Execute Replace:=wdReplaceAll
  836. With Selection.Find
  837. .Text = ChrW(44) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(69) & ChrW(88) & ChrW(73) & ChrW(84)
  838. .Replacement.Text = ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(69) _
  839. & ChrW(88) & ChrW(73) & ChrW(84)
  840. .Forward = True
  841. .Wrap = wdFindContinue
  842. .Format = False
  843. .MatchCase = True
  844. .MatchWholeWord = False
  845. .MatchWildcards = False
  846. .MatchSoundsLike = False
  847. .MatchAllWordForms = False
  848. End With
  849. Selection.Find.Execute Replace:=wdReplaceAll
  850. With Selection.Find
  851. .Text = ChrW(4328) & ChrW(4308) & ChrW(4321) & ChrW(4304) & ChrW(4305) _
  852. & ChrW(4304) & ChrW(4315) & ChrW(4312) & ChrW(4321) & ChrW(4312) & ChrW(32) & ChrW(4314) & ChrW(4308) & ChrW(4321) & ChrW(4309) _
  853. & ChrW(4312) & ChrW(4311) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4326) & ChrW(4308) & ChrW(4305) _
  854. & ChrW(4309) _
  855. & ChrW(4312) & ChrW(4311) & ChrW(59)
  856. .Replacement.Text = ChrW(4328) & ChrW(4308) & ChrW(4321) & ChrW(4304) & ChrW(4305) _
  857. & ChrW(4304) & ChrW(4315) & ChrW(4312) & ChrW(4321) & ChrW(4312) & ChrW(32) & ChrW(4314) & ChrW(4308) & ChrW(4321) & ChrW(4309) _
  858. & ChrW(4312) & ChrW(4311) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4326) & ChrW(4308) & ChrW(4305) _
  859. & ChrW(4309) _
  860. & ChrW(4312) & ChrW(4311) & ChrW(46)
  861. .Forward = True
  862. .Wrap = wdFindContinue
  863. .Format = False
  864. .MatchCase = False
  865. .MatchWholeWord = False
  866. .MatchWildcards = False
  867. .MatchSoundsLike = False
  868. .MatchAllWordForms = False
  869. End With
  870. Selection.Find.Execute Replace:=wdReplaceAll
  871. With Selection.Find
  872. .Text = "; |"
  873. .Replacement.Text = ". |"
  874. .Forward = True
  875. .Wrap = wdFindContinue
  876. .Format = False
  877. .MatchCase = False
  878. .MatchWholeWord = False
  879. .MatchWildcards = False
  880. .MatchSoundsLike = False
  881. .MatchAllWordForms = False
  882. End With
  883. Selection.Find.Execute Replace:=wdReplaceAll
  884. With Selection.Find
  885. .Text = ChrW(4321) & ChrW(4320) & ChrW(4308) & ChrW(4304) & ChrW(4305) _
  886. & ChrW(4312) & ChrW(4314) & ChrW(4312) & ChrW(4322) & ChrW(4304) & ChrW(4330) & ChrW(4312) & ChrW(4317) & ChrW(4304)
  887. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4304) & ChrW(4305) & ChrW(4312) & ChrW(4314) & ChrW(4312) & ChrW(4322) _
  888. & ChrW(4304) & ChrW(4330) & ChrW(4312) & ChrW(4317) & ChrW(4304)
  889. .Forward = True
  890. .Wrap = wdFindContinue
  891. .Format = False
  892. .MatchCase = False
  893. .MatchWholeWord = False
  894. .MatchWildcards = False
  895. .MatchSoundsLike = False
  896. .MatchAllWordForms = False
  897. End With
  898. Selection.Find.Execute Replace:=wdReplaceAll
  899. With Selection.Find
  900. .Text = ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4304) & ChrW(4325) _
  901. & ChrW(4309) & ChrW(4321) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(110) & ChrW(111) & ChrW(116) & ChrW(32) & ChrW(101) _
  902. & ChrW(120) & ChrW(105) & ChrW(115) & ChrW(116)
  903. .Replacement.Text = ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4304) & ChrW(4325) _
  904. & ChrW(4309) & ChrW(4321) & ChrW(46) & ChrW(32) & ChrW(124) _
  905. & ChrW(32) & ChrW(68) & ChrW(111) & ChrW(101) & ChrW(115) _
  906. & ChrW(32) & ChrW(110) & ChrW(111) & ChrW(116) & ChrW(32) & ChrW(101) & ChrW(120) & ChrW(105) & ChrW(115) _
  907. & ChrW(116) & ChrW(46)
  908. .Forward = True
  909. .Wrap = wdFindContinue
  910. .Format = False
  911. .MatchCase = False
  912. .MatchWholeWord = False
  913. .MatchWildcards = False
  914. .MatchSoundsLike = False
  915. .MatchAllWordForms = False
  916. End With
  917. Selection.Find.Execute Replace:=wdReplaceAll
  918. With Selection.Find
  919. .Text = ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4304) & ChrW(4325) _
  920. & ChrW(4309) & ChrW(4321) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(68) & ChrW(111) & ChrW(101) & ChrW(115) & ChrW(32) & ChrW(110) & ChrW(111) & ChrW(116) & ChrW(32) & ChrW(101) & ChrW(120) & ChrW(105) & ChrW(115) & ChrW(116)
  921. .Replacement.Text = ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4304) & ChrW(4325) _
  922. & ChrW(4309) & ChrW(4321) & ChrW(46) & ChrW(32) & ChrW(124) _
  923. & ChrW(32) & ChrW(68) & ChrW(111) & ChrW(101) & ChrW(115) _
  924. & ChrW(32) & ChrW(110) & ChrW(111) & ChrW(116) & ChrW(32) & ChrW(101) & ChrW(120) & ChrW(105) & ChrW(115) _
  925. & ChrW(116) & ChrW(46)
  926. .Forward = True
  927. .Wrap = wdFindContinue
  928. .Format = False
  929. .MatchCase = False
  930. .MatchWholeWord = False
  931. .MatchWildcards = False
  932. .MatchSoundsLike = False
  933. .MatchAllWordForms = False
  934. End With
  935. Selection.Find.Execute Replace:=wdReplaceAll
  936. With Selection.Find
  937. .Text = ChrW(4307) & ChrW(4304) & ChrW(4315) & ChrW(4312) & ChrW(4332) _
  938. & ChrW(4308) & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(4304) & ChrW(4325) & ChrW(4309) & ChrW(4321) & ChrW(32) & ChrW(4315) & ChrW(4334) & ChrW(4317) & ChrW(4314) & ChrW(4317) & ChrW(4307) & ChrW(32) & ChrW(4315) & ChrW(4311) & ChrW(4304) & ChrW(4309) & ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4324) & ChrW(4304) & ChrW(4320) & ChrW(4321) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(71) & ChrW(114) & ChrW(111) & ChrW(117) & ChrW(110) _
  939. & ChrW(100) & ChrW(105) & ChrW(110) _
  940. & ChrW(103) & ChrW(32) & ChrW(104) & ChrW(97) & ChrW(115) & ChrW(32) & ChrW(111) & ChrW(110) _
  941. & ChrW(108) & ChrW(121) & ChrW(32) & ChrW(116) _
  942. & ChrW(104) & ChrW(101) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(105) & ChrW(110) _
  943. & ChrW(32) & ChrW(112) & ChrW(111) & ChrW(119) & ChrW(101) & ChrW(114) & ChrW(32) & ChrW(100) & ChrW(105) & ChrW(115) & ChrW(116) _
  944. & ChrW(114) & ChrW(105) & ChrW(98) & ChrW(117) & ChrW(116) _
  945. & ChrW(105) & ChrW(111) & ChrW(110) _
  946. & ChrW(32) & ChrW(98) & ChrW(111) & ChrW(97) & ChrW(114) & ChrW(100)
  947. .Replacement.Text = ChrW(4307) & ChrW(4304) & ChrW(4315) & ChrW(4312) & ChrW(4332) _
  948. & ChrW(4308) & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(4304) & ChrW(4325) & ChrW(4309) & ChrW(4321) & ChrW(32) & ChrW(4315) & ChrW(4334) & ChrW(4317) & ChrW(4314) & ChrW(4317) & ChrW(4307) & ChrW(32) & ChrW(4315) & ChrW(4311) & ChrW(4304) & ChrW(4309) & ChrW(4304) & ChrW(4320) & ChrW(32) & ChrW(4324) & ChrW(4304) & ChrW(4320) & ChrW(4321) & ChrW(46) & ChrW(32) & ChrW(124) _
  949. & ChrW(32) & ChrW(79) & ChrW(110) & ChrW(108) & ChrW(121) _
  950. & ChrW(32) & ChrW(116) & ChrW(104) & ChrW(101) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(32) & ChrW(112) & ChrW(111) & ChrW(119) & ChrW(101) & ChrW(114) _
  951. & ChrW(32) & ChrW(98) & ChrW(111) & ChrW(97) & ChrW(114) _
  952. & ChrW(100) & ChrW(32) & ChrW(105) & ChrW(115) & ChrW(32) & ChrW(103) & ChrW(114) _
  953. & ChrW(111) & ChrW(117) & ChrW(110) & ChrW(100) & ChrW(101) & ChrW(100) & ChrW(46)
  954. .Forward = True
  955. .Wrap = wdFindContinue
  956. .Format = False
  957. .MatchCase = False
  958. .MatchWholeWord = False
  959. .MatchWildcards = False
  960. .MatchSoundsLike = False
  961. .MatchAllWordForms = False
  962. End With
  963. Selection.Find.Execute Replace:=wdReplaceAll
  964.  
  965. With Selection.Find
  966. .Text = "Part of The"
  967. .Replacement.Text = "Part of the"
  968. .Forward = True
  969. .Wrap = wdFindContinue
  970. .Format = False
  971. .MatchCase = True
  972. .MatchWholeWord = False
  973. .MatchWildcards = False
  974. .MatchSoundsLike = False
  975. .MatchAllWordForms = False
  976. End With
  977. Selection.Find.Execute Replace:=wdReplaceAll
  978. With Selection.Find
  979. .Text = ChrW(4318) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) _
  980. & ChrW(4312) & ChrW(4321) & ChrW(4304) & ChrW(4311) & ChrW(4309) _
  981. & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(65) & ChrW(100) & ChrW(97) & ChrW(112) & ChrW(116)
  982. .Replacement.Text = ChrW(4318) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) _
  983. & ChrW(4312) & ChrW(4321) & ChrW(4304) & ChrW(4311) & ChrW(4309) _
  984. & ChrW(4312) & ChrW(4321) & ChrW(46) & ChrW(32) & ChrW(124) _
  985. & ChrW(32) & ChrW(65) & ChrW(100) & ChrW(97) & ChrW(112) _
  986. & ChrW(116)
  987. .Forward = True
  988. .Wrap = wdFindContinue
  989. .Format = False
  990. .MatchCase = False
  991. .MatchWholeWord = False
  992. .MatchWildcards = False
  993. .MatchSoundsLike = False
  994. .MatchAllWordForms = False
  995. End With
  996. Selection.Find.Execute Replace:=wdReplaceAll
  997. With Selection.Find
  998. .Text = ChrW(4315) & ChrW(4317) & ChrW(4327) & ChrW(4309) & ChrW(4304) _
  999. & ChrW(4316) & ChrW(4304) _
  1000. & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(69) & ChrW(109) & ChrW(101) & ChrW(114) & ChrW(103) _
  1001. & ChrW(101) & ChrW(110) & ChrW(99) & ChrW(121)
  1002. .Replacement.Text = ChrW(4315) & ChrW(4317) & ChrW(4327) & ChrW(4309) & ChrW(4304) _
  1003. & ChrW(4316) & ChrW(4304) _
  1004. & ChrW(46) & ChrW(32) & ChrW(124) _
  1005. & ChrW(32) & ChrW(69) & ChrW(109) & ChrW(101) & ChrW(114) _
  1006. & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(99) & ChrW(121)
  1007. .Forward = True
  1008. .Wrap = wdFindContinue
  1009. .Format = False
  1010. .MatchCase = False
  1011. .MatchWholeWord = False
  1012. .MatchWildcards = False
  1013. .MatchSoundsLike = False
  1014. .MatchAllWordForms = False
  1015. End With
  1016. Selection.Find.Execute Replace:=wdReplaceAll
  1017. With Selection.Find
  1018. .Text = "opperate"
  1019. .Replacement.Text = "operate"
  1020. .Forward = True
  1021. .Wrap = wdFindContinue
  1022. .Format = False
  1023. .MatchCase = False
  1024. .MatchWholeWord = False
  1025. .MatchWildcards = False
  1026. .MatchSoundsLike = False
  1027. .MatchAllWordForms = False
  1028. End With
  1029. Selection.Find.Execute Replace:=wdReplaceAll
  1030. End Sub
  1031. Sub ChangeExec()
  1032. '
  1033. ' ChangeExec Macro
  1034. '
  1035. '
  1036. With Selection.Find
  1037. .Text = ChrW(4321) & ChrW(4304) & ChrW(4313) & ChrW(4323) & ChrW(4311) _
  1038. & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) _
  1039. & ChrW(32) & ChrW(4324) & ChrW(4304) & ChrW(4320) & ChrW(4311) _
  1040. & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4313) & ChrW(4309) _
  1041. & ChrW(46) & ChrW(4315) & ChrW(41) & ChrW(32) & ChrW(124) _
  1042. & ChrW(32) & ChrW(80) & ChrW(114) & ChrW(111) & ChrW(112) _
  1043. & ChrW(101) & ChrW(114) & ChrW(116) & ChrW(121) & ChrW(32) _
  1044. & ChrW(65) & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(32) _
  1045. & ChrW(40) & ChrW(115) & ChrW(113) & ChrW(46) & ChrW(109) _
  1046. & ChrW(41) & ChrW(32)
  1047. .Replacement.Text = ChrW(4316) & ChrW(4304) & ChrW(4313) & ChrW(4309) & ChrW(4308) _
  1048. & ChrW(4311) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4324) _
  1049. & ChrW(4304) & ChrW(4320) & ChrW(4311) & ChrW(4317) & ChrW(4305) _
  1050. & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4313) & ChrW(4309) _
  1051. & ChrW(46) & ChrW(4315) & ChrW(41) & ChrW(32) & ChrW(124) _
  1052. & ChrW(32) & ChrW(80) & ChrW(114) & ChrW(111) & ChrW(112) _
  1053. & ChrW(101) & ChrW(114) & ChrW(116) & ChrW(121) & ChrW(32) _
  1054. & ChrW(65) & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(32) _
  1055. & ChrW(40) & ChrW(115) & ChrW(113) & ChrW(46) & ChrW(109) _
  1056. & ChrW(41) & ChrW(32)
  1057. .Forward = True
  1058. .Wrap = wdFindContinue
  1059. .Format = False
  1060. .MatchCase = False
  1061. .MatchWholeWord = False
  1062. .MatchWildcards = False
  1063. .MatchSoundsLike = False
  1064. .MatchAllWordForms = False
  1065. End With
  1066. Selection.Find.Execute Replace:=wdReplaceAll
  1067. With Selection.Find
  1068. .Text = ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4317) & ChrW(4305) _
  1069. & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) & ChrW(4320) _
  1070. & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4324) _
  1071. & ChrW(4304) & ChrW(4320) & ChrW(4311) & ChrW(4312) & ChrW(32) _
  1072. & ChrW(40) & ChrW(4313) & ChrW(4309) & ChrW(46) & ChrW(4315) _
  1073. & ChrW(41) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(66) _
  1074. & ChrW(117) & ChrW(105) & ChrW(108) & ChrW(100) & ChrW(105) _
  1075. & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(71) & ChrW(114) _
  1076. & ChrW(111) & ChrW(115) & ChrW(115) & ChrW(32) & ChrW(65) _
  1077. & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(40) & ChrW(115) _
  1078. & ChrW(113) & ChrW(46) & ChrW(109) & ChrW(41)
  1079. .Replacement.Text = ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4317) & ChrW(4305) _
  1080. & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) & ChrW(4304) _
  1081. & ChrW(4308) & ChrW(4320) & ChrW(4311) & ChrW(4317) & ChrW(32) _
  1082. & ChrW(4324) & ChrW(4304) & ChrW(4320) & ChrW(4311) & ChrW(4317) _
  1083. & ChrW(4305) & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4313) _
  1084. & ChrW(4309) & ChrW(46) & ChrW(4315) & ChrW(41) & ChrW(32) _
  1085. & ChrW(124) & ChrW(32) & ChrW(66) & ChrW(117) & ChrW(105) _
  1086. & ChrW(108) & ChrW(100) & ChrW(105) & ChrW(110) & ChrW(103) _
  1087. & ChrW(32) & ChrW(71) & ChrW(114) & ChrW(111) & ChrW(115) _
  1088. & ChrW(115) & ChrW(32) & ChrW(65) & ChrW(114) & ChrW(101) _
  1089. & ChrW(97) & ChrW(40) & ChrW(115) & ChrW(113) & ChrW(46) _
  1090. & ChrW(109) & ChrW(41)
  1091. .Forward = True
  1092. .Wrap = wdFindContinue
  1093. .Format = False
  1094. .MatchCase = False
  1095. .MatchWholeWord = False
  1096. .MatchWildcards = False
  1097. .MatchSoundsLike = False
  1098. .MatchAllWordForms = False
  1099. End With
  1100. Selection.Find.Execute Replace:=wdReplaceAll
  1101. With Selection.Find
  1102. .Text = ChrW(4315) & ChrW(4317) & ChrW(4321) & ChrW(4332) & ChrW(4304) _
  1103. & ChrW(4309) & ChrW(4314) & ChrW(4308) & ChrW(4311) & ChrW(4304) _
  1104. & ChrW(32) & ChrW(4322) & ChrW(4308) & ChrW(4309) & ChrW(4304) _
  1105. & ChrW(4307) & ChrW(4317) & ChrW(4305) & ChrW(4304) & ChrW(124) _
  1106. & ChrW(83) & ChrW(116) & ChrW(117) & ChrW(100) & ChrW(101) _
  1107. & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(67) & ChrW(97) _
  1108. & ChrW(112) & ChrW(97) & ChrW(99) & ChrW(105) & ChrW(105) _
  1109. & ChrW(116) & ChrW(121) & ChrW(32)
  1110. .Replacement.Text = ChrW(4315) & ChrW(4317) & ChrW(4321) & ChrW(4332) & ChrW(4304) _
  1111. & ChrW(4309) & ChrW(4314) & ChrW(4308) & ChrW(4311) & ChrW(4304) _
  1112. & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4318) & ChrW(4320) _
  1113. & ChrW(4317) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4317) _
  1114. & ChrW(32) & ChrW(4322) & ChrW(4308) & ChrW(4309) & ChrW(4304) _
  1115. & ChrW(4307) & ChrW(4317) & ChrW(4305) & ChrW(4304) & ChrW(32) _
  1116. & ChrW(124) & ChrW(32) & ChrW(83) & ChrW(116) & ChrW(117) _
  1117. & ChrW(100) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1118. & ChrW(67) & ChrW(97) & ChrW(112) & ChrW(97) & ChrW(99) _
  1119. & ChrW(105) & ChrW(116) & ChrW(121) & ChrW(32) & ChrW(98) _
  1120. & ChrW(121) & ChrW(32) & ChrW(111) & ChrW(114) & ChrW(105) _
  1121. & ChrW(103) & ChrW(105) & ChrW(110) & ChrW(97) & ChrW(108) _
  1122. & ChrW(32) & ChrW(112) & ChrW(114) & ChrW(111) & ChrW(106) _
  1123. & ChrW(101) & ChrW(99) & ChrW(116)
  1124. .Forward = True
  1125. .Wrap = wdFindContinue
  1126. .Format = False
  1127. .MatchCase = False
  1128. .MatchWholeWord = False
  1129. .MatchWildcards = False
  1130. .MatchSoundsLike = False
  1131. .MatchAllWordForms = False
  1132. End With
  1133. Selection.Find.Execute Replace:=wdReplaceAll
  1134. With Selection.Find
  1135. .Text = ChrW(4315) & ChrW(4317) & ChrW(4321) & ChrW(4332) & ChrW(4304) _
  1136. & ChrW(4309) & ChrW(4314) & ChrW(4308) & ChrW(4311) & ChrW(4304) _
  1137. & ChrW(32) & ChrW(4320) & ChrW(4304) & ChrW(4317) & ChrW(4307) _
  1138. & ChrW(4308) & ChrW(4316) & ChrW(4317) & ChrW(4305) & ChrW(4304) _
  1139. & ChrW(124) & ChrW(67) & ChrW(117) & ChrW(114) & ChrW(114) _
  1140. & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(69) _
  1141. & ChrW(110) & ChrW(114) & ChrW(111) & ChrW(108) & ChrW(108) _
  1142. & ChrW(109) & ChrW(101) & ChrW(110) & ChrW(116)
  1143. .Replacement.Text = ChrW(4315) & ChrW(4317) & ChrW(4321) & ChrW(4332) & ChrW(4304) _
  1144. & ChrW(4309) & ChrW(4314) & ChrW(4308) & ChrW(4311) & ChrW(4304) _
  1145. & ChrW(32) & ChrW(4324) & ChrW(4304) & ChrW(4325) & ChrW(4322) _
  1146. & ChrW(4312) & ChrW(4323) & ChrW(4320) & ChrW(4312) & ChrW(32) _
  1147. & ChrW(4320) & ChrW(4304) & ChrW(4317) & ChrW(4307) & ChrW(4308) _
  1148. & ChrW(4316) & ChrW(4317) & ChrW(4305) & ChrW(4304) & ChrW(32) _
  1149. & ChrW(124) & ChrW(32) & ChrW(67) & ChrW(117) & ChrW(114) _
  1150. & ChrW(114) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1151. & ChrW(69) & ChrW(110) & ChrW(114) & ChrW(111) & ChrW(108) _
  1152. & ChrW(108) & ChrW(109) & ChrW(101) & ChrW(110) & ChrW(116)
  1153. .Forward = True
  1154. .Wrap = wdFindContinue
  1155. .Format = False
  1156. .MatchCase = False
  1157. .MatchWholeWord = False
  1158. .MatchWildcards = False
  1159. .MatchSoundsLike = False
  1160. .MatchAllWordForms = False
  1161. End With
  1162. Selection.Find.Execute Replace:=wdReplaceAll
  1163. With Selection.Find
  1164. .Text = ChrW(4316) & ChrW(4308) & ChrW(4321) & ChrW(4322) & ChrW(4312) _
  1165. & ChrW(4321) & ChrW(32) & ChrW(4320) & ChrW(4312) & ChrW(4321) _
  1166. & ChrW(4313) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4304) _
  1167. & ChrW(4320) & ChrW(4321) & ChrW(4308) & ChrW(4305) & ChrW(4317) _
  1168. & ChrW(4305) & ChrW(4304) & ChrW(124) & ChrW(77) & ChrW(111) _
  1169. & ChrW(105) & ChrW(115) & ChrW(116) & ChrW(117) & ChrW(114) _
  1170. & ChrW(101) & ChrW(32) & ChrW(72) & ChrW(97) & ChrW(122) _
  1171. & ChrW(97) & ChrW(114) & ChrW(100) & ChrW(32) & ChrW(80) _
  1172. & ChrW(114) & ChrW(101) & ChrW(115) & ChrW(101) & ChrW(110) _
  1173. & ChrW(116) & ChrW(32)
  1174. .Replacement.Text = ChrW(4316) & ChrW(4308) & ChrW(4321) & ChrW(4322) & ChrW(4312) _
  1175. & ChrW(4321) & ChrW(32) & ChrW(4304) & ChrW(4320) & ChrW(4321) _
  1176. & ChrW(4308) & ChrW(4305) & ChrW(4317) & ChrW(4305) & ChrW(4304) _
  1177. & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(68) & ChrW(97) _
  1178. & ChrW(109) & ChrW(112) & ChrW(110) & ChrW(101) & ChrW(115) _
  1179. & ChrW(115)
  1180. .Forward = True
  1181. .Wrap = wdFindContinue
  1182. .Format = False
  1183. .MatchCase = False
  1184. .MatchWholeWord = False
  1185. .MatchWildcards = False
  1186. .MatchSoundsLike = False
  1187. .MatchAllWordForms = False
  1188. End With
  1189. Selection.Find.Execute Replace:=wdReplaceAll
  1190. With Selection.Find
  1191. .Text = ChrW(4321) & ChrW(4304) & ChrW(4321) & ChrW(4332) & ChrW(4320) _
  1192. & ChrW(4304) & ChrW(4324) & ChrW(4317) & ChrW(4307) & ChrW(32) _
  1193. & ChrW(4329) & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4322) _
  1194. & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4308) _
  1195. & ChrW(4314) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) _
  1196. & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) _
  1197. & ChrW(4304) & ChrW(32) & ChrW(4320) & ChrW(4308) & ChrW(4310) _
  1198. & ChrW(4312) & ChrW(4323) & ChrW(4315) & ChrW(4308) & ChrW(32) _
  1199. & ChrW(40) & ChrW(48) & ChrW(45) & ChrW(49) & ChrW(32) _
  1200. & ChrW(4332) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(41) _
  1201. & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(85) & ChrW(114) _
  1202. & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1203. & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) _
  1204. & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(83) & ChrW(99) _
  1205. & ChrW(111) & ChrW(112) & ChrW(101) & ChrW(32) & ChrW(83) _
  1206. & ChrW(117) & ChrW(109) & ChrW(109) & ChrW(97) & ChrW(114) _
  1207. & ChrW(121) & ChrW(32) & ChrW(40) & ChrW(48) & ChrW(45) _
  1208. & ChrW(49) & ChrW(121) & ChrW(101) & ChrW(97) & ChrW(114) _
  1209. & ChrW(115) & ChrW(41) & ChrW(124)
  1210. .Replacement.Text = ChrW(4320) & ChrW(4308) & ChrW(4313) & ChrW(4317) & ChrW(4315) _
  1211. & ChrW(4308) & ChrW(4316) & ChrW(4307) & ChrW(4312) & ChrW(4320) _
  1212. & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) _
  1213. & ChrW(32) & ChrW(4306) & ChrW(4304) & ChrW(4307) & ChrW(4304) _
  1214. & ChrW(4323) & ChrW(4307) & ChrW(4308) & ChrW(4305) & ChrW(4308) _
  1215. & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4321) & ChrW(4304) _
  1216. & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) _
  1217. & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(32) & ChrW(40) _
  1218. & ChrW(48) & ChrW(45) & ChrW(49) & ChrW(32) & ChrW(4332) _
  1219. & ChrW(4314) & ChrW(4304) & ChrW(4315) & ChrW(4307) & ChrW(4308) _
  1220. & ChrW(41) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(82) _
  1221. & ChrW(101) & ChrW(99) & ChrW(111) & ChrW(109) & ChrW(109) _
  1222. & ChrW(101) & ChrW(110) & ChrW(100) & ChrW(101) & ChrW(100) _
  1223. & ChrW(32) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) _
  1224. & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(82) & ChrW(101) _
  1225. & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) _
  1226. & ChrW(32) & ChrW(83) & ChrW(117) & ChrW(109) & ChrW(109) _
  1227. & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) & ChrW(40) _
  1228. & ChrW(48) & ChrW(45) & ChrW(49) & ChrW(32) & ChrW(121) _
  1229. & ChrW(101) & ChrW(97) & ChrW(114) & ChrW(41) & ChrW(32)
  1230. .Forward = True
  1231. .Wrap = wdFindContinue
  1232. .Format = False
  1233. .MatchCase = False
  1234. .MatchWholeWord = False
  1235. .MatchWildcards = False
  1236. .MatchSoundsLike = False
  1237. .MatchAllWordForms = False
  1238. End With
  1239. Selection.Find.Execute Replace:=wdReplaceAll
  1240. With Selection.Find
  1241. .Text = ChrW(4304) & ChrW(4323) & ChrW(4330) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) & ChrW(4312) _
  1242. & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4308) & ChrW(4305) _
  1243. & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4318) & ChrW(4312) & ChrW(4320) & ChrW(4309) & ChrW(4308) & ChrW(4314) & ChrW(4304) _
  1244. & ChrW(4307) & ChrW(4312) & ChrW(32) & ChrW(4305) & ChrW(4312) & ChrW(4323) & ChrW(4335) & ChrW(4308) & ChrW(4322) & ChrW(4312) _
  1245. & ChrW(40) & ChrW(4314) & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(88) & ChrW(93) _
  1246. & ChrW(32) & ChrW(61) & ChrW(4330) & ChrW(4307) & ChrW(4317) & ChrW(4315) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) _
  1247. & ChrW(4304) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) _
  1248. & ChrW(32) & ChrW(4304) & ChrW(4323) & ChrW(4330) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) _
  1249. & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) & ChrW(4304) _
  1250. & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4335) & ChrW(4310) & ChrW(4308) & ChrW(124) & ChrW(32) & ChrW(78) _
  1251. & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1252. & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(80) & ChrW(114) _
  1253. & ChrW(101) & ChrW(108) & ChrW(105) & ChrW(109) & ChrW(105) & ChrW(110) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) _
  1254. & ChrW(66) & ChrW(117) & ChrW(100) & ChrW(103) & ChrW(101) & ChrW(116) & ChrW(40) & ChrW(71) & ChrW(69) & ChrW(76) _
  1255. & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(88) & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(69) & ChrW(114) & ChrW(114) _
  1256. & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(103) & ChrW(105) & ChrW(110) & ChrW(40) _
  1257. & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) & ChrW(78) & ChrW(111) _
  1258. & ChrW(110) & ChrW(45) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(82) _
  1259. & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(115) _
  1260. & ChrW(116)
  1261. .Replacement.Text = ChrW(4306) & ChrW(4304) & ChrW(4307) & ChrW(4304) & ChrW(4323) & ChrW(4307) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) _
  1262. & ChrW(4312) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4308) _
  1263. & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4318) & ChrW(4312) & ChrW(4320) & ChrW(4309) & ChrW(4308) & ChrW(4314) _
  1264. & ChrW(4304) & ChrW(4307) & ChrW(4312) & ChrW(32) & ChrW(4305) & ChrW(4312) & ChrW(4323) & ChrW(4335) & ChrW(4308) & ChrW(4322) _
  1265. & ChrW(4312) & ChrW(40) & ChrW(4314) & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(88) _
  1266. & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(32) & ChrW(4330) & ChrW(4307) & ChrW(4317) & ChrW(4315) & ChrW(4312) & ChrW(4314) _
  1267. & ChrW(4308) & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) _
  1268. & ChrW(32) & ChrW(120) & ChrW(32) & ChrW(4306) & ChrW(4304) & ChrW(4307) & ChrW(4304) & ChrW(4323) & ChrW(4307) & ChrW(4308) _
  1269. & ChrW(4305) & ChrW(4308) & ChrW(4314) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) _
  1270. & ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4335) & ChrW(4310) & ChrW(4308) _
  1271. & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1272. & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(80) & ChrW(114) _
  1273. & ChrW(101) & ChrW(108) & ChrW(105) & ChrW(109) & ChrW(105) & ChrW(110) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) _
  1274. & ChrW(66) & ChrW(117) & ChrW(100) & ChrW(103) & ChrW(101) & ChrW(116) & ChrW(32) & ChrW(40) & ChrW(71) & ChrW(69) _
  1275. & ChrW(76) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(88) & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(69) & ChrW(114) _
  1276. & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(103) & ChrW(105) & ChrW(110) _
  1277. & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(120) & ChrW(32) _
  1278. & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) _
  1279. & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(115) & ChrW(116)
  1280. .Forward = True
  1281. .Wrap = wdFindContinue
  1282. .Format = False
  1283. .MatchCase = False
  1284. .MatchWholeWord = False
  1285. .MatchWildcards = False
  1286. .MatchSoundsLike = False
  1287. .MatchAllWordForms = False
  1288. End With
  1289. Selection.Find.Execute Replace:=wdReplaceAll
  1290. With Selection.Find
  1291. .Text = ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4320) & ChrW(4317) & ChrW(4317) & ChrW(4305) & ChrW(4304) _
  1292. & ChrW(124) & ChrW(80) & ChrW(111) & ChrW(119) & ChrW(101) & ChrW(114) & ChrW(32) & ChrW(115) & ChrW(117) & ChrW(112) _
  1293. & ChrW(112) & ChrW(108) & ChrW(121)
  1294. .Replacement.Text = ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4320) & ChrW(4317) & ChrW(32) & ChrW(4321) & ChrW(4312) _
  1295. & ChrW(4321) & ChrW(4322) & ChrW(4308) & ChrW(4315) & ChrW(4304) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(69) & ChrW(108) _
  1296. & ChrW(101) & ChrW(99) & ChrW(116) & ChrW(114) & ChrW(105) & ChrW(99) & ChrW(97) & ChrW(108) & ChrW(32) & ChrW(115) _
  1297. & ChrW(121) & ChrW(115) & ChrW(116) & ChrW(101) & ChrW(109)
  1298. .Forward = True
  1299. .Wrap = wdFindContinue
  1300. .Format = False
  1301. .MatchCase = False
  1302. .MatchWholeWord = False
  1303. .MatchWildcards = False
  1304. .MatchSoundsLike = False
  1305. .MatchAllWordForms = False
  1306. End With
  1307. Selection.Find.Execute Replace:=wdReplaceAll
  1308. With Selection.Find
  1309. .Text = ChrW(4321) & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(4316) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(124) & ChrW(80) _
  1310. & ChrW(97) & ChrW(118) & ChrW(101) & ChrW(109) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(40) & ChrW(119) _
  1311. & ChrW(97) & ChrW(116) & ChrW(101) & ChrW(114) & ChrW(112) & ChrW(114) & ChrW(111) & ChrW(111) & ChrW(102) & ChrW(41)
  1312. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(4316) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(124) _
  1313. & ChrW(32) & ChrW(80) & ChrW(97) & ChrW(118) & ChrW(101) & ChrW(109) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1314. & ChrW(97) & ChrW(114) & ChrW(111) & ChrW(117) & ChrW(110) & ChrW(100) & ChrW(32) & ChrW(116) & ChrW(104) & ChrW(101) _
  1315. & ChrW(32) & ChrW(98) & ChrW(117) & ChrW(105) & ChrW(108) & ChrW(100) & ChrW(105) & ChrW(110) & ChrW(103)
  1316. .Forward = True
  1317. .Wrap = wdFindContinue
  1318. .Format = False
  1319. .MatchCase = False
  1320. .MatchWholeWord = False
  1321. .MatchWildcards = False
  1322. .MatchSoundsLike = False
  1323. .MatchAllWordForms = False
  1324. End With
  1325. Selection.Find.Execute Replace:=wdReplaceAll
  1326. With Selection.Find
  1327. .Text = ChrW(4328) & ChrW(4312) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4313) & ChrW(4312) & ChrW(4305) & ChrW(4308) & ChrW(4308) _
  1328. & ChrW(4305) & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4304) & ChrW(4320) & ChrW(4304) & ChrW(4315) & ChrW(4310) & ChrW(4312) _
  1329. & ChrW(4307) & ChrW(4312) & ChrW(32) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4315) & ChrW(4308) & ChrW(4316) & ChrW(4322) _
  1330. & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(73) & ChrW(110) & ChrW(116) _
  1331. & ChrW(101) & ChrW(114) & ChrW(105) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(115) & ChrW(116) & ChrW(97) & ChrW(105) _
  1332. & ChrW(114) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(101) & ChrW(115) & ChrW(32) & ChrW(40) & ChrW(110) & ChrW(111) _
  1333. & ChrW(116) & ChrW(32) & ChrW(108) & ChrW(111) & ChrW(97) & ChrW(100) & ChrW(98) & ChrW(101) & ChrW(97) & ChrW(114) _
  1334. & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(112) & ChrW(97) & ChrW(114) & ChrW(116) & ChrW(115) & ChrW(41)
  1335. .Replacement.Text = ChrW(4328) & ChrW(4312) & ChrW(4307) & ChrW(4304) & ChrW(32) & ChrW(4313) & ChrW(4312) & ChrW(4305) & ChrW(4308) & ChrW(4308) _
  1336. & ChrW(4305) & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4304) & ChrW(4320) & ChrW(4304) & ChrW(4315) & ChrW(4310) & ChrW(4312) _
  1337. & ChrW(4307) & ChrW(4312) & ChrW(32) & ChrW(4308) & ChrW(4314) & ChrW(4308) & ChrW(4315) & ChrW(4308) & ChrW(4316) & ChrW(4322) _
  1338. & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(73) & ChrW(110) & ChrW(116) _
  1339. & ChrW(101) & ChrW(114) & ChrW(105) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(115) & ChrW(116) & ChrW(97) & ChrW(105) _
  1340. & ChrW(114) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(101) & ChrW(115) & ChrW(32) & ChrW(40) & ChrW(110) & ChrW(111) _
  1341. & ChrW(110) & ChrW(98) & ChrW(101) & ChrW(97) & ChrW(114) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(112) _
  1342. & ChrW(97) & ChrW(114) & ChrW(116) & ChrW(115) & ChrW(41)
  1343. .Forward = True
  1344. .Wrap = wdFindContinue
  1345. .Format = False
  1346. .MatchCase = False
  1347. .MatchWholeWord = False
  1348. .MatchWildcards = False
  1349. .MatchSoundsLike = False
  1350. .MatchAllWordForms = False
  1351. End With
  1352. Selection.Find.Execute Replace:=wdReplaceAll
  1353. With Selection.Find
  1354. .Text = ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4305) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) _
  1355. & ChrW(4312) & ChrW(4321) & ChrW(4322) & ChrW(4308) & ChrW(4315) & ChrW(4304) & ChrW(44) & ChrW(32) & ChrW(4321) & ChrW(4304) _
  1356. & ChrW(4325) & ChrW(4309) & ChrW(4304) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4328) & ChrW(4308) & ChrW(4316) _
  1357. & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4329) & ChrW(4304) & ChrW(4311) & ChrW(4309) & ChrW(4314) _
  1358. & ChrW(4312) & ChrW(4311) & ChrW(124) & ChrW(72) & ChrW(101) & ChrW(97) & ChrW(116) & ChrW(105) & ChrW(110) & ChrW(103) _
  1359. & ChrW(32) & ChrW(115) & ChrW(121) & ChrW(115) & ChrW(116) & ChrW(101) & ChrW(109) & ChrW(44) & ChrW(32) & ChrW(105) _
  1360. & ChrW(110) & ChrW(99) & ChrW(108) & ChrW(117) & ChrW(100) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(98) _
  1361. & ChrW(111) & ChrW(105) & ChrW(108) & ChrW(101) & ChrW(114) & ChrW(32) & ChrW(97) & ChrW(110) & ChrW(100) & ChrW(32) _
  1362. & ChrW(98) & ChrW(111) & ChrW(105) & ChrW(108) & ChrW(101) & ChrW(114) & ChrW(32) & ChrW(115) & ChrW(104) & ChrW(101) _
  1363. & ChrW(108) & ChrW(116) & ChrW(101) & ChrW(114)
  1364. .Replacement.Text = ChrW(4306) & ChrW(4304) & ChrW(4311) & ChrW(4305) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) _
  1365. & ChrW(4312) & ChrW(4321) & ChrW(4322) & ChrW(4308) & ChrW(4315) & ChrW(4304) & ChrW(44) & ChrW(32) & ChrW(4321) & ChrW(4304) _
  1366. & ChrW(4325) & ChrW(4309) & ChrW(4304) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4328) & ChrW(4308) & ChrW(4316) _
  1367. & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4329) & ChrW(4304) & ChrW(4311) & ChrW(4309) & ChrW(4314) _
  1368. & ChrW(4312) & ChrW(4311) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(72) & ChrW(101) & ChrW(97) & ChrW(116) & ChrW(105) _
  1369. & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(115) & ChrW(121) & ChrW(115) & ChrW(116) & ChrW(101) & ChrW(109) & ChrW(44) _
  1370. & ChrW(32) & ChrW(105) & ChrW(110) & ChrW(99) & ChrW(108) & ChrW(117) & ChrW(100) & ChrW(105) & ChrW(110) & ChrW(103) _
  1371. & ChrW(32) & ChrW(98) & ChrW(111) & ChrW(105) & ChrW(108) & ChrW(101) & ChrW(114) & ChrW(32) & ChrW(104) & ChrW(111) _
  1372. & ChrW(117) & ChrW(115) & ChrW(101)
  1373. .Forward = True
  1374. .Wrap = wdFindContinue
  1375. .Format = False
  1376. .MatchCase = False
  1377. .MatchWholeWord = False
  1378. .MatchWildcards = False
  1379. .MatchSoundsLike = False
  1380. .MatchAllWordForms = False
  1381. End With
  1382. Selection.Find.Execute Replace:=wdReplaceAll
  1383. With Selection.Find
  1384. .Text = ChrW(4321) & ChrW(4304) & ChrW(4328) & ChrW(4323) & ChrW(4304) & ChrW(4314) & ChrW(4317) & ChrW(32) & ChrW(4309) & ChrW(4304) _
  1385. & ChrW(4307) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4318) & ChrW(4308) & ChrW(4320) & ChrW(4321) & ChrW(4318) _
  1386. & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4312) & ChrW(4309) & ChrW(4304) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4329) _
  1387. & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4322) & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) _
  1388. & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) & ChrW(4304) _
  1389. & ChrW(32) & ChrW(4320) & ChrW(4308) & ChrW(4310) & ChrW(4312) & ChrW(4323) & ChrW(4315) & ChrW(4308) & ChrW(32) & ChrW(40) _
  1390. & ChrW(49) & ChrW(45) & ChrW(53) & ChrW(32) & ChrW(4332) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(41) & ChrW(32) _
  1391. & ChrW(124) & ChrW(32) & ChrW(78) & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(117) & ChrW(114) & ChrW(103) & ChrW(101) _
  1392. & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) _
  1393. & ChrW(32) & ChrW(83) & ChrW(99) & ChrW(111) & ChrW(112) & ChrW(101) & ChrW(32) & ChrW(83) & ChrW(117) & ChrW(109) _
  1394. & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(45) & ChrW(53) & ChrW(32) _
  1395. & ChrW(121) & ChrW(101) & ChrW(97) & ChrW(114) & ChrW(115) & ChrW(41)
  1396. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4328) & ChrW(4323) & ChrW(4304) & ChrW(4314) & ChrW(4317) & ChrW(32) & ChrW(4309) & ChrW(4304) _
  1397. & ChrW(4307) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4318) & ChrW(4308) & ChrW(4320) & ChrW(4321) & ChrW(4318) _
  1398. & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4312) & ChrW(4309) & ChrW(4304) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4329) _
  1399. & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4322) & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) _
  1400. & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) & ChrW(4304) _
  1401. & ChrW(32) & ChrW(4320) & ChrW(4308) & ChrW(4310) & ChrW(4312) & ChrW(4323) & ChrW(4315) & ChrW(4308) & ChrW(32) & ChrW(40) _
  1402. & ChrW(49) & ChrW(45) & ChrW(53) & ChrW(32) & ChrW(4332) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(41) & ChrW(32) _
  1403. & ChrW(124) & ChrW(32) & ChrW(78) & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(117) & ChrW(114) & ChrW(103) & ChrW(101) _
  1404. & ChrW(110) & ChrW(116) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) _
  1405. & ChrW(32) & ChrW(83) & ChrW(99) & ChrW(111) & ChrW(112) & ChrW(101) & ChrW(32) & ChrW(83) & ChrW(117) & ChrW(109) _
  1406. & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(45) & ChrW(53) & ChrW(32) _
  1407. & ChrW(121) & ChrW(101) & ChrW(97) & ChrW(114) & ChrW(115) & ChrW(41)
  1408. .Forward = True
  1409. .Wrap = wdFindContinue
  1410. .Format = False
  1411. .MatchCase = False
  1412. .MatchWholeWord = False
  1413. .MatchWildcards = False
  1414. .MatchSoundsLike = False
  1415. .MatchAllWordForms = False
  1416. End With
  1417. Selection.Find.Execute Replace:=wdReplaceAll
  1418. With Selection.Find
  1419. .Text = ChrW(4321) & ChrW(4304) & ChrW(4328) & ChrW(4323) & ChrW(4304) & ChrW(4314) & ChrW(4317) & ChrW(32) & ChrW(4309) & ChrW(4304) _
  1420. & ChrW(4307) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4318) & ChrW(4308) & ChrW(4320) & ChrW(4321) & ChrW(4318) _
  1421. & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4312) & ChrW(4309) & ChrW(4304) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4329) _
  1422. & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4322) & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) _
  1423. & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4308) & ChrW(4305) _
  1424. & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4305) & ChrW(4312) & ChrW(4323) & ChrW(4335) & ChrW(4308) & ChrW(4322) & ChrW(4312) _
  1425. & ChrW(32) & ChrW(40) & ChrW(4314) & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(89) _
  1426. & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(4330) & ChrW(4307) & ChrW(4317) & ChrW(4315) & ChrW(4312) & ChrW(4314) & ChrW(4308) _
  1427. & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) _
  1428. & ChrW(88) & ChrW(32) & ChrW(4304) & ChrW(4323) & ChrW(4330) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4308) _
  1429. & ChrW(4314) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) _
  1430. & ChrW(4304) & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4335) & ChrW(4310) & ChrW(4308) & ChrW(124) & ChrW(32) _
  1431. & ChrW(78) & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) _
  1432. & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(80) _
  1433. & ChrW(114) & ChrW(101) & ChrW(108) & ChrW(105) & ChrW(109) & ChrW(105) & ChrW(110) & ChrW(97) & ChrW(114) & ChrW(121) _
  1434. & ChrW(32) & ChrW(66) & ChrW(117) & ChrW(100) & ChrW(103) & ChrW(101) & ChrW(116) & ChrW(40) & ChrW(71) & ChrW(69) _
  1435. & ChrW(76) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(89) & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(69) & ChrW(114) _
  1436. & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(103) & ChrW(105) & ChrW(110) _
  1437. & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) & ChrW(78) _
  1438. & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1439. & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(67) & ChrW(111) _
  1440. & ChrW(115) & ChrW(116)
  1441. .Replacement.Text = ChrW(4321) & ChrW(4304) & ChrW(4328) & ChrW(4323) & ChrW(4304) & ChrW(4314) & ChrW(4317) & ChrW(32) & ChrW(4309) & ChrW(4304) _
  1442. & ChrW(4307) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4318) & ChrW(4308) & ChrW(4320) & ChrW(4321) & ChrW(4318) _
  1443. & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4312) & ChrW(4309) & ChrW(4304) & ChrW(4328) & ChrW(4312) & ChrW(32) & ChrW(4320) _
  1444. & ChrW(4308) & ChrW(4313) & ChrW(4317) & ChrW(4315) & ChrW(4308) & ChrW(4316) & ChrW(4307) & ChrW(4312) & ChrW(4320) & ChrW(4308) _
  1445. & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4329) & ChrW(4304) & ChrW(4321) & ChrW(4304) & ChrW(4322) _
  1446. & ChrW(4304) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4321) & ChrW(4304) _
  1447. & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) _
  1448. & ChrW(4305) & ChrW(4312) & ChrW(4323) & ChrW(4335) & ChrW(4308) & ChrW(4322) & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4314) _
  1449. & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(89) & ChrW(93) & ChrW(32) & ChrW(61) _
  1450. & ChrW(32) & ChrW(4330) & ChrW(4307) & ChrW(4317) & ChrW(4315) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4304) _
  1451. & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) _
  1452. & ChrW(4304) & ChrW(4323) & ChrW(4330) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4308) & ChrW(4314) & ChrW(32) _
  1453. & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(32) _
  1454. & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4335) & ChrW(4310) & ChrW(4308) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(78) _
  1455. & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) & ChrW(32) _
  1456. & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(80) & ChrW(114) _
  1457. & ChrW(101) & ChrW(108) & ChrW(105) & ChrW(109) & ChrW(105) & ChrW(110) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) _
  1458. & ChrW(66) & ChrW(117) & ChrW(100) & ChrW(103) & ChrW(101) & ChrW(116) & ChrW(32) & ChrW(40) & ChrW(71) & ChrW(69) _
  1459. & ChrW(76) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(89) & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(32) & ChrW(69) _
  1460. & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(103) & ChrW(105) _
  1461. & ChrW(110) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) _
  1462. & ChrW(78) & ChrW(111) & ChrW(110) & ChrW(45) & ChrW(85) & ChrW(114) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(116) _
  1463. & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(67) _
  1464. & ChrW(111) & ChrW(115) & ChrW(116)
  1465. .Forward = True
  1466. .Wrap = wdFindContinue
  1467. .Format = False
  1468. .MatchCase = False
  1469. .MatchWholeWord = False
  1470. .MatchWildcards = False
  1471. .MatchSoundsLike = False
  1472. .MatchAllWordForms = False
  1473. End With
  1474. Selection.Find.Execute Replace:=wdReplaceAll
  1475. With Selection.Find
  1476. .Text = ChrW(4306) & ChrW(4320) & ChrW(4331) & ChrW(4308) & ChrW(4314) & ChrW(4309) & ChrW(4304) & ChrW(4307) & ChrW(4312) & ChrW(4304) _
  1477. & ChrW(4316) & ChrW(4312) & ChrW(32) & ChrW(4320) & ChrW(4308) & ChrW(4313) & ChrW(4317) & ChrW(4315) & ChrW(4308) & ChrW(4316) _
  1478. & ChrW(4307) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4328) _
  1479. & ChrW(4308) & ChrW(4313) & ChrW(4308) & ChrW(4311) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4315) _
  1480. & ChrW(4317) & ChrW(4330) & ChrW(4323) & ChrW(4314) & ChrW(4317) & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(40) & ChrW(4314) _
  1481. & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) & ChrW(4330) & ChrW(4307) & ChrW(4317) _
  1482. & ChrW(4315) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) _
  1483. & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(4306) & ChrW(4320) & ChrW(4331) & ChrW(4308) & ChrW(4314) & ChrW(4309) _
  1484. & ChrW(4304) & ChrW(4307) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) _
  1485. & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) & ChrW(4304) & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4335) _
  1486. & ChrW(4310) & ChrW(4308) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(76) & ChrW(111) & ChrW(110) & ChrW(103) & ChrW(32) _
  1487. & ChrW(116) & ChrW(101) & ChrW(114) & ChrW(109) & ChrW(32) & ChrW(114) & ChrW(101) & ChrW(99) & ChrW(111) & ChrW(109) _
  1488. & ChrW(109) & ChrW(101) & ChrW(110) & ChrW(100) & ChrW(101) & ChrW(100) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) _
  1489. & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(83) & ChrW(99) & ChrW(111) & ChrW(112) & ChrW(101) _
  1490. & ChrW(32) & ChrW(83) & ChrW(117) & ChrW(109) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) & ChrW(61) _
  1491. & ChrW(69) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(103) _
  1492. & ChrW(105) & ChrW(110) & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) _
  1493. & ChrW(88) & ChrW(32) & ChrW(76) & ChrW(111) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(116) & ChrW(101) & ChrW(114) _
  1494. & ChrW(109) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) _
  1495. & ChrW(67) & ChrW(111) & ChrW(115) & ChrW(116)
  1496. .Replacement.Text = ChrW(4320) & ChrW(4308) & ChrW(4313) & ChrW(4317) & ChrW(4315) & ChrW(4308) & ChrW(4316) & ChrW(4307) & ChrW(4312) & ChrW(4320) _
  1497. & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4306) & ChrW(4320) & ChrW(4331) & ChrW(4308) _
  1498. & ChrW(4314) & ChrW(4309) & ChrW(4304) & ChrW(4307) & ChrW(4312) & ChrW(4304) & ChrW(4316) & ChrW(4312) & ChrW(32) & ChrW(4328) _
  1499. & ChrW(4308) & ChrW(4313) & ChrW(4308) & ChrW(4311) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4315) _
  1500. & ChrW(4317) & ChrW(4330) & ChrW(4323) & ChrW(4314) & ChrW(4317) & ChrW(4305) & ChrW(4304) & ChrW(32) & ChrW(40) & ChrW(4314) _
  1501. & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(91) & ChrW(122) & ChrW(93) & ChrW(32) & ChrW(61) _
  1502. & ChrW(32) & ChrW(4330) & ChrW(4307) & ChrW(4317) & ChrW(4315) & ChrW(4312) & ChrW(4314) & ChrW(4308) & ChrW(4305) & ChrW(4304) _
  1503. & ChrW(32) & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) _
  1504. & ChrW(4306) & ChrW(4320) & ChrW(4331) & ChrW(4308) & ChrW(4314) & ChrW(4309) & ChrW(4304) & ChrW(4307) & ChrW(4312) & ChrW(4304) _
  1505. & ChrW(4316) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4315) & ChrW(4323) & ChrW(4328) & ChrW(4304) & ChrW(4317) & ChrW(4311) _
  1506. & ChrW(4304) & ChrW(32) & ChrW(4334) & ChrW(4304) & ChrW(4320) & ChrW(4335) & ChrW(4310) & ChrW(4308) & ChrW(32) & ChrW(124) _
  1507. & ChrW(32) & ChrW(76) & ChrW(111) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(116) & ChrW(101) & ChrW(114) & ChrW(109) _
  1508. & ChrW(32) & ChrW(114) & ChrW(101) & ChrW(99) & ChrW(111) & ChrW(109) & ChrW(109) & ChrW(101) & ChrW(110) & ChrW(100) _
  1509. & ChrW(101) & ChrW(100) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) _
  1510. & ChrW(32) & ChrW(83) & ChrW(99) & ChrW(111) & ChrW(112) & ChrW(101) & ChrW(32) & ChrW(83) & ChrW(117) & ChrW(109) _
  1511. & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(121) & ChrW(32) & ChrW(40) & ChrW(71) & ChrW(69) & ChrW(76) & ChrW(41) _
  1512. & ChrW(32) & ChrW(91) & ChrW(122) & ChrW(93) & ChrW(32) & ChrW(61) & ChrW(32) & ChrW(69) & ChrW(114) & ChrW(114) _
  1513. & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(109) & ChrW(97) & ChrW(114) & ChrW(103) & ChrW(105) & ChrW(110) & ChrW(32) _
  1514. & ChrW(40) & ChrW(49) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(41) & ChrW(32) & ChrW(88) & ChrW(32) & ChrW(76) _
  1515. & ChrW(111) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(116) & ChrW(101) & ChrW(114) & ChrW(109) & ChrW(32) & ChrW(82) _
  1516. & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) & ChrW(114) & ChrW(115) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(115) _
  1517. & ChrW(116)
  1518. .Forward = True
  1519. .Wrap = wdFindContinue
  1520. .Format = False
  1521. .MatchCase = False
  1522. .MatchWholeWord = False
  1523. .MatchWildcards = False
  1524. .MatchSoundsLike = False
  1525. .MatchAllWordForms = False
  1526. End With
  1527. Selection.Find.Execute Replace:=wdReplaceAll
  1528. With Selection.Find
  1529. .Text = ChrW(4307) & ChrW(4308) & ChrW(4324) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) _
  1530. & ChrW(32) & ChrW(4306) & ChrW(4304) & ChrW(4315) & ChrW(4317) & ChrW(4321) & ChrW(4332) & ChrW(4317) & ChrW(4320) & ChrW(4308) _
  1531. & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(4313) & ChrW(4317) & ChrW(4320) & ChrW(4308) _
  1532. & ChrW(4325) & ChrW(4322) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) _
  1533. & ChrW(4308) & ChrW(4320) & ChrW(4311) & ChrW(4308) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4324) _
  1534. & ChrW(4304) & ChrW(4321) & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(4314) & ChrW(4304) & ChrW(4320) & ChrW(4312) & ChrW(32) _
  1535. & ChrW(47) & ChrW(32) & ChrW(4313) & ChrW(4309) & ChrW(46) & ChrW(4315) & ChrW(41) & ChrW(32) & ChrW(40) & ChrW(91) _
  1536. & ChrW(88) & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(89) & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(90) & ChrW(41) _
  1537. & ChrW(47) & ChrW(40) & ChrW(4328) & ChrW(4308) & ChrW(4316) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) _
  1538. & ChrW(4321) & ChrW(4320) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) & ChrW(4324) & ChrW(4304) & ChrW(4320) & ChrW(4311) _
  1539. & ChrW(4312) & ChrW(41) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(65) & ChrW(100) & ChrW(106) & ChrW(117) & ChrW(115) _
  1540. & ChrW(116) & ChrW(101) & ChrW(100) & ChrW(32) & ChrW(68) & ChrW(101) & ChrW(102) & ChrW(105) & ChrW(99) & ChrW(105) _
  1541. & ChrW(101) & ChrW(110) & ChrW(99) & ChrW(121) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) _
  1542. & ChrW(114) & ChrW(32) & ChrW(85) & ChrW(110) & ChrW(105) & ChrW(116) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(115) _
  1543. & ChrW(116) & ChrW(32) & ChrW(40) & ChrW(71) & ChrW(69) & ChrW(76) & ChrW(47) & ChrW(115) & ChrW(113) & ChrW(46) _
  1544. & ChrW(109) & ChrW(41) & ChrW(32) & ChrW(40) & ChrW(91) & ChrW(88) & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(89) _
  1545. & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(90) & ChrW(93) & ChrW(41) & ChrW(47) & ChrW(91) & ChrW(66) & ChrW(117) _
  1546. & ChrW(105) & ChrW(108) & ChrW(100) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(71) & ChrW(114) & ChrW(111) _
  1547. & ChrW(115) & ChrW(115) & ChrW(32) & ChrW(65) & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(41)
  1548. .Replacement.Text = ChrW(4307) & ChrW(4308) & ChrW(4324) & ChrW(4308) & ChrW(4325) & ChrW(4322) & ChrW(4308) & ChrW(4305) & ChrW(4312) & ChrW(4321) _
  1549. & ChrW(32) & ChrW(4306) & ChrW(4304) & ChrW(4315) & ChrW(4317) & ChrW(4321) & ChrW(4332) & ChrW(4317) & ChrW(4320) & ChrW(4308) _
  1550. & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4307) & ChrW(4304) & ChrW(4313) & ChrW(4317) & ChrW(4320) & ChrW(4308) _
  1551. & ChrW(4325) & ChrW(4322) & ChrW(4312) & ChrW(4320) & ChrW(4308) & ChrW(4305) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(32) _
  1552. & ChrW(4308) & ChrW(4320) & ChrW(4311) & ChrW(4308) & ChrW(4323) & ChrW(4314) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4324) _
  1553. & ChrW(4304) & ChrW(4321) & ChrW(4312) & ChrW(32) & ChrW(40) & ChrW(8382) & ChrW(47) & ChrW(4313) & ChrW(4309) & ChrW(46) _
  1554. & ChrW(4315) & ChrW(41) & ChrW(32) & ChrW(40) & ChrW(91) & ChrW(88) & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(89) _
  1555. & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(90) & ChrW(93) & ChrW(41) & ChrW(47) & ChrW(40) & ChrW(4328) & ChrW(4308) _
  1556. & ChrW(4316) & ChrW(4317) & ChrW(4305) & ChrW(4312) & ChrW(4321) & ChrW(32) & ChrW(4321) & ChrW(4304) & ChrW(4308) & ChrW(4320) _
  1557. & ChrW(4311) & ChrW(4317) & ChrW(32) & ChrW(4324) & ChrW(4304) & ChrW(4320) & ChrW(4311) & ChrW(4317) & ChrW(4305) & ChrW(4310) _
  1558. & ChrW(4308) & ChrW(41) & ChrW(32) & ChrW(124) & ChrW(32) & ChrW(65) & ChrW(100) & ChrW(106) & ChrW(117) & ChrW(115) _
  1559. & ChrW(116) & ChrW(101) & ChrW(100) & ChrW(32) & ChrW(68) & ChrW(101) & ChrW(102) & ChrW(105) & ChrW(99) & ChrW(105) _
  1560. & ChrW(101) & ChrW(110) & ChrW(99) & ChrW(121) & ChrW(32) & ChrW(82) & ChrW(101) & ChrW(112) & ChrW(97) & ChrW(105) _
  1561. & ChrW(114) & ChrW(32) & ChrW(85) & ChrW(110) & ChrW(105) & ChrW(116) & ChrW(32) & ChrW(67) & ChrW(111) & ChrW(115) _
  1562. & ChrW(116) & ChrW(32) & ChrW(40) & ChrW(71) & ChrW(69) & ChrW(76) & ChrW(47) & ChrW(115) & ChrW(113) & ChrW(46) _
  1563. & ChrW(109) & ChrW(41) & ChrW(32) & ChrW(40) & ChrW(91) & ChrW(88) & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(89) _
  1564. & ChrW(93) & ChrW(43) & ChrW(91) & ChrW(90) & ChrW(93) & ChrW(41) & ChrW(32) & ChrW(47) & ChrW(32) & ChrW(91) _
  1565. & ChrW(66) & ChrW(117) & ChrW(105) & ChrW(108) & ChrW(100) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(32) & ChrW(71) _
  1566. & ChrW(114) & ChrW(111) & ChrW(115) & ChrW(115) & ChrW(32) & ChrW(65) & ChrW(114) & ChrW(101) & ChrW(97) & ChrW(93)
  1567. .Forward = True
  1568. .Wrap = wdFindContinue
  1569. .Format = False
  1570. .MatchCase = False
  1571. .MatchWholeWord = False
  1572. .MatchWildcards = False
  1573. .MatchSoundsLike = False
  1574. .MatchAllWordForms = False
  1575. End With
  1576. Selection.Find.Execute Replace:=wdReplaceAll
  1577. End Sub
  1578. Sub Find_Text_in_table()
  1579.  
  1580. Selection.Find.ClearFormatting
  1581. Selection.Find.Replacement.ClearFormatting
  1582. With Selection.Find
  1583. .Text = "school passport"
  1584. .Replacement.Text = ""
  1585. .Forward = True
  1586. .Wrap = wdFindAsk
  1587. .Format = False
  1588. .MatchCase = False
  1589. .MatchWholeWord = False
  1590. .MatchWildcards = False
  1591. .MatchSoundsLike = False
  1592. .MatchAllWordForms = False
  1593. End With
  1594.  
  1595. Do While Selection.Find.Execute
  1596.  
  1597. If Selection.Information(wdWithInTable) Then
  1598.  
  1599. ' Stop
  1600. Selection.Tables(1).Select
  1601. For x = 1 To Selection.Columns(1).Cells.Count
  1602. Selection.Columns(1).Cells(x).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
  1603. Selection.Columns(1).Cells(x).Range.Font.Name = "Sylfaen"
  1604. Next x
  1605.  
  1606. Selection.Columns(1).Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
  1607. For i = 1 To Selection.Columns(2).Cells.Count
  1608. Selection.Columns(2).Cells(i).VerticalAlignment = wdCellAlignVerticalCenter
  1609. Selection.Columns(2).Cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
  1610. Next i
  1611.  
  1612. For k = 1 To Selection.Columns(3).Cells.Count
  1613. Selection.Columns(3).Cells(k).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
  1614.  
  1615. Next k
  1616. Selection.Columns(3).Cells(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
  1617. Exit Do
  1618. End If
  1619. Loop
  1620. Selection.Find.ClearFormatting
  1621. Selection.Find.Replacement.ClearFormatting
  1622. With Selection.Find
  1623. .Text = "| School Yard & Site Surroundings"
  1624. .Replacement.Text = ""
  1625. .Forward = True
  1626. .Wrap = wdFindAsk
  1627. .Format = False
  1628. .MatchCase = False
  1629. .MatchWholeWord = False
  1630. .MatchWildcards = False
  1631. .MatchSoundsLike = False
  1632. .MatchAllWordForms = False
  1633. End With
  1634.  
  1635. Do While Selection.Find.Execute
  1636.  
  1637. If Selection.Information(wdWithInTable) Then
  1638.  
  1639. ' Stop
  1640. Selection.Tables(1).Select
  1641.  
  1642. Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
  1643. Selection.Columns.AutoFit
  1644. Selection.Range.Italic = False
  1645.  
  1646.  
  1647. Exit Do
  1648.  
  1649.  
  1650. End If
  1651. Loop
  1652. End Sub
  1653.  
  1654. Sub FindNextYellow()
  1655. Dim yellow As Boolean
  1656. yellow = False
  1657.  
  1658. With Selection.Find
  1659. .ClearFormatting
  1660. .Replacement.ClearFormatting
  1661. .Text = ""
  1662. .MatchWildcards = False
  1663. .Forward = True
  1664. .Wrap = wdFindContinue
  1665. .Highlight = True
  1666. Do
  1667. .Execute
  1668. Loop Until Selection.Range.HighlightColorIndex = wdYellow _
  1669. Or Not .Found
  1670. Selection.Range.Select
  1671. If Selection.Range.HighlightColorIndex = wdYellow Then
  1672. yellow = True
  1673. Else
  1674. yellow = False
  1675. End If
  1676.  
  1677. Selection.Range.HighlightColorIndex = wdNoHighlight
  1678. If yellow = True Then
  1679. FindNextYellow
  1680. End If
  1681.  
  1682.  
  1683. End With
  1684. End Sub
  1685. Sub ChangeColorWithReplace()
  1686. Selection.Find.ClearFormatting
  1687. Selection.Find.Font.Color = wdColorRed
  1688. Selection.Find.Replacement.ClearFormatting
  1689. Selection.Find.Replacement.Font.Color = wdColorBlack
  1690. With Selection.Find
  1691. .Text = ""
  1692. .Replacement.Text = ""
  1693. .Forward = True
  1694. .Wrap = wdFindContinue
  1695. .Format = True
  1696. .MatchCase = False
  1697. .MatchWholeWord = False
  1698. .MatchKashida = False
  1699. .MatchDiacritics = False
  1700. .MatchAlefHamza = False
  1701. .MatchControl = False
  1702. .MatchByte = False
  1703. .MatchWildcards = False
  1704. .MatchSoundsLike = False
  1705. .MatchAllWordForms = False
  1706. End With
  1707. Selection.Find.Execute Replace:=wdReplaceAll
  1708. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!