Q1:我想將圖片(1.bmp)插入在游標所在的位置，並且用"與文字排列"的圖片格式？
Q2:搜尋到指定的文字，然後用另外一段文字替換？
Q3:想請問一下如何將表格的線段顯示隱藏？

目前用很笨的方法就是加入分行符號來跑到第二頁，但是圖片不會跟著到第二頁>"<
使用過WordApplication1物件但是光開啟檔案就有很大的問題。
後來還是用OLE的方式才比較好操作，但是BCB有關office的方面範例好少~~~~~XD
是不是BCB在Office這方面有問題阿？
感謝您看完我的問題，謝謝。

以下是程式碼:
[code cpp]
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Variant wordApp;
Variant wordDocuments;
Variant word_range;
Variant wordTables;
Variant wordSelection;
Variant Range;
Variant vCell;
Variant vTable;
AnsiString temStr,FilePath;
if (wordApp.IsEmpty())
wordApp=Variant::CreateObject("Word.Application");
else
wordApp=GetActiveOleObject("Word.Application");
if (wordApp.IsEmpty()){
ShowMessage("Unable to find Word application.");
return;
}
//顯示/隱藏WORD
wordApp.OlePropertySet("Visible",true);
wordDocuments = wordApp.OlePropertyGet("Documents");
//開啟舊檔 /新檔案用Add
FilePath = ExtractFilePath(Application->ExeName);
temStr = FilePath "BBB.doc";
wordDocuments.OleProcedure("Open",temStr.c_str());

//
wordApp.OlePropertyGet("Selection").OleProcedure("GoTo",1,1,1,1); //wdStory

wordDocuments=wordApp.OlePropertyGet("ActiveDocument");
word_range=wordDocuments.OleFunction("Range");
temStr = "ABCDEFG";
word_range.OleFunction("InsertAfter", temStr.c_str());
word_range.OleFunction("InsertParagraphAfter");

wordApp.OlePropertyGet("Selection").OleProcedure("EndKey",6); //wdStory
for(int i=0;i<40;i )
wordApp.OlePropertyGet("Selection").OleProcedure("TypeParagraph");

temStr = "40 line";
word_range.OleFunction("InsertAfter", temStr.c_str());

wordApp.OlePropertyGet("Selection").OleProcedure("EndKey",6); //wdStory
Variant vPic,vPItem; //插入圖片
vPic = wordDocuments.OlePropertyGet("Shapes");
vPic.OleFunction("AddPicture","1.bmp",2,2,10,400);//,f,t,left,top,w,h,EmptyParam

Variant vRange = wordApp.OlePropertyGet("Selection").OlePropertyGet("ShapeRange").OlePropertyGet("WrapFormat");
vRange.OlePropertySet("Type_", wdWrapNone); //wdWrapTight
//vRange.OlePropertyGet("WrapFormat").OlePropertySet("Side", 3);
//vRange.OlePropertyGet("WrapFormat").OlePropertySet("Type", 3);

//vPic.OleFunction("Item",1).OleFunction("WrapFormat");//.OleFunction("Type_",wdWrapNone);
//vRange.OleFunction("Item",1).OleFunction("WrapFormat").OleFunction("Type", 1);
//WordDocument1.Shapes.Item(PicItem).WrapFormat.Type_ := wdWrapNone;//
/*
WdWrapType 可以是下列 WdWrapType 常數之一。
wdWrapInline
wdWrapNone
wdWrapSquare
wdWrapThrough
wdWrapTight
wdWrapTopBottom
*/


}
//---------------------------------------------------------------------------
[/code]