[請益] BCB透過OLE修改word中文字方塊的字串
大家好
由於準備套印比賽的獎狀
須要把bcb程式中run出的獎狀內容
套印到獎狀樣版上 進行列印
OLE的資料 特別是C++的 網路上不好找
找來找去只找到這個(只貼取代字串的部分 開檔關檔測試是OK的)
但實際執行的結果 只會對樣版中的<單位>做取代
如果<單位>是打在文字方塊中就搜尋不到
網路上其它OLE控制文字方塊的資料都是新增文字方塊 不能符合我的須求
請問是否有OLE的高手可以指導一下呢? 謝謝
Variant WordSel=word.OlePropertyGet("Selection");
WordSel.OleFunction("WholeStory");
Variant Replacement,WordFind;
WordFind=WordSel.OlePropertyGet("Find");
WordFind.OleFunction("ClearFormatting");
WordFind.OlePropertySet("MatchCase",false);
WordFind.OlePropertySet("MatchWholeWord",true);
WordFind.OlePropertySet("Text","<單位>");
WordFind.OlePropertySet("Wrap",1);
WordFind.OlePropertySet("Forward",true);
WordFind.OlePropertySet("Format",false);
WordFind.OlePropertySet("MatchByte",true);
WordFind.OlePropertySet("MatchWildcards",false);
WordFind.OlePropertySet("MatchSoundsLike",false);
WordFind.OlePropertySet("MatchAllWordForms",false);
WordFind.OlePropertySet("MatchWildcards",false);
WordFind.OlePropertySet("MatchAllWordForms",false);
Replacement=WordFind.OlePropertyGet("Replacement");
Replacement.OlePropertySet("Text","");
Variant vValue=WordFind.OleFunction("Execute");
while(vValue==Variant(true))
{
WordSel.OleFunction("TypeText","XX高中");
vValue=WordFind.OleFunction("Execute");
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.4.77.100
※ heibow:轉錄至看板 C_and_CPP 09/24 11:47
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
