home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / cappack.zip / tnkcap.lss < prev    next >
Text File  |  1997-05-24  |  21KB  |  544 lines
  1. Sub capa
  2.     .Text.Font.UpperCase = True
  3. End Sub
  4.  
  5.  
  6. Sub caps
  7.     .Type "[Home]"
  8.     .Type "[shiftEnd]"
  9.     .CopySelection
  10.     .NewDocument "", "", "default.mwp", "", "", ""
  11.     .Paste
  12.     .Type "[ctrlshiftLeft][Right][shiftLeft]"
  13.     For i = 1 To 25
  14.         If .Text.GetText($LwpGetObjectTypeSelection,False) = """" Then
  15.             .Type "[Right][Right][shiftLeft]"
  16.             .Text.Font.UpperCase = True
  17.             .Type "[Left]"
  18.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  19.         Elseif .Text.GetText($LwpGetObjectTypeSelection,False) = "'" Then
  20.             .Type "[Right][Right][shiftLeft]"
  21.             .Text.Font.UpperCase = True
  22.             .Type "[Left]"
  23.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  24.         Else
  25.             .Text.Font.UpperCase = True
  26.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  27.         End If
  28.     Next    
  29.     .Type "[left]"
  30.     .Application.FindAndReplace.FindString = "A"
  31.     .Application.FindAndReplace.ReplaceString = "a"
  32.     .Application.FindAndReplace.MatchType = $LwpFindMatchOnWholeWord
  33.     .Application.FindAndReplace.ReplaceFont.Clear
  34.     .Application.FindAndReplace.ReplaceAttributes.Clear
  35.     .Application.FindAndReplace.ReplaceFont.LowerCase = True
  36.     .Application.FindAndReplace.UseReplaceStyle = 0
  37.     .Application.FindAndReplace.FindFont.Clear
  38.     .Application.FindAndReplace.SearchAttributes.Clear
  39.     .Application.FindAndReplace.UseFindStyle = 0
  40.     .Application.FindAndReplace.Where = $LwpLookWhereEntireDocument
  41.     .Application.FindAndReplace.IncludeList = &H1
  42.     .Application.FindAndReplace.ReplaceExactCase = True
  43.     .Application.FindAndReplace.ReplaceWithProperties = True
  44.     .InitFindAndReplace True
  45.     .ReplaceAll
  46.     .ResetFindAndReplace
  47.     .Application.FindAndReplace.FindString = "An"
  48.     .Application.FindAndReplace.ReplaceString = "an"
  49.     .ReplaceAll
  50.     .Application.FindAndReplace.FindString = "The"
  51.     .Application.FindAndReplace.ReplaceString = "the"
  52.     .ReplaceAll
  53.     .Application.FindAndReplace.FindString = "And"
  54.     .Application.FindAndReplace.ReplaceString = "and"
  55.     .ReplaceAll
  56.     .Application.FindAndReplace.FindString = "But"
  57.     .Application.FindAndReplace.ReplaceString = "but"
  58.     .ReplaceAll
  59.     .Application.FindAndReplace.FindString = "Or"
  60.     .Application.FindAndReplace.ReplaceString = "or"
  61.     .ReplaceAll
  62.     .Application.FindAndReplace.FindString = "Nor"
  63.     .Application.FindAndReplace.ReplaceString = "nor"
  64.     .ReplaceAll
  65.     .Application.FindAndReplace.FindString = "For"
  66.     .Application.FindAndReplace.ReplaceString = "for"
  67.     .ReplaceAll
  68.     .Application.FindAndReplace.FindString = "So"
  69.     .Application.FindAndReplace.ReplaceString = "so"
  70.     .ReplaceAll
  71.     .Application.FindAndReplace.FindString = "Yet"
  72.     .Application.FindAndReplace.ReplaceString = "yet"
  73.     .ReplaceAll
  74.     .Application.FindAndReplace.FindString = "About"
  75.     .Application.FindAndReplace.ReplaceString = "about"
  76.     .ReplaceAll
  77.     .Application.FindAndReplace.FindString = "Above"
  78.     .Application.FindAndReplace.ReplaceString = "above"
  79.     .ReplaceAll
  80.     .Application.FindAndReplace.FindString = "Across"
  81.     .Application.FindAndReplace.ReplaceString = "across"
  82.     .ReplaceAll
  83.     .Application.FindAndReplace.FindString = "After"
  84.     .Application.FindAndReplace.ReplaceString = "after"
  85.     .ReplaceAll
  86.     .Application.FindAndReplace.FindString = "Against"
  87.     .Application.FindAndReplace.ReplaceString = "against"
  88.     .ReplaceAll
  89.     .Application.FindAndReplace.FindString = "Along"
  90.     .Application.FindAndReplace.ReplaceString = "along"
  91.     .ReplaceAll
  92.     .Application.FindAndReplace.FindString = "Among"
  93.     .Application.FindAndReplace.ReplaceString = "among"
  94.     .ReplaceAll
  95.     .Application.FindAndReplace.FindString = "Around"
  96.     .Application.FindAndReplace.ReplaceString = "around"
  97.     .ReplaceAll
  98.     .Application.FindAndReplace.FindString = "As"
  99.     .Application.FindAndReplace.ReplaceString = "as"
  100.     .ReplaceAll
  101.     .Application.FindAndReplace.FindString = "At"
  102.     .Application.FindAndReplace.ReplaceString = "at"
  103.     .ReplaceAll    
  104.     .Application.FindAndReplace.FindString = "Before"
  105.     .Application.FindAndReplace.ReplaceString = "before"
  106.     .ReplaceAll
  107.     .Application.FindAndReplace.FindString = "Behind"
  108.     .Application.FindAndReplace.ReplaceString = "behind"
  109.     .ReplaceAll
  110.     .Application.FindAndReplace.FindString = "Below"
  111.     .Application.FindAndReplace.ReplaceString = "below"
  112.     .ReplaceAll
  113.     .Application.FindAndReplace.FindString = "Beside"
  114.     .Application.FindAndReplace.ReplaceString = "beside"
  115.     .ReplaceAll
  116.     .Application.FindAndReplace.FindString = "Besides"
  117.     .Application.FindAndReplace.ReplaceString = "besides"
  118.     .ReplaceAll
  119.     .Application.FindAndReplace.FindString = "Between"
  120.     .Application.FindAndReplace.ReplaceString = "between"
  121.     .ReplaceAll
  122.     .Application.FindAndReplace.FindString = "Beyond"
  123.     .Application.FindAndReplace.ReplaceString = "beyond"
  124.     .ReplaceAll
  125.     .Application.FindAndReplace.FindString = "But"
  126.     .Application.FindAndReplace.ReplaceString = "but"
  127.     .ReplaceAll
  128.     .Application.FindAndReplace.FindString = "By"
  129.     .Application.FindAndReplace.ReplaceString = "by"
  130.     .ReplaceAll
  131.     .Application.FindAndReplace.FindString = "Concerning"
  132.     .Application.FindAndReplace.ReplaceString = "concerning"
  133.     .ReplaceAll
  134.     .Application.FindAndReplace.FindString = "Considering"
  135.     .Application.FindAndReplace.ReplaceString = "considering"
  136.     .ReplaceAll
  137.     .Application.FindAndReplace.FindString = "Despite"
  138.     .Application.FindAndReplace.ReplaceString = "despite"
  139.     .ReplaceAll
  140.     .Application.FindAndReplace.FindString = "Down"
  141.     .Application.FindAndReplace.ReplaceString = "down"
  142.     .ReplaceAll
  143.     .Application.FindAndReplace.FindString = "During"
  144.     .Application.FindAndReplace.ReplaceString = "during"
  145.     .ReplaceAll
  146.     .Application.FindAndReplace.FindString = "Except"
  147.     .Application.FindAndReplace.ReplaceString = "except"
  148.     .ReplaceAll
  149.     .Application.FindAndReplace.FindString = "For"
  150.     .Application.FindAndReplace.ReplaceString = "for"
  151.     .ReplaceAll
  152.     .Application.FindAndReplace.FindString = "From"
  153.     .Application.FindAndReplace.ReplaceString = "from"
  154.     .ReplaceAll
  155.     .Application.FindAndReplace.FindString = "In"
  156.     .Application.FindAndReplace.ReplaceString = "in"
  157.     .ReplaceAll
  158.     .Application.FindAndReplace.FindString = "Inside"
  159.     .Application.FindAndReplace.ReplaceString = "inside"
  160.     .ReplaceAll
  161.     .Application.FindAndReplace.FindString = "Into"
  162.     .Application.FindAndReplace.ReplaceString = "into"
  163.     .ReplaceAll
  164.     .Application.FindAndReplace.FindString = "Like"
  165.     .Application.FindAndReplace.ReplaceString = "like"
  166.     .ReplaceAll
  167.     .Application.FindAndReplace.FindString = "Near"
  168.     .Application.FindAndReplace.ReplaceString = "near"
  169.     .ReplaceAll
  170.     .Application.FindAndReplace.FindString = "Next"
  171.     .Application.FindAndReplace.ReplaceString = "next"
  172.     .ReplaceAll
  173.     .Application.FindAndReplace.FindString = "Of"
  174.     .Application.FindAndReplace.ReplaceString = "of"
  175.     .ReplaceAll
  176.     .Application.FindAndReplace.FindString = "Off"
  177.     .Application.FindAndReplace.ReplaceString = "off"
  178.     .ReplaceAll
  179.     .Application.FindAndReplace.FindString = "On"
  180.     .Application.FindAndReplace.ReplaceString = "on"
  181.     .ReplaceAll
  182.     .Application.FindAndReplace.FindString = "Onto"
  183.     .Application.FindAndReplace.ReplaceString = "onto"
  184.     .ReplaceAll
  185.     .Application.FindAndReplace.FindString = "Opposite"
  186.     .Application.FindAndReplace.ReplaceString = "opposite"
  187.     .ReplaceAll
  188.     .Application.FindAndReplace.FindString = "Out"
  189.     .Application.FindAndReplace.ReplaceString = "out"
  190.     .ReplaceAll
  191.     .Application.FindAndReplace.FindString = "Outside"
  192.     .Application.FindAndReplace.ReplaceString = "outside"
  193.     .ReplaceAll
  194.     .Application.FindAndReplace.FindString = "Over"
  195.     .Application.FindAndReplace.ReplaceString = "over"
  196.     .ReplaceAll
  197.     .Application.FindAndReplace.FindString = "Past"
  198.     .Application.FindAndReplace.ReplaceString = "past"
  199.     .ReplaceAll
  200.     .Application.FindAndReplace.FindString = "Plus"
  201.     .Application.FindAndReplace.ReplaceString = "plus"
  202.     .ReplaceAll
  203.     .Application.FindAndReplace.FindString = "Regarding"
  204.     .Application.FindAndReplace.ReplaceString = "regarding"
  205.     .ReplaceAll
  206.     .Application.FindAndReplace.FindString = "Respecting"
  207.     .Application.FindAndReplace.ReplaceString = "respecting"
  208.     .ReplaceAll
  209.     .Application.FindAndReplace.FindString = "Round"
  210.     .Application.FindAndReplace.ReplaceString = "round"
  211.     .ReplaceAll
  212.     .Application.FindAndReplace.FindString = "Since"
  213.     .Application.FindAndReplace.ReplaceString = "since"
  214.     .ReplaceAll
  215.     .Application.FindAndReplace.FindString = "Than"
  216.     .Application.FindAndReplace.ReplaceString = "than"
  217.     .ReplaceAll
  218.     .Application.FindAndReplace.FindString = "Through"
  219.     .Application.FindAndReplace.ReplaceString = "through"
  220.     .ReplaceAll
  221.     .Application.FindAndReplace.FindString = "Throughout"
  222.     .Application.FindAndReplace.ReplaceString = "throughout"
  223.     .ReplaceAll
  224.     .Application.FindAndReplace.FindString = "Till"
  225.     .Application.FindAndReplace.ReplaceString = "till"
  226.     .ReplaceAll
  227.     .Application.FindAndReplace.FindString = "To"
  228.     .Application.FindAndReplace.ReplaceString = "to"
  229.     .ReplaceAll
  230.     .Application.FindAndReplace.FindString = "Toward"
  231.     .Application.FindAndReplace.ReplaceString = "toward"
  232.     .ReplaceAll
  233.     .Application.FindAndReplace.FindString = "Under"
  234.     .Application.FindAndReplace.ReplaceString = "under"
  235.     .ReplaceAll
  236.     .Application.FindAndReplace.FindString = "Underneath"
  237.     .Application.FindAndReplace.ReplaceString = "underneath"
  238.     .ReplaceAll
  239.     .Application.FindAndReplace.FindString = "Unlike"
  240.     .Application.FindAndReplace.ReplaceString = "unlike"
  241.     .ReplaceAll
  242.     .Application.FindAndReplace.FindString = "Until"
  243.     .Application.FindAndReplace.ReplaceString = "until"
  244.     .ReplaceAll
  245.     .Application.FindAndReplace.FindString = "Unto"
  246.     .Application.FindAndReplace.ReplaceString = "unto"
  247.     .ReplaceAll
  248.     .Application.FindAndReplace.FindString = "Up"
  249.     .Application.FindAndReplace.ReplaceString = "up"
  250.     .ReplaceAll
  251.     .Application.FindAndReplace.FindString = "Upon"
  252.     .Application.FindAndReplace.ReplaceString = "upon"
  253.     .ReplaceAll
  254.     .Application.FindAndReplace.FindString = "With"
  255.     .Application.FindAndReplace.ReplaceString = "with"
  256.     .ReplaceAll
  257.     .Application.FindAndReplace.FindString = "Without"
  258.     .Application.FindAndReplace.ReplaceString = "without"
  259.     .ReplaceAll
  260.     .InitFindAndReplace True
  261.     .Type "[CtrlEnd]"
  262.     .Type "[ctrlshiftLeft][Right][shiftLeft]"
  263.     .Text.Font.UpperCase = True
  264.     .Type "[CtrlHome]"
  265.     .Type "[shiftRight]"
  266.     .Text.Font.UpperCase = True
  267.     .Type "[CtrlHome]"
  268.     .Type "[shiftCtrlEnd]"
  269.     .CopySelection
  270.     .activeDOCUMENT.CHANGED = False  
  271.     .activedocument.CLOSE
  272.     .Paste
  273. End Sub
  274.  
  275.  
  276. Sub capc
  277.     .Type "[Home]"
  278.     .Type "[shiftEnd]"
  279.     .CopySelection
  280.     .NewDocument "", "", "default.mwp", "", "", ""
  281.     .Paste
  282.     .Type "[ctrlshiftLeft][Right][shiftLeft]"
  283.     For i = 1 To 25
  284.         If .Text.GetText($LwpGetObjectTypeSelection,False) = Chr(147) Then
  285.             .Type "[Right][Right][shiftLeft]"
  286.             .Text.Font.UpperCase = True
  287.             .Type "[Left]"
  288.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  289.         Elseif .Text.GetText($LwpGetObjectTypeSelection,False) = Chr(145) Then
  290.             .Type "[Right][Right][shiftLeft]"
  291.             .Text.Font.UpperCase = True
  292.             .Type "[Left]"
  293.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  294.         Else
  295.             .Text.Font.UpperCase = True
  296.             .Type "[ctrlshiftLeft][Right][shiftLeft]"
  297.         End If
  298.     Next    
  299.     .Type "[left]"
  300.     .Application.FindAndReplace.FindString = "A"
  301.     .Application.FindAndReplace.ReplaceString = "a"
  302.     .Application.FindAndReplace.MatchType = $LwpFindMatchOnWholeWord
  303.     .Application.FindAndReplace.ReplaceFont.Clear
  304.     .Application.FindAndReplace.ReplaceAttributes.Clear
  305.     .Application.FindAndReplace.ReplaceFont.LowerCase = True
  306.     .Application.FindAndReplace.UseReplaceStyle = 0
  307.     .Application.FindAndReplace.FindFont.Clear
  308.     .Application.FindAndReplace.SearchAttributes.Clear
  309.     .Application.FindAndReplace.UseFindStyle = 0
  310.     .Application.FindAndReplace.Where = $LwpLookWhereEntireDocument
  311.     .Application.FindAndReplace.IncludeList = &H1
  312.     .Application.FindAndReplace.ReplaceExactCase = True
  313.     .Application.FindAndReplace.ReplaceWithProperties = True
  314.     .InitFindAndReplace True
  315.     .ReplaceAll
  316.     .ResetFindAndReplace
  317.     .Application.FindAndReplace.FindString = "An"
  318.     .Application.FindAndReplace.ReplaceString = "an"
  319.     .ReplaceAll
  320.     .Application.FindAndReplace.FindString = "The"
  321.     .Application.FindAndReplace.ReplaceString = "the"
  322.     .ReplaceAll
  323.     .Application.FindAndReplace.FindString = "And"
  324.     .Application.FindAndReplace.ReplaceString = "and"
  325.     .ReplaceAll
  326.     .Application.FindAndReplace.FindString = "But"
  327.     .Application.FindAndReplace.ReplaceString = "but"
  328.     .ReplaceAll
  329.     .Application.FindAndReplace.FindString = "Or"
  330.     .Application.FindAndReplace.ReplaceString = "or"
  331.     .ReplaceAll
  332.     .Application.FindAndReplace.FindString = "Nor"
  333.     .Application.FindAndReplace.ReplaceString = "nor"
  334.     .ReplaceAll
  335.     .Application.FindAndReplace.FindString = "For"
  336.     .Application.FindAndReplace.ReplaceString = "for"
  337.     .ReplaceAll
  338.     .Application.FindAndReplace.FindString = "So"
  339.     .Application.FindAndReplace.ReplaceString = "so"
  340.     .ReplaceAll
  341.     .Application.FindAndReplace.FindString = "Yet"
  342.     .Application.FindAndReplace.ReplaceString = "yet"
  343.     .ReplaceAll
  344.     .Application.FindAndReplace.FindString = "About"
  345.     .Application.FindAndReplace.ReplaceString = "about"
  346.     .ReplaceAll
  347.     .Application.FindAndReplace.FindString = "Above"
  348.     .Application.FindAndReplace.ReplaceString = "above"
  349.     .ReplaceAll
  350.     .Application.FindAndReplace.FindString = "Across"
  351.     .Application.FindAndReplace.ReplaceString = "across"
  352.     .ReplaceAll
  353.     .Application.FindAndReplace.FindString = "After"
  354.     .Application.FindAndReplace.ReplaceString = "after"
  355.     .ReplaceAll
  356.     .Application.FindAndReplace.FindString = "Against"
  357.     .Application.FindAndReplace.ReplaceString = "against"
  358.     .ReplaceAll
  359.     .Application.FindAndReplace.FindString = "Along"
  360.     .Application.FindAndReplace.ReplaceString = "along"
  361.     .ReplaceAll
  362.     .Application.FindAndReplace.FindString = "Among"
  363.     .Application.FindAndReplace.ReplaceString = "among"
  364.     .ReplaceAll
  365.     .Application.FindAndReplace.FindString = "Around"
  366.     .Application.FindAndReplace.ReplaceString = "around"
  367.     .ReplaceAll
  368.     .Application.FindAndReplace.FindString = "As"
  369.     .Application.FindAndReplace.ReplaceString = "as"
  370.     .ReplaceAll
  371.     .Application.FindAndReplace.FindString = "At"
  372.     .Application.FindAndReplace.ReplaceString = "at"
  373.     .ReplaceAll    
  374.     .Application.FindAndReplace.FindString = "Before"
  375.     .Application.FindAndReplace.ReplaceString = "before"
  376.     .ReplaceAll
  377.     .Application.FindAndReplace.FindString = "Behind"
  378.     .Application.FindAndReplace.ReplaceString = "behind"
  379.     .ReplaceAll
  380.     .Application.FindAndReplace.FindString = "Below"
  381.     .Application.FindAndReplace.ReplaceString = "below"
  382.     .ReplaceAll
  383.     .Application.FindAndReplace.FindString = "Beside"
  384.     .Application.FindAndReplace.ReplaceString = "beside"
  385.     .ReplaceAll
  386.     .Application.FindAndReplace.FindString = "Besides"
  387.     .Application.FindAndReplace.ReplaceString = "besides"
  388.     .ReplaceAll
  389.     .Application.FindAndReplace.FindString = "Between"
  390.     .Application.FindAndReplace.ReplaceString = "between"
  391.     .ReplaceAll
  392.     .Application.FindAndReplace.FindString = "Beyond"
  393.     .Application.FindAndReplace.ReplaceString = "beyond"
  394.     .ReplaceAll
  395.     .Application.FindAndReplace.FindString = "But"
  396.     .Application.FindAndReplace.ReplaceString = "but"
  397.     .ReplaceAll
  398.     .Application.FindAndReplace.FindString = "By"
  399.     .Application.FindAndReplace.ReplaceString = "by"
  400.     .ReplaceAll
  401.     .Application.FindAndReplace.FindString = "Concerning"
  402.     .Application.FindAndReplace.ReplaceString = "concerning"
  403.     .ReplaceAll
  404.     .Application.FindAndReplace.FindString = "Considering"
  405.     .Application.FindAndReplace.ReplaceString = "considering"
  406.     .ReplaceAll
  407.     .Application.FindAndReplace.FindString = "Despite"
  408.     .Application.FindAndReplace.ReplaceString = "despite"
  409.     .ReplaceAll
  410.     .Application.FindAndReplace.FindString = "Down"
  411.     .Application.FindAndReplace.ReplaceString = "down"
  412.     .ReplaceAll
  413.     .Application.FindAndReplace.FindString = "During"
  414.     .Application.FindAndReplace.ReplaceString = "during"
  415.     .ReplaceAll
  416.     .Application.FindAndReplace.FindString = "Except"
  417.     .Application.FindAndReplace.ReplaceString = "except"
  418.     .ReplaceAll
  419.     .Application.FindAndReplace.FindString = "For"
  420.     .Application.FindAndReplace.ReplaceString = "for"
  421.     .ReplaceAll
  422.     .Application.FindAndReplace.FindString = "From"
  423.     .Application.FindAndReplace.ReplaceString = "from"
  424.     .ReplaceAll
  425.     .Application.FindAndReplace.FindString = "In"
  426.     .Application.FindAndReplace.ReplaceString = "in"
  427.     .ReplaceAll
  428.     .Application.FindAndReplace.FindString = "Inside"
  429.     .Application.FindAndReplace.ReplaceString = "inside"
  430.     .ReplaceAll
  431.     .Application.FindAndReplace.FindString = "Into"
  432.     .Application.FindAndReplace.ReplaceString = "into"
  433.     .ReplaceAll
  434.     .Application.FindAndReplace.FindString = "Like"
  435.     .Application.FindAndReplace.ReplaceString = "like"
  436.     .ReplaceAll
  437.     .Application.FindAndReplace.FindString = "Near"
  438.     .Application.FindAndReplace.ReplaceString = "near"
  439.     .ReplaceAll
  440.     .Application.FindAndReplace.FindString = "Next"
  441.     .Application.FindAndReplace.ReplaceString = "next"
  442.     .ReplaceAll
  443.     .Application.FindAndReplace.FindString = "Of"
  444.     .Application.FindAndReplace.ReplaceString = "of"
  445.     .ReplaceAll
  446.     .Application.FindAndReplace.FindString = "Off"
  447.     .Application.FindAndReplace.ReplaceString = "off"
  448.     .ReplaceAll
  449.     .Application.FindAndReplace.FindString = "On"
  450.     .Application.FindAndReplace.ReplaceString = "on"
  451.     .ReplaceAll
  452.     .Application.FindAndReplace.FindString = "Onto"
  453.     .Application.FindAndReplace.ReplaceString = "onto"
  454.     .ReplaceAll
  455.     .Application.FindAndReplace.FindString = "Opposite"
  456.     .Application.FindAndReplace.ReplaceString = "opposite"
  457.     .ReplaceAll
  458.     .Application.FindAndReplace.FindString = "Out"
  459.     .Application.FindAndReplace.ReplaceString = "out"
  460.     .ReplaceAll
  461.     .Application.FindAndReplace.FindString = "Outside"
  462.     .Application.FindAndReplace.ReplaceString = "outside"
  463.     .ReplaceAll
  464.     .Application.FindAndReplace.FindString = "Over"
  465.     .Application.FindAndReplace.ReplaceString = "over"
  466.     .ReplaceAll
  467.     .Application.FindAndReplace.FindString = "Past"
  468.     .Application.FindAndReplace.ReplaceString = "past"
  469.     .ReplaceAll
  470.     .Application.FindAndReplace.FindString = "Plus"
  471.     .Application.FindAndReplace.ReplaceString = "plus"
  472.     .ReplaceAll
  473.     .Application.FindAndReplace.FindString = "Regarding"
  474.     .Application.FindAndReplace.ReplaceString = "regarding"
  475.     .ReplaceAll
  476.     .Application.FindAndReplace.FindString = "Respecting"
  477.     .Application.FindAndReplace.ReplaceString = "respecting"
  478.     .ReplaceAll
  479.     .Application.FindAndReplace.FindString = "Round"
  480.     .Application.FindAndReplace.ReplaceString = "round"
  481.     .ReplaceAll
  482.     .Application.FindAndReplace.FindString = "Since"
  483.     .Application.FindAndReplace.ReplaceString = "since"
  484.     .ReplaceAll
  485.     .Application.FindAndReplace.FindString = "Than"
  486.     .Application.FindAndReplace.ReplaceString = "than"
  487.     .ReplaceAll
  488.     .Application.FindAndReplace.FindString = "Through"
  489.     .Application.FindAndReplace.ReplaceString = "through"
  490.     .ReplaceAll
  491.     .Application.FindAndReplace.FindString = "Throughout"
  492.     .Application.FindAndReplace.ReplaceString = "throughout"
  493.     .ReplaceAll
  494.     .Application.FindAndReplace.FindString = "Till"
  495.     .Application.FindAndReplace.ReplaceString = "till"
  496.     .ReplaceAll
  497.     .Application.FindAndReplace.FindString = "To"
  498.     .Application.FindAndReplace.ReplaceString = "to"
  499.     .ReplaceAll
  500.     .Application.FindAndReplace.FindString = "Toward"
  501.     .Application.FindAndReplace.ReplaceString = "toward"
  502.     .ReplaceAll
  503.     .Application.FindAndReplace.FindString = "Under"
  504.     .Application.FindAndReplace.ReplaceString = "under"
  505.     .ReplaceAll
  506.     .Application.FindAndReplace.FindString = "Underneath"
  507.     .Application.FindAndReplace.ReplaceString = "underneath"
  508.     .ReplaceAll
  509.     .Application.FindAndReplace.FindString = "Unlike"
  510.     .Application.FindAndReplace.ReplaceString = "unlike"
  511.     .ReplaceAll
  512.     .Application.FindAndReplace.FindString = "Until"
  513.     .Application.FindAndReplace.ReplaceString = "until"
  514.     .ReplaceAll
  515.     .Application.FindAndReplace.FindString = "Unto"
  516.     .Application.FindAndReplace.ReplaceString = "unto"
  517.     .ReplaceAll
  518.     .Application.FindAndReplace.FindString = "Up"
  519.     .Application.FindAndReplace.ReplaceString = "up"
  520.     .ReplaceAll
  521.     .Application.FindAndReplace.FindString = "Upon"
  522.     .Application.FindAndReplace.ReplaceString = "upon"
  523.     .ReplaceAll
  524.     .Application.FindAndReplace.FindString = "With"
  525.     .Application.FindAndReplace.ReplaceString = "with"
  526.     .ReplaceAll
  527.     .Application.FindAndReplace.FindString = "Without"
  528.     .Application.FindAndReplace.ReplaceString = "without"
  529.     .ReplaceAll
  530.     .InitFindAndReplace True
  531.     .Type "[CtrlEnd]"
  532.     .Type "[ctrlshiftLeft][Right][shiftLeft]"
  533.     .Text.Font.UpperCase = True
  534.     .Type "[CtrlHome]"
  535.     .Type "[shiftRight]"
  536.     .Text.Font.UpperCase = True
  537.     .Type "[CtrlHome]"
  538.     .Type "[shiftCtrlEnd]"
  539.     .CopySelection
  540.     .activeDOCUMENT.CHANGED = False  
  541.     .activedocument.CLOSE
  542.     .Paste
  543. End Sub
  544.