用delphi控制word，如何替换word中页眉文字，或者设置页眉

masong_1978 2013-06-13 03:29:39

如题，我想用delphi控制word，如何替换word中页眉文字？

...全文

353 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

随行的太阳 2013-06-16

打赏
举报

虎子8 2013-06-15

打赏
举报

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _ Selection.Range, RichText:=True Selection.TypeText Text:="就这样明白吧" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 这是vb的转下delphi 一看就知吧

yadan_tanchfeng 2013-06-14

打赏
举报

用Word录制个宏，参考宏里面的代码

reverzeng 2013-06-14

打赏
举报

调用word功能,先搜索,再替换,可参考: var FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant; begin FindText := '<#Name>'; MatchCase := False; MatchWholeWord := True; MatchWildcards := False; MatchSoundsLike := False; MatchAllWordForms := False; Forward := True; Wrap := wdFindContinue; Format := False; ReplaceWith := 'Delphi'; Replace := True; WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace ); end;

masong_1978 2013-06-13