各位大侠：
            市场经营场所合作年度合同
       　                               　合同编号：aaaaa
　　立约双方：
　　合作方：市场经营服务有限公司  （以下简称甲方）；
    合作方：bbbbb（以下简称乙方）。　
　　根据我国《合同法》、《城市房地产管理法》等相关法律规定，以及甲、乙双方已签订的《市场经营合作合同》，经甲、乙双方友好协商，就甲乙双方合作经营甲方市场内摊位事宜，签订年度合作合同如下：
     第一条 合作摊位基本情况
　　乙方合作使用的摊位位于青岛市辽宁路80号“青岛装饰城”市场内ccccc 号摊位。
     1、 乙方合作使用的摊位面积为ddddd平方米。
     第二条 合作摊位的用途
     1、 乙方以上述合作摊位用于  eeeee  品牌的经营，且乙方已得到该品牌产品生产厂家的销售授权，所需相关授权文件作为本合同附件；
     2、 乙方确认：未经甲方书面同意，乙方不得改变上述经营内容，否则，视为乙方违约，甲方有权解除本合同。
     第三条 合作费用缴付期限
乙方对上述摊位的合作费用缴付周期为 壹  年，即自 fffff 止。
     第四条 合作费用
     1、 上述期限内，乙方应缴纳合作摊位使用费总计为人民币ggggg  元；甲方给予乙方 60天免收合作摊位使用费优惠，乙方实际应缴付合作摊位使用费人民币（大写）hhhhh。
     2、 乙方应于本合同签订当日，一次性付清上述应缴付合作摊位使用费。
     ..........   
   里边其他 AAAAA----hhhhhh 怎么替换成我需要的文字，签合同很重要

STRTRAN(cSearched, cExpressionSought [, cReplacement]
   [, nStartOccurrence] [, nNumberOfOccurrences] [, nFlags])
 

参数
cSearched

指定要搜索的字符表达式，cSearched 可以是一个备注字段。
cExpressionSought

指定在 cSearched 中要搜索的字符表达式，搜索过程区分大小写。cExpressionSought 可以是一个备注字段。
[, cReplacement]

指定用来替换在 cSearched 中每次出现的 cSearchFor 的字符表达式。如果省略 cReplacement，则用空字符串替换每次出现的 cExpressionSought 。
[, nStartOccurrence]

指定哪个出现的 cExpressionSought 首先替换。例如，如果 nStartOccurrence 是 4，则替换 cSearched 中第 4 个出现的 cExpressionSought，而前面三次出现的 cExpressionSought 保持不变。如果省略 nStartOccurrence，替换开始的位置默认为第一次出现位置。
[, nNumberOfOccurrences]

指定要替换的 cExpressionSought 数目。如果省略 nNumberOfOccurrences，则从用 nStartOccurrence 指定的位置开始，替换所有出现的 cExpressionSought。
[, nFlags]

指定按照该值后面进行区分大小写的搜索。

   用VFP怎么去控制呢 ？

供楼主参考：
**注意，在查找的变量与中文文本之间，至少要有一个空格
oWord=Createobject("Word.Application")
oWord.Documents.Open('i:\市场经营场所合作年度合同.doc')
oWord.Visible=.F.
oWord.Selection.Find.Execute("aaaaa",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"2011-001",1) &&替换
oWord.Selection.Find.Execute("bbbbb",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"×××科技有限公司",1) &&替换
oWord.Selection.Find.Execute("ccccc",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"A001",1) &&替换
**……
oWord.Selection.Find.Execute("hhhhh",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"壹仟叁佰陆拾元",1) &&替换
oWord.Documents.Save() &&保存
oWord.Quit
Release oWord


[ 本帖最后由 qjbzjp 于 2011-11-28 08:11 编辑 ]