- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]word替换表头字符代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173462)
-- 发布时间：2021/11/30 21:37:00
-- [求助]word替换表头字符代码
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编辑过]
-- 发布时间：2021/11/30 22:22:00
--
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
-- 发布时间：2021/12/1 16:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.zip |
1、以上代码如果文件d:\\test.doc打开了，会出现假死现象，如何判断文件是否打开，如果打开了如何强行不保存 关闭
2、如附档所示，文档中有三个AAA的字段，如何只替换中间那个“AAA” ，如何控制在某一行增加内容，或替换内容
-- 发布时间：2021/12/1 16:39:00
--
1、参考：http://www.foxtable.com/webhelp/topics/2126.htm、http://www.foxtable.com/webhelp/topics/2713.htm
2、学会看微软帮助：https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.office.interop.word.wdreplace?view=word-pia