我正在使用我們的實驗室報告系統,並希望自動執行一些任務。我們使用的系統不直觀,並使用word文檔輸入數據。有幾個段落標題(受保護的標題)。在MS Word中搜索單詞使用RegEx從Delphi中導入到Delphi應用程序的文檔
我想一語中的一個段落複製和使用Delphi應用程序
GetActiveOleObject('Word.Application');
如何使用正則表達式爲它粘貼到另一個段落。好東西是我想複製的可搜索短語是大寫,而其他所有內容都是大寫。例如:
第三段落標題:--->接收機注< ----這不是
將標本容器福爾馬林接收在該工作站
文檔(受保護的)的可編輯標本接收煥發出無固定在該工作站
我的結果必須是這樣的:
第四段標題--->接收<的方法------再次保護
集裝箱福爾馬林<的-----這裏就是我想從第一場比賽粘貼
WITH NO固定< -----這裏的第二場比賽FRESH ...等
所以我的感覺是有一個Delphi代碼在段落標題「接收者註釋」和「接收方法」之間搜索大寫字母,並在下一段中列出。
我使用delphi xe3,我知道如何使用正則表達式與其他文件,但不使用delphi的單詞。任何輸入,代碼片段,例子等將非常感謝!
你會更好的使用Word Automation,而不是試圖用正則表達式來做這件事(Word文檔使用格式化信息進行編碼,所以你必須首先提取文本)。藉助Word自動化,您可以使用Word VBA對象模型輕鬆訪問整個段落(或任何段落組),並輕鬆訪問各條線路,該模型有很好的文檔記錄。 –
你在那裏好點。我在字自動化方面的經驗非常有限。你可以給我一個例子嗎? – user1817376
這是一個非現場的例子列表[一](http://www.djpate.freeserve.co.uk/AutoWord.htm#HowDoI)。請參閱組件面板中「服務器」選項卡上的「TWordApplication」和「TWordDocument」組件。那些應該讓你開始,一旦你有一個想法在這裏問什麼,有些人對Office自動化和Delphi很瞭解,在這裏回答問題。 (我會爲你的問題添加通用的'delphi'標記,並省略'delphi-xe3',除非你的問題是特定於版本的。大多數非FireMonkey或XPlatform相關的東西都是通用的。) –