Foxtable(狐表)用户栏目专家坐堂 → [求助]word替换表头字符代码


  共有2620人关注过本帖树形打印复制链接

主题:[求助]word替换表头字符代码

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1302 积分:9451 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助]word替换表头字符代码  发帖心情 Post By:2021/11/30 21:37:00 [只看该作者]

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
app.ActiveWindow.ActivePane.View.SeekView = app.Selection.wdSeekCurrentPageHeader
    app.Selection.Find.Text = "BB"
    app.Selection.Find.Replacement.ClearFormatting()
    app.Selection.Find.Replacement.Text = "CCC"
    app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   ' MessageBox.Show("OK:")
End try
[此贴子已经被作者于2021/11/30 21:55:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/30 22:22:00 [只看该作者]

app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader

 回到顶部
帅哥哟,离线,有人找我吗?
2900819580
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1302 积分:9451 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2021/12/1 16:32:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.zip

老师还有二个问题
1、以上代码如果文件d:\test.doc打开了,会出现假死现象,如何判断文件是否打开,如果打开了如何强行不保存 关闭
2、如附档所示,文档中有三个AAA的字段,如何只替换中间那个“AAA” ,如何控制在某一行增加内容,或替换内容

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/1 16:39:00 [只看该作者]

1、参考:http://www.foxtable.com/webhelp/topics/2126.htmhttp://www.foxtable.com/webhelp/topics/2713.htm
2、学会看微软帮助:https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.office.interop.word.wdreplace?view=word-pia

 回到顶部