我的IE浏览器打开就是QQ导航，怎么把他设置成百度？_百度知道
我的IE浏览器打开就是QQ导航，怎么把他设置成百度？
应该是你最近下载的软件设置中，默认绑定了你的浏览器主页。找到该软件，修改设置金山或者360或者腾讯管家，都会带&锁定浏览器主页&的功能。利用它设置百度首页后锁定。
其他类似问题
为您推荐：
提问者采纳
打开百度，Alt+Home
提问者评价
ie浏览器的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 1078|回复: 11
VB怎么打开一个已存在的word，并把它设为激活状态？
阅读权限20
在线时间 小时
本帖最后由 飞雪520 于
14:56 编辑
VB怎么打开一个已存在的word，并把它设为激活状态，并把这个word内容里面的2015年替换成2016年？
14:56 上传
点击文件名下载附件
8.87 KB, 下载次数: 2
阅读权限90
在线时间 小时
Sub bajifeng()
Dim wdApp As Word.Application, wdDoc As Word.Document
Set wdApp = New Word.Application
With wdApp
& && &&&.Documents.Open XPath&&& wFileName & &.docx&
& && &&&.Visible = False
& && &&&.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument& & '设置位置在正文
& && &&&'------
& && && && &sw = &数据&
& && && && &sx = ...
& && && && &.Selection.HomeKey Unit:=wdStory& & '光标置于文件首
& && && && &If .Selection.Find.Execute(sw) Then& & '查找到指定字符串
& && && && && & .Selection.Text = sx& & '替换字符串
& && && && &End If
& && &&&Next
& && &&&'-------
& & End With
End Sub复制代码
阅读权限90
在线时间 小时
没有附件，给你写好了框架
自己补充 路径 文件名 和 新、旧 字符串就可以了
阅读权限20
在线时间 小时
没有附件，给你写好了框架
自己补充 路径 文件名 和 新、旧 字符串就可以了
谢谢了,真是感激不尽!
只是我是小白,请教这段代码是放在VB的form1里还是放在模块里调用?
我上传了附件,还请指教!我是找了好几天,在网上都搜不到答案.
阅读权限90
在线时间 小时
& & & & & & & &
谢谢了,真是感激不尽!
只是我是小白,请教这段代码是放在VB的form1里还是放在模块里调用?
我上传了附件, ...
根据你的附件
帮你写好了代码，请测试。
阅读权限90
在线时间 小时
& & & & & & & &
Sub bajifeng() 'bajifeng
'http://club.excelhome.net/thread--1.html
Dim wdApp As Word.Application, wdDoc As Word.Document
XPath = ThisWorkbook.Path & &\&
wfilename = &2015年数据.docx&
Set wdApp = New Word.Application
With wdApp
& & .Documents.Open XPath & wfilename
& & .Visible = True
& & .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument& & '设置位置在正文
& & '------
& & sw = [a2]& &'旧文本
& & sx = [b2]& &'新文本
& & Do
& && &&&.Selection.HomeKey Unit:=wdStory& & '光标置于文件首
& && &&&If .Selection.Find.Execute(sw) Then& & '查找到指定字符串
& && && && &n = n + 1
& && && && &.Selection.Text = sx& & '替换字符串
& && &&&Else
& && && && &n = 0
& && &&&End If
& & Loop Until n = 0
& & '-------
& & .Documents.Save
& & .Documents.Close
End With
wdApp.Quit
End Sub复制代码
阅读权限90
在线时间 小时
本帖最后由 bajifeng 于
15:28 编辑
既然是EXCEL板块，就用EXCEL VBA给你写。
通过EXCEL操作WORD,WORD不用打开，也不会出现。
15:28 上传
点击文件名下载附件
27.93 KB, 下载次数: 9
阅读权限20
在线时间 小时
既然是EXCEL板块，就用EXCEL VBA给你写。
谢谢!如果让用户自己选择打开任意地方的word,怎么写代码呢?是不是用到activeword这样的句子?
阅读权限90
在线时间 小时
本帖最后由 bajifeng 于
16:22 编辑
Sub 替换Word文本()& & 'bajifeng
'http://club.excelhome.net/thread--1.html
Dim sw$, sx$, n%, iMannual$, xpath$, wfilename$, pthfnm$
iMannual = &Y&& & 'Y表示手动，N表示当前目录
Dim wdApp As Word.Application, wdDoc As Word.Document
If iMannual = &Y& Then
& & With Application.FileDialog(msoFileDialogOpen)& &&&'打开文件选择窗口
& && &&&If .Show = -1 Then
& && && && &pthfnm = .SelectedItems(1)
& && &&&Else
& && && && &MsgBox &已取消选择文件！&
& && && && &End
& && &&&End If
& & End With
Else
& & xpath = ThisWorkbook.Path & &\&& &&&'当前目录下
& & wfilename = &2015年数据.docx&
& & pthfnm = xpath & xfilename
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wdApp = New Word.Application
With wdApp
& & .Documents.Open pthfnm
& & .Visible = False
& & .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument& & '设置位置在正文
& & '------
& & sw = [a2]& &'旧文本
& & sx = [b2]& &'新文本
& & Do
& && &&&.Selection.HomeKey Unit:=wdStory& & '光标置于文件首
& && &&&If .Selection.Find.Execute(sw) Then& & '查找到指定字符串
& && && && &n = n + 1
& && && && &.Selection.Text = sx& & '替换字符串
& && &&&Else
& && && && &n = 0
& && &&&End If
& & Loop Until n = 0
& & '-------
& & .Documents.Save
& & .Documents.Close
End With
wdApp.Quit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub复制代码
阅读权限90
在线时间 小时
本帖最后由 bajifeng 于
16:23 编辑
&&&&&&&&&&&&&&&&&&&&&&&
请测试附件，觉得好用，送朵红花（本楼右下角-&评分），如有问题请回复。
16:23 上传
点击文件名下载附件
29.97 KB, 下载次数: 4
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师您的举报已经提交成功，我们将尽快处理，谢谢！
上面说的都不对
Adobe Streamline 这个软件可以~你上网下一个看看
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'}