通過QT查找Word中的關鍵字，並做高亮或刪除操作

来源:https://www.cnblogs.com/Amos-haoxh/archive/2019/05/13/10859357.html
-Advertisement-
Play Games

最近由於項目需要，要用QT操作Word文檔。具體的工作需求：在指定的Word文檔（*.doc文件/*.docx文件）中查找關鍵字，找到後做高亮操作或者直接刪除操作，然後另存為到別的目錄（表示這個文件被操作過了）。 這個功能很簡單，確實挺簡單，但由於是第一次用QT操作Word文檔，所以仍需要經過一番查 ...


最近由於項目需要，要用QT操作Word文檔。具體的工作需求：在指定的Word文檔（*.doc文件/*.docx文件）中查找關鍵字，找到後做高亮操作或者直接刪除操作，然後另存為到別的目錄（表示這個文件被操作過了）。

 

這個功能很簡單，確實挺簡單，但由於是第一次用QT操作Word文檔，所以仍需要經過一番查找資料。網上用QT操作Word文檔的資料不是很多（可能是我沒找對地方），所以經過了一段時間的碰壁之後（沒有現成的，哪怕是半成品），我決定還是從源頭看起：

　　1.查看幫助文檔：Microsoft Word Visual Basic參考.chm。這是操作Word文檔的VBA介面文檔

　　2.查看官方網站的幫助文檔：https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.word?view=word-pia

　　　　“查找”在這：https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.word.find.hithighlight?view=word-pia#Microsoft_Office_Interop_Word_Find_HitHighlight_System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__System_Object__

 

要想用QT操作office文檔，就要用到QAxWidget類和QAxObject類首先要在pro文件中配置一個模塊“qaxcontainer”，也就是添加一行代碼，即：

　　CONFIG += qaxcontainer

在找到關鍵字之後，我還保存了一些數據：文件名、文件所在的路徑、關鍵字所處的位置。如果你不需要這些數據，可以刪減掉。

QList<QString> fileNameList;    // 保存文件名
QList<QString> filePathList;    // 保存文件路徑
QList<QStringList> keyWordsPositionList;    // 保存關鍵字所在位置

首先介紹一個函數，這個函數通過正則表達式用來定位關鍵字所處在的語句。這個函數會在後面的高亮操作函數和直接刪除函數里調用到：

// 查找關鍵字的位置
// fileContent：文件內容；keyWord：關鍵字
QStringList findKeyWordsPosition(QString fileContent, QString keyWord)
{
    QStringList resList;
    if (fileContent.contains(keyWord)){
        qDebug() << QObject::tr("包含子字元串 ： %1").arg(keyWord);

        int startIndex = 0;
//        int count = 0;
        int keyWordsLen = keyWord.length();
        QRegExp rx(QObject::tr("[，。：\r]?([^，。：\r]*(%1)[^，。：\r]*)[，。：\r]?").arg(keyWord));

        while ((startIndex = rx.indexIn(fileContent, startIndex)) != -1){
            QString resStr = rx.cap(1).mid(0);   // 提取子字元串所在的語句
            if (resStr.contains("\r"))
                resStr.replace("\r", "");
            resList << resStr;

            // 找到子字元串
            int findIndex = fileContent.indexOf(keyWord, startIndex);
//            qDebug() << QObject::tr("keyWords 出現的位置 : %1").arg(findIndex);
            startIndex = findIndex + keyWordsLen;
//            qDebug() << QObject::tr("keyWords 出現的次數 : %1").arg(++count);
            qDebug() << "\n";
        }

        return resList;
    }
    return resList << "";
}

首先是高亮操作函數：

 

// 高亮操作函數
// dirName：是待檢查文件的路徑；keyWords：是要查找的關鍵字（查找的關鍵字可能是多個）
bool highLightKeyWordsinWordFile(QString dirName, QStringList keyWords)
{
    int lastSeparatorIndex = dirName.lastIndexOf(QDir::separator());
    QString saveAsFilePath = storeDir + dirName.mid(lastSeparatorIndex+1);  // 另存為的路徑

    QAxWidget wordApplication("Word.Application");
    QAxObject *documents = wordApplication.querySubObject("Documents");
    documents->dynamicCall("Open(const QString&)", dirName);
    wordApplication.setProperty("Visible", QVariant(false));
    QAxObject* m_doc = wordApplication.querySubObject("ActiveDocument");    // 獲取當前工作簿
    QAxObject* pRange = m_doc->querySubObject("Content()");

    if (NULL != pRange)
    {
        // 查找關鍵字
        QAxObject *pFind = pRange->querySubObject("Find()");
        QStringList keyWordsPosition;
        if (NULL != pFind)
        {
            pFind->dynamicCall("ClearFormatting()");
            pFind->setProperty("Format", true);
            pFind->setProperty("MatchCase", false);
            pFind->setProperty("MatchWholeWord", false);
            pFind->setProperty("MatchByte", true);
            pFind->setProperty("MatchWildcards", false);
            pFind->setProperty("MatchSoundsLike", false);
            pFind->setProperty("MatchAllWordForms", false);

            for (int i=0; i<keyWords.size(); ++i){
                // 找到關鍵字所在的位置，得到一個position，將position添加到keyWordsPosition中。
                QString keyWord = keyWords.at(i);
                QStringList position = findKeyWordsPosition(pRange->property("Text").toString(), keyWord);
                if (!position.contains("")){
                    keyWordsPosition << position;

                    pFind->setProperty("Text", keyWord);
                    pFind->dynamicCall("Execute()");
                    while (pFind->property("Found").toBool())
                    {
                        bool isHighlight = pFind->parent()->setProperty("HighlightColorIndex","wdYellow");
                        pFind->dynamicCall("Execute()");

                        if (!isHighlight)
                        {
                            delete pFind;
                            pFind = NULL;
                            delete pRange;
                            pRange = NULL;
                            m_doc->dynamicCall("Close(boolean)", true);
                            wordApplication.dynamicCall("Quit ()");
                            delete m_doc;
                            m_doc = NULL;
                            return false;
                        }
                    }
                }
            }
        }
        if (keyWordsPosition.size() >= 1){
            QString fileName = dirName.mid(lastSeparatorIndex+1);
            QString filePath = dirName.mid(0, lastSeparatorIndex+1);
            fileNameList << fileName;
            filePathList << filePath;
            keyWordsPositionList << keyWordsPosition;

            m_doc->dynamicCall("SaveAs(const QString)", saveAsFilePath);
        }
        delete pFind;
        pFind = NULL;
        delete pRange;
        pRange = NULL;
        m_doc->dynamicCall("Close(Boolean)", true);
        m_doc->dynamicCall("Quit()");
        delete m_doc;
        m_doc = NULL;
        return true;
     }
    return true;
}

下麵這個是直接刪除操作函數

// dirName：是待檢查文件的路徑；keyWords：是要查找的關鍵字（查找的關鍵字可能是多個）
bool directDeleteKeyWordsinWordFile(QString dirName, QStringList keyWords)
{
    int lastSeparatorIndex = dirName.lastIndexOf(QDir::separator());
    QString saveAsFilePath = storeDir + dirName.mid(lastSeparatorIndex+1);        // 另存為的路徑

    QAxWidget wordApplication("Word.Application");
    QAxObject *documents = wordApplication.querySubObject("Documents");
    documents->dynamicCall("Open(const QString&)", dirName);
    wordApplication.setProperty("Visible", QVariant(false));
    QAxObject* m_doc = wordApplication.querySubObject("ActiveDocument");    // 獲取當前工作簿
    QAxObject* pRange = m_doc->querySubObject("Content()");
    QList<QVariant> vars;

    if (NULL != pRange)
    {
        // 查找關鍵字
        QAxObject *pFind = pRange->querySubObject("Find()");
        QStringList keyWordsPosition;
        if (NULL != pFind)
        {
            pFind->dynamicCall("ClearFormatting()");
            QAxObject *replacement = pFind->querySubObject("Replacement()");
            replacement->dynamicCall("ClearFormatting()");

            for (int i=0; i<keyWords.size(); ++i){
                QString keyWord = keyWords.at(i);
                // 找到關鍵字所在的位置，得到一個position，將position添加到keyWordsPosition中。
                QStringList position = findKeyWordsPosition(pRange->property("Text").toString(), keyWord);
                if (!position.contains("")){
                    keyWordsPosition << position;
                    vars << keyWord << false << false << false << false
                         << false << true << 1<< false << ""
                         << 2 << false << false << false << false; // wdReplaceNone-->0;wdReplaceAll-->2;wdReplaceOne-->1
                    bool isReplaced = pFind->dynamicCall("Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, "
                                                        "MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, "
                                                        "Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl)", vars).toBool();
                    if (!isReplaced){
                        delete pFind;
                        pFind = NULL;
                        delete pRange;
                        pRange = NULL;
                        m_doc->dynamicCall("Close(Boolean)", true);
                        m_doc->dynamicCall("Quit()");
                        delete m_doc;
                        m_doc = NULL;
                        QMessageBox openFileError(QMessageBox::Warning,
                                                  QObject::tr("文件處理錯誤"),
                                                  QObject::tr("文件 %1 處理錯誤，是否繼續檢查其他文件？").arg(dirName));
                        openFileError.addButton(QMessageBox::Yes);
                        openFileError.addButton(QMessageBox::No);
                        openFileError.setDefaultButton(QMessageBox::Yes);
                        if (openFileError.exec() == QMessageBox::No)
                            return false;
                    }

                }
            }
        }
        if (keyWordsPosition.size() >= 1){
            QString fileName = dirName.mid(lastSeparatorIndex+1);
            QString filePath = dirName.mid(0, lastSeparatorIndex+1);
            fileNameList << fileName;
            filePathList << filePath;
            keyWordsPositionList << keyWordsPosition;

            m_doc->dynamicCall("SaveAs(const QString)", saveAsFilePath);
        }
        delete pFind;
        pFind = NULL;
        delete pRange;
        pRange = NULL;
        m_doc->dynamicCall("Close(Boolean)", true);
        m_doc->dynamicCall("Quit()");
        delete m_doc;
        m_doc = NULL;
        return true;
     }
    return false;
}

 

好了，以上代碼可能無法正常運行，因為缺少一些變數的定義、頭文件的包含，我覺得這些你自己添加是完全OK的^-^。

 

因為自己需要的時候找不到資源，如果你也在找相似的資料，能給你帶來幫助，我的目的就達到了，哈哈

 

我發現在網上下載Word VBA和Excel VBA幫助文檔的時候需要金幣什麼的，很不方便。在此我還將Word VBA和Excel VBA幫助文檔的百度網盤下載鏈接放在這裡，供大家下載：

鏈接: https://pan.baidu.com/s/1-KTGdEVz_4C3yp_SBNlkIw 提取碼: ri4p

有不足的地方，請指正。

 


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • golang web 方案
    "概要" "開發" "web 框架" "資料庫" "認證" "日誌" "配置" "靜態文件服務" "上傳/下載" "發佈" "docker 打包" "部署中遇到的問題" "時區問題" 概要 輕量的基於 golang 的 web 開發實踐. golang 上手簡單, 第三方庫豐富, 對於業務沒那麼複雜 ...
  • Java 正則表達式
    1、正則表達式語法： ...
  • 【Java】深入理解Java中的spi機制
    深入理解Java中的spi機制 全名為 是JDK內置的一種服務提供發現機制,是Java提供的一套用來被第三方實現或者擴展的API，它可以用來啟用框架擴展和替換組件。 = 基於介面的編程＋策略模式＋配置文件 的動態載入機制 Java SPI的具體約定如下： 當服務的提供者，提供了服務介面的一種實現之後 ...
  • 死磕 java原子類之終結篇（面試題）
    概覽 原子操作是指不會被線程調度機制打斷的操作，這種操作一旦開始，就一直運行到結束，中間不會有任何線程上下文切換。 原子操作可以是一個步驟，也可以是多個操作步驟，但是其順序不可以被打亂，也不可以被切割而只執行其中的一部分，將整個操作視作一個整體是原子性的核心特征。 在java中提供了很多原子類，筆者 ...
  • 基於flask的網頁聊天室（四）
    基於flask的網頁聊天室（四） 前言 接前天的內容，今天完成了消息的處理 具體內容 上次使用了flask_login做用戶登錄，但是直接訪問login_requare裝飾的函數會報401錯誤，這裡可以自定義login_requare攔截後的操作： @login_manager.unauthoriz ...
  • JAVA 框架之面向對象設計原則
    面向對象設計原則： 單一職責原則 SRP ： 一個類或者行為只做一件事 。 降低代碼冗餘，提高可重用性，可維護性，可擴展性，可讀性 使用組合形式 單一職責原則 SRP ： 一個類或者行為只做一件事 。 降低代碼冗餘，提高可重用性，可維護性，可擴展性，可讀性 使用組合形式 里氏替換原則 LSP ： 所 ...
  • Java_面向對象的 static 和 abstract
    static:表示靜態的 static:可以用來修飾屬性、方法、代碼塊（或初始化塊）、內部類。 一、static修飾屬性（類變數）： 1.由類創建的所有的對象，都共用這一個屬性。 2.當其中一個對象對此屬性進行修改，會導致其他對象對此屬性的一個調用。 VS 實例變數 （非 static 修飾的屬性， ...
  • python迭代器(函數名的應用,新版格式化輸出f)
    1. 內容大綱 1. 函數名的運用 2. 新特性：格式化輸出 3. 迭代器： 可迭代對象 獲取對象的方法 dir() 判斷一個對象是否是可迭代對象 小結 迭代器 迭代器的定義 判斷一個對象是否是迭代器 迭代器的取值 可迭代對象如何轉化成迭代器 while迴圈模擬for迴圈機制 小結 可迭代對象與迭代 ...
一周排行
    -Advertisement-
    Play Games
  • 移動開發（一）：使用.NET MAUI開發第一個安卓APP
    移動開發（一）：使用.NET MAUI開發第一個安卓APP 對於工作多年的C#程式員來說，近來想嘗試開發一款安卓APP，考慮了很久最終選擇使用.NET MAUI這個微軟官方的框架來嘗試體驗開發安卓APP，畢竟是使用Visual Studio開發工具，使用起來也比較的順手，結合微軟官方的教程進行了安卓 ...
  • wpf ToggleButton選中效果和一個登錄界面
    前言 QuestPDF 是一個開源 .NET 庫，用於生成 PDF 文檔。使用了C# Fluent API方式可簡化開發、減少錯誤並提高工作效率。利用它可以輕鬆生成 PDF 報告、發票、導出文件等。 項目介紹 QuestPDF 是一個革命性的開源 .NET 庫，它徹底改變了我們生成 PDF 文檔的方 ...
  • 彈幕樹洞項目功能新增篇
    項目地址 項目後端地址： https://github.com/ZyPLJ/ZYTteeHole 項目前端頁面地址： ZyPLJ/TreeHoleVue (github.com) https://github.com/ZyPLJ/TreeHoleVue 目前項目測試訪問地址： http://tree ...
  • 第27篇 sqlserver2022詳細安裝步驟
    話不多說，直接開乾 一.下載 1.官方鏈接下載： https://www.microsoft.com/zh-cn/sql-server/sql-server-downloads 2.在下載目錄中找到下麵這個小的安裝包 SQL2022-SSEI-Dev.exe，運行開始下載SQL server； 二. ...
  • .NET 開源高性能 MQTT 類庫
    前言 隨著物聯網（IoT）技術的迅猛發展，MQTT（消息隊列遙測傳輸）協議憑藉其輕量級和高效性，已成為眾多物聯網應用的首選通信標準。 MQTTnet 作為一個高性能的 .NET 開源庫，為 .NET 平臺上的 MQTT 客戶端與伺服器開發提供了強大的支持。 本文將全面介紹 MQTTnet 的核心功能 ...
  • Serilog文檔翻譯系列（六） - 可用的接收器、增強器、格式化輸出
    Serilog支持多種接收器用於日誌存儲，增強器用於添加屬性，LogContext管理動態屬性，支持多種輸出格式包括純文本、JSON及ExpressionTemplate。還提供了自定義格式化選項，適用於不同需求。 ...
  • 警惕 Visual Studio 屬性求值副作用導致邏輯不符合預期
    目錄簡介獲取 HTML 文檔解析 HTML 文檔測試參考文章 簡介 動態內容網站使用 JavaScript 腳本動態檢索和渲染數據，爬取信息時需要模擬瀏覽器行為，否則獲取到的源碼基本是空的。 本文使用的爬取步驟如下： 使用 Selenium 獲取渲染後的 HTML 文檔 使用 HtmlAgility ...
  • [使用目前最新版]HybridCLR6.9.0+YooAsset2.2.4實現純C# Unity熱更新方案 (一)
    1.前言 什麼是熱更新 游戲或者軟體更新時，無需重新下載客戶端進行安裝，而是在應用程式啟動的情況下，在內部進行資源或者代碼更新 Unity目前常用熱更新解決方案 HybridCLR，Xlua，ILRuntime等 Unity目前常用資源管理解決方案 AssetBundles，Addressable， ...
  • 在 ASP.NET Core Web API 中使用操作篩選器統一處理通用操作
    本文章主要是在C# ASP.NET Core Web API框架實現向手機發送驗證碼簡訊功能。這裡我選擇是一個互億無線簡訊驗證碼平臺，其實像阿裡雲，騰訊雲上面也可以。 首先我們先去 互億無線 https://www.ihuyi.com/api/sms.html 去註冊一個賬號 註冊完成賬號後，它會送 ...
  • 第28篇 如何.net中實現高效可靠數據同步api
    通過以下方式可以高效，並保證數據同步的可靠性 1.API設計 使用RESTful設計，確保API端點明確，並使用適當的HTTP方法（如POST用於創建，PUT用於更新）。 設計清晰的請求和響應模型，以確保客戶端能夠理解預期格式。 2.數據驗證 在伺服器端進行嚴格的數據驗證，確保接收到的數據符合預期格 ...
所有分類