如何在背景不同的Word文件中查找文本？

Question

我需要在Word文件中搜索並找到具有不同背景顏色的所有文本（突出顯示），然后僅將已建立的文本寫入新的Word文件中。 我該怎么做？

我嘗試使用此代碼：

uses ActiveX, ComObj;
const
  wdFindContinue = 1;
  wdLine=5;
  wdStory = 6;
  wdExtend = 1;
  wdCharacter = 1;
var
  OleObj: Variant;
begin
  // create OLE object for MS Word application:
  OleObj := CreateOLEObject('Word.Application');
  // load a document from your file
  OleObj.Documents.Open(YourDocument);
  OleObj.Selection.Find.ClearFormatting;
  OleObj.Selection.Find.Text := strFinna;
  // WordApp.Selection.Find.Replacement.Text := yourNewStringForReplace;
  OleObj.Selection.Find.Forward := True;
  OleObj.Selection.Find.MatchAllWordForms := False;
  OleObj.Selection.Find.MatchCase := False;
  OleObj.Selection.Find.MatchWildcards := False;
  OleObj.Selection.Find.MatchSoundsLike := False;
  OleObj.Selection.Find.MatchWholeWord := False;
  OleObj.Selection.Find.MatchFuzzy := False;
  OleObj.Selection.Find.Wrap := wdFindContinue;
  OleObj.Selection.Find.Format := False;
  OleObj.Selection.HomeKey(unit := wdStory);
  while OleObj.Selection.Find.Execute do
  begin
    OleObj.Selection.EndKey(Unit := wdLine, Extend := wdExtend);
    OleObj.Selection.MoveRight(Unit := wdCharacter, Count := 1);
    OleObj.Selection.MoveUp(Unit := wdLine, Count := 1, Extend := wdExtend);
    OleObj.Selection.Delete(Unit := wdCharacter, Count := 1);
  end;
  OleObj.ActiveDocument.Save;
  OleObj.Quit;
  OleObj := Unassigned;
end;

是否有所有Office OLE對象方法的文檔？

Answer 1

下面的代碼顯示如何逐字符掃描Word文檔並報告字符的背景色：

procedure TForm1.DoCheckBackground;
var
  OleObj: Variant;
  YourDocument : String;
  Moved : Integer;
  Range : OleVariant;
  Color : TColor;
begin

  YourDocument := 'D:\aaad7\officeauto\parabackground.docx';
  // create OLE object for MS Word application:
  OleObj := CreateOLEObject('Word.Application');
  OleObj.Visible := True;
  // load a document from your file
  OleObj.Documents.Open(YourDocument);
  repeat
    Moved := OleObj.Selection.MoveRight(Unit := wdCharacter, Count := 1);
    if Moved > 0 then begin
      Range := OleObj.Selection.Range;
      Color := Range.HighlightColorIndex; 
      Memo1.Lines.Add(OleObj.Selection.Text + ':' + IntToStr(Color));
    end;
  until Moved <= 0;

我用一個包含中間段落的文檔進行了測試，該段落的中間是青綠色背景，其余為白色。 該代碼正確地將HighlightColorIndex的中間部分報告為3，其余部分報告為0。

供參考，例如

https://msdn.microsoft.com/zh-CN/library/microsoft.office.interop.word.range.highlightcolorindex.aspx

https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.word.selection.moveright.aspx