问题描述
我想用模板替换里面的特殊字符
解决方案
解决方案二：
路过帮顶=============11月6日，论坛升级公告，积分已经做了调整！http://topic.csdn.net/u/20081107/11/b27dc75f-14b1-4594-9de3-5b18d9e36a11.html此次调整增加了两个新的可用分获取渠道：1：帖子被推荐（加精）后，帖主可以获得88分的可用分奖励；2：帖子结帖后会返还帖主50%的悬赏分，无满意结帖不返还分数；3：接下来会不断增加新的可用分获取途径，比如参与活动赠送等，请大家多关注；
解决方案三：
******************************************************************************************************'功能：开启一个预先定义好的WORD模板并替换模板中指定的某个字符串'调用：CallOpenWordAndReplaceChar("001.doc","$1","宝宝:)")'参数：Filename:WORD文件名称,ReplacedStr:WORD中待替换的字符,ReplacementStr：程序中传递到WORD中的字符串'组件:在工程中引用ORMicrosoftWordX.0objectlibrary才能使用word.application'作者：FlashAsp'QQ：21792038'日期：2006-03-12'******************************************************************************************************PublicSubOpenWordAndReplaceChar(FileNameAsString,ReplacedStrAsString,ReplacementStrAsString)DimwordAppAsNewWord.ApplicationDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimiAsIntegerFileName=App.Path&""&FileNameSetwordApp=CreateObject("Word.Application")wordApp.Visible=TruewordApp.Documents.Open(FileName)SetwordSelection=wordApp.Selection'指定文件编辑位置SetwordArange=wordApp.ActiveDocument.Range(0,1)'激活编辑位置wordArange.Select'初始化是否替换成功标志IfReplacedStr<>""AndReplacementStr<>""ThenReplaceSign=TrueDoWhileReplaceSignReplaceSign=wordArange.Find.Execute(ReplacedStr,MatchCase,,,,,,wdFindContinue,,ReplacementStr,True)LoopEndIf'回到打印状态wordApp.ActiveWindow.View.Type=wdPrintViewEndSub
解决方案四：
基本要求：需安装WORDFunctionWordReplace(FileNameAsString,SearchStringAsString,ReplaceStringAsString,OptionalSaveFileAsString="",OptionalMatchCaseAsBoolean=False)AsIntegerOnErrorGoToErrorMsg'函数运行时发生遇外或错误,转向错误提示信息DimwordAppAsNewWord.ApplicationDimwordDocAsNewWord.DocumentDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimIAsInteger'判断将要替换的文件是否存在IfDir(FileName)=""Then'替换文件不存在MsgBox"未找到"&FileName&"文件"'提示替换文件不存在信息WordReplace=-2'返回替换文件不存在的值ExitFunction'退出函数EndIfSetwordApp=CreateObject("Word.Application")'建立WORD实例wordApp.Visible=False'屏蔽WORD实例窗体SetwordDoc=wordApp.Documents.Open(FileName)'打开文件并赋予文件实例SetwordSelection=wordApp.Selection'定位文件实例SetwordArange=wordApp.ActiveDocument.Range(0,1)'指定文件编辑位置wordArange.Select'激活编辑位置I=0'初始化替换次数值ReplaceSign=True'初始化是否替换成功标志DoWhileReplaceSignReplaceSign=wordArange.Find.Execute(SearchString,MatchCase,,,,,,wdFindContinue,,ReplaceString,True)'查找并替换'判断查找并替换是否成功,如果成功替换次数值递增1IfReplaceSign=TrueThenI=I+1EndIfLoopMsgBox"已完成对文档的搜索并完成"&I&"替换。"'提示总替换次数'如果替换成功，则提示是否保存IfI>0Then'判断是否需要另存IfTrim(SaveFile)<>""Then'需要另存IfDir(SaveFile)=""ThenwordDoc.SaveAsSaveFile'文件另存为……Else'咨询是否替换文件,如果不替换则放弃本次操作,否则存在本次操作IfMsgBox("是否替换"&SaveFile&"文件？",vbYesNo+vbQuestion,"替换")=vbYesThenwordDoc.SaveAsSaveFile'文件另存为……EndIfEndIfElseIfMsgBox("是否保存对"&SaveFile&"更改？",vbYesNo+vbQuestion,"保存")=vbYesThenwordDoc.Save'保存在原文件中EndIfEndIfEndIfWordReplace=I'返回替换次数wordDoc.Close'关闭文档实例wordApp.Quit'关闭WORD实例SetwordDoc=Nothing'清除文件实例SetwordApp=Nothing'清除WORD实例ExitFunctionErrorMsg:MsgBoxErr.Number&":"&Err.Description'提示错误信息WordReplace=-1'返回错误信息值wordDoc.Close'关闭文档实例wordApp.Quit'关闭WORD实例SetwordDoc=Nothing'清除文件实例SetwordApp=Nothing'清除WORD实例EndFunction注意事项：单击在菜单“工程”中的“引用”菜单项，弹出窗口，在列表框中选择“MicrosoftWordXObjectLibaray“，单击引用在VB6.0+OfficeXP+Windows测试通过本文来自:乘风原创程序(http://www.qqcf.com)详细出处参考：http://study.qqcf.com/web/162/17376.htm