如何将word读到treeview中形成树形结构(100分)

zhtq · 2006-04-10

如何将word读到treeview中形成树形结构：
word的格式是：
〈一〉.......................
1，.................
2，......................
〈二〉....................
1，......................
2，...................
有点像目录，要在treeview显示成树形结构。能给个例子最好，分不够再加！谢谢！

zhtq · 2006-04-10

刚学delphi那位大仙给点思路啊

kalvin666 · 2006-04-10

关注中。。。。，我也想知道

kalvin666 · 2006-04-10

关注中。。。。，我也想知道

phoebe · 2006-04-10

首先是要确定word的格式问题,是不是固定的,通过什么确认树的结点层级?

zhtq · 2006-04-10

我想是不是可以加标记比如：[]表示父层， [[]]表示子层，[[[]]]表示子层中的下层

zhtq · 2006-04-10

word的格式是固定的，就是我所表示的那样，我想如果插标记的话，只需要读入“[]”到treeview中就可以知道它的层次。

Showxy · 2006-04-11

时间紧张哦。呵呵,可以给你一个大概的思路,希望对你有帮助:

1.创建一个word对象.并打开想要的文件.
WdApp := CreateOleObject('Word.application');
WdApp.Documents.open(fn1);

2. 对文档的内容进行循环.
while not WdApp.ActiveDocument.Content.End do
begin

inc(j); //记数
//取段落内容
WdApp.ActiveDocument.Paragraphs.item(j).Range.select;
//回退一格，不把回车符选中
WdApp.Selection.MoveLeft(wdCharacter, 1, wdExtend);
strSel := WdApp.Selection.Text;
//选取的内容,这时候就可以判断标记了.

//-----------------------------
增加树节点.
//-----------------

end;

3.一些常用的方法.
//段落的选取,这些方法都可以在word的VBA帮助里面有查到的.
WdApp.ActiveDocument.Range(WdApp.ActiveDocument.Paragraphs.item(j).Range.Start, WdApp.ActiveDocument.Paragraphs.item(j).Range.End).select;

Showxy · 2006-04-11

补充一下: Offices 的VBA帮助对你做类似的程序很重要.

zhtq · 2006-04-11

Showxy,谢谢你的帮助，我已经可以实现word打开，插入，保存，定位，但就是对你给的地第2点还是不太清楚，你能详细点嘛，感谢你了。

zhtq · 2006-04-11

Showxy，插入标记已经可以实现，现在的关键是怎么判断标记，增加树结点？谢谢

Showxy · 2006-04-11

呵呵，在上班,吃饭时间来一下;

strSel := WdApp.Selection.Text;
即可取到你想要的字符串,你可以对strsel进行判断.

遇到你的标记直接对树节点进行增加.节点的标题应该是你从word中取到的标题吧
最好自己写个函数比如 AddTreeItem(strsel :string,aType :integer) 什么的
把取到的信息传进去.atype可以来确定你要增加树节点的级数.

zhtq · 2006-04-11

Showxy,你能给个例子吗？这个地方我有点过不去，谢了！

Showxy · 2006-04-11

晚上看看,是否有时间.呵呵。下午应该是没空的了。

zhtq · 2006-04-11

Showxy,我在线等你啊，请你帮忙了，分好说

萧峒 · 2006-04-12

如果你不是要求必须打开已有Word文件，变成树形结构，建议每个结点对应一个Word文件，那样应该比较好操作吧，如果实在需要生成一个文件，你可以按着树结点编号合并成一个文件。

zhtq · 2006-04-12

萧峒，谢谢你个回复
这个word已经打开了，树形结构的结点对应的是word中的内容。你有这方面的例子吗？

zhtq · 2006-04-14

那位高手帮帮忙改一下，就差这步了，编译可以通过，但不能实现功能：
procedure TForm1.Button4Click(Sender: TObject);
var
findtext, matchcase, matchwholeword, matchwildcards, matchsoundslike,
matchallwordforms, forward, wrap, format, replacewith, replace: OleVariant;
str:string;
p,root:Ttreenode;
begin
if str='[' then
root:=Treeview1.Items.Add(nil,str)
else if str='[[' then
p:=Treeview1.Items.AddChild(root,str)
else if str='[[['then
Treeview1.Items.AddChild(p,str);
findtext :=str;
matchcase := false;
matchwholeword := false;
matchwildcards := false;
matchsoundslike := false;
matchallwordforms := false;
forward := true;
wrap:=wdFindStop;
format := false;
replacewith :='';
replace :=wdReplaceone;
WordObject.Application.ActiveDocument.Content.Find.Execute(findtext, matchcase, matchwholeword,
matchwildcards, matchsoundslike, matchallwordforms, forward,
wrap, format, replacewith, replace );

end;

zhtq · 2006-04-27

多人接受答案了。

如何将word读到treeview中形成树形结构(100分)

zhtq

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

kalvin666

Unregistered / Unconfirmed

kalvin666

Unregistered / Unconfirmed

phoebe

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

Showxy

Unregistered / Unconfirmed

Showxy

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

Showxy

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

Showxy

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

萧峒

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

zhtq

Unregistered / Unconfirmed

Similar threads