| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 748 人关注过本帖
标题:怎么解决word问题
只看楼主 加入收藏
caohongyi
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:31
专家分:49
注 册:2010-8-13
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
怎么解决word问题
各位大侠:
            市场经营场所合作年度合同
                                        合同编号:aaaaa
  立约双方:
  合作方:市场经营服务有限公司  (以下简称甲方);
    合作方:bbbbb(以下简称乙方)。 
  根据我国《合同法》、《城市房地产管理法》等相关法律规定,以及甲、乙双方已签订的《市场经营合作合同》,经甲、乙双方友好协商,就甲乙双方合作经营甲方市场内摊位事宜,签订年度合作合同如下:
     第一条 合作摊位基本情况
  乙方合作使用的摊位位于青岛市辽宁路80号“青岛装饰城”市场内ccccc 号摊位。
     1、 乙方合作使用的摊位面积为ddddd平方米。
     第二条 合作摊位的用途
     1、 乙方以上述合作摊位用于  eeeee  品牌的经营,且乙方已得到该品牌产品生产厂家的销售授权,所需相关授权文件作为本合同附件;
     2、 乙方确认:未经甲方书面同意,乙方不得改变上述经营内容,否则,视为乙方违约,甲方有权解除本合同。
     第三条 合作费用缴付期限
乙方对上述摊位的合作费用缴付周期为 壹  年,即自 fffff 止。
     第四条 合作费用
     1、 上述期限内,乙方应缴纳合作摊位使用费总计为人民币ggggg  元;甲方给予乙方 60天免收合作摊位使用费优惠,乙方实际应缴付合作摊位使用费人民币(大写)hhhhh。
     2、 乙方应于本合同签订当日,一次性付清上述应缴付合作摊位使用费。
     ..........   
   里边其他 AAAAA----hhhhhh 怎么替换成我需要的文字,签合同很重要
搜索更多相关主题的帖子: 合作 经营 房地产 青岛装饰 青岛市 
2011-11-17 15:50
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 

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]

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

2011-11-17 15:59
caohongyi
Rank: 2
来 自:青岛
等 级:论坛游民
帖 子:31
专家分:49
注 册:2010-8-13
收藏
得分:0 
   用VFP怎么去控制呢 ?
2011-11-17 20:50
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:20 
供楼主参考:
**注意,在查找的变量与中文文本之间,至少要有一个空格
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
合同.rar (4.37 KB)


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

相互学习,互相交流,共同提高。
2011-11-17 21:04
快速回复:怎么解决word问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035285 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved