请教个搜索的方法 我想问一下,vba调用word搜索的方法怎么写比如,我向搜索"value"在word中的位置.另外怎么用JS去调用它呢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这东西,我没有一点基础,现在是要写程序,用js操作word了. 宏录制,查看word里的宏代码,照着写 Selection.Find.ClearFormatting With Selection.Find .Text = "df" .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 Selection.Find.Execute Selection.Find.ExecuteEnd Sub以上代码,怎么用javascript调用呢Application.Selection.Range.Find这个已经有了 Dim worddPrivate Sub Command1_Click()Set wordd = CreateObject("Word.Application") wordd.Documents.open "c:\muoban.doc" wordd.Visible = True wordd.Activate '查找内容并替换内容 With wordd.Selection.Find .Text = "查找内容" .Replacement.Text = "替换内容" .Forward = True .Wrap = 1 .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With wordd.Selection.Find.Execute Replace:=2 wordd.ActiveDocument.Save wordd.Application.Quit End Sub 真没听说过用js调用宏命令的.也没听说c++或者c#调用宏命令的,这是为什么呢??! 做家务是不是有点像编程序 textbox读取问题? 关于access的查询显示问题 高手请进 关于variant的一个问题 请教高手,VB中如何将SQL SERVER库中的数据导出为ACCESS的MDB库 如何备份数据库啊! csdn难解vb问题汇集 (1)021013 获得本机IP地址的函数是哪个? 我连接数据已经成功,为什么进行错误检查还会有错误提示?! 求助:如何使列表框中位置索引最大的项目总自动显示在列表框中? 公共模块类怎么写?
Selection.Find.ClearFormatting
With Selection.Find
.Text = "df"
.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
Selection.Find.Execute
Selection.Find.Execute
End Sub
以上代码,怎么用javascript调用呢
Application.Selection.Range.Find这个已经有了
Private Sub Command1_Click()
Set wordd = CreateObject("Word.Application")
wordd.Documents.open "c:\muoban.doc"
wordd.Visible = True
wordd.Activate
'查找内容并替换内容
With wordd.Selection.Find
.Text = "查找内容"
.Replacement.Text = "替换内容"
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wordd.Selection.Find.Execute Replace:=2
wordd.ActiveDocument.Save
wordd.Application.Quit
End Sub