如何获得word每页表格的行数。

liudutian 2011-08-15 11:48:11

比如一个好几页的表格，如何通过bcb获得该表格每页的行数。

...全文

282 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

HELLO456 2011-08-19

打赏
举报

[Quote=引用 12 楼 zzbinfo 的回复:]
老妖的谦虚让我等学徒无地自容呀。本着不求进取只求混分的原则，我再一次的班门弄斧。是不是可以获得所有表格的行数变通一下

C/C++ code
int TableCount = MSWord.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OlePropertyGet("Count");
//ShowMessa……
[/Quote]
你没有懂他的意思吧 ~~~~~人家是没页表格的行数啊

zzbinfo 2011-08-18

打赏
举报

老妖的谦虚让我等学徒无地自容呀。本着不求进取只求混分的原则，我再一次的班门弄斧。是不是可以获得所有表格的行数变通一下

  int TableCount = MSWord.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OlePropertyGet("Count");

	 //ShowMessage(TableCount);文档中所有表格



 for (int i = 1; i < TableCount+1; i++) {

	vTable =  MSWord.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OleFunction("Item",i);

	int RowsCount = vTable.OlePropertyGet("Rows").OlePropertyGet("Count");

	 ShowMessage(RowsCount);   // 你所需要的行数

 }

ccrun.com 2011-08-18

打赏
举报

我今天仔细看了看楼主的需求，发现有难度，只好路过了。惭愧啊。

zzbinfo 2011-08-18

打赏
举报

等你好几天了你不回，楼主盼的菜都凉了，呵呵。[Quote=引用 9 楼 ccrun 的回复:]
楼主的表格跨了许多页，他要的是每一页中能看到的行数。这个问题比较难。
[/Quote]

ccrun.com 2011-08-18

打赏
举报

楼主的表格跨了许多页，他要的是每一页中能看到的行数。这个问题比较难。

zzbinfo 2011-08-18

打赏
举报

void __fastcall TForm1::Button1Click(TObject *Sender)

{

 Variant MSWord,vTable,RowsCell ;

	 try

	{

		  MSWord=Variant::CreateObject("Word.Application");

	}

	catch(...)

	{

		MessageBox(0, "启动 Word 出错, 可能是没有安装Word.",

                "提示", MB_OK | MB_ICONERROR);

		MSWord = Unassigned;



		return;

	}



   // 隐藏Word界面

  MSWord.OlePropertySet("Visible", true);

  MSWord.OlePropertyGet("Documents").OleProcedure("Open", "C:\\Doc2.doc");

 // V1.OlePropertyGet("Selection").OleProcedure("WholeStory");



  //OlePropertyGet("Words",1).OlePropertyGet("Text");



 vTable =  MSWord.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OleFunction("Item",1);

 int RowsCount = vTable.OlePropertyGet("Rows").OlePropertyGet("Count");

 ShowMessage(RowsCount);   // 你所需要的行数

/* int CellCountOfRow;

 for(int i = 0;i < RowsCount;i++)

   {

	 RowsCell = vTable.OlePropertyGet("Rows").OleFunction("Item",1);

	 CellCountOfRow = RowsCell.OlePropertyGet("Cells").OlePropertyGet("Count");

	 ShowMessage(CellCountOfRow);

   }  */

  MSWord.OleFunction("Quit");



  MSWord=Unassigned;





}

zzbinfo 2011-08-18

打赏
举报

void __fastcall TForm1::Button1Click(TObject *Sender)

{

 Variant MSWord,vTable,RowsCell ;

	 try

	{

		  MSWord=Variant::CreateObject("Word.Application");

	}

	catch(...)

	{

		MessageBox(0, "启动 Word 出错, 可能是没有安装Word.",

                "提示", MB_OK | MB_ICONERROR);

		MSWord = Unassigned;



		return;

	}



   // 隐藏Word界面

  MSWord.OlePropertySet("Visible", true);

  MSWord.OlePropertyGet("Documents").OleProcedure("Open", "C:\\Doc2.doc");

 // V1.OlePropertyGet("Selection").OleProcedure("WholeStory");



  //OlePropertyGet("Words",1).OlePropertyGet("Text");



 vTable =  MSWord.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OleFunction("Item",1);

 int RowsCount = vTable.OlePropertyGet("Rows").OlePropertyGet("Count");

 ShowMessage(RowsCount);   // 你所需要的行数

/* int CellCountOfRow;

 for(int i = 0;i < RowsCount;i++)

   {

	 RowsCell = vTable.OlePropertyGet("Rows").OleFunction("Item",1);

	 CellCountOfRow = RowsCell.OlePropertyGet("Cells").OlePropertyGet("Count");

	 ShowMessage(CellCountOfRow);

   }  */

  MSWord.OleFunction("Quit");



  MSWord=Unassigned;





}