delphi2007 教程

Sub   Macro1()  
  '  
  '   Macro1   Macro  
  '   宏在   2002-2-1   由   yzhshi   录制  
  '  
          Selection.Find.ClearFormatting  
          Selection.Find.Replacement.ClearFormatting  
          With   Selection.Find  
                  .Text   =   "讨论"  
                  .Replacement.Text   =   "研讨"  
                  .Forward   =   True  
                  .Wrap   =   wdFindContinue  
                  .Format   =   False  
                  .MatchCase   =   False  
                  .MatchWholeWord   =   False  
                  .MatchByte   =   True  
                  .MatchWildcards   =   False  
                  .MatchSoundsLike   =   False  
                  .MatchAllWordForms   =   False  
          End   With  
          Selection.Find.Execute   Replace:=wdReplaceAll  
  End   Sub  
  2、 精简宏代码。通常，生成的宏代码有很多语句对你要实现的功能来说都是多余的。我们要  
  做的就是如何找到我们需要的代码。此时我们查看具体的代码，剔除明显没有用途的代码，然后光  
  标停留在宏上面，按F5执行，看是否实现功能，逐步精简，得到最小代码。此步骤可参考Word的  
  VBA帮助来判断代码是否有用。  
   
  如上例，精简下来，剩下以下代码。  
  Sub   Macro1()  
          Selection.Find.ClearFormatting  
          Selection.Find.Replacement.ClearFormatting  
          With   Selection.Find  
                  .Text   =   "讨论"  
                  .Replacement.Text   =   "研讨"  
          End   With  
          Selection.Find.Execute   Replace:=wdReplaceAll  
  End   Sub  
   
  3、 转换成Delphi代码。这一步其实很简单，对于VBA代码，只需要在前面添加Word的句柄或者  
  文档的句柄或者文档的句柄.Application就可以直接操作了。  
  例：逐句翻译：（Word_Handle是Word的句柄）  
  （VB）           Selection.Find.ClearFormatting  
  （Delphi）     Word_Handle.Selection.Find.ClearFormatting;  
   
  （VB）           Selection.Find.Replacement.ClearFormatting  
  （Delphi）     Word_Handle.Selection.Find.Replacement.ClearFormatting;  
  以上两句简单添加上Word的句柄就可以了。  
   
  （VB）           With   Selection.Find  
                              Text   =   "讨论"  
                              Replacement.Text   =   "研讨"  
  End   With  
  （Delphi）     Word_Handle.Selection.Find.Text   :=   '讨论';  
      Word_Handle.Selection.Find.Replacement.Text   :=   '研讨';  
  以上几句因为Delphi不支持Variant的With结构，所以分开写。同时转换成Delphi语法。  
   
  （VB）         Selection.Find.Execute   Replace:=wdReplaceAll  
  （Delphi）   Word_Handle.Selection.Find.Execute(Replace:=2);  
  上面一句存在一个小技巧，如何找到常量wdReplaceAll的数值为2？  
  这里有几个办法，  
  一：直接use   Word2000或者word97单元，那么直接使用常量wdReplaceAll就可以了；  
  二：到Word2000.pas或者Word97.pas里面查找wdReplaceAll的数值；  
  三：直接使用VBA代码见wdReplaceAll的数值显示出来。办法是写一个小过程，然后执行，如下：  
  Sub   ShowValue()  
      MsgBox   wdReplaceAll  
  End   Sub  
   
  最后补充一下，很多关于Word的东西可以从Word的VBA帮助里面获得。具体文件在  
  ?:\Program   files\Microsoft   Office\Office10\2052(XP)下，VBAWD10.CHM，其他版本路径基本类似。  
 

我想要的是调用word中写好的宏,而不是改写  
  如果是改写能实现下面的问题吗?  
   
  我想设置word到顶的边距为8.11cm  
  但delphi中只认象数,CM到象数的转换又没有标准所以只能在word中写好宏,用delphi调用