请教:如何在excel中编程,打开指定word文件?

ying

请教:如何在excel中编程,打开指定word文件,并在其中搜索某标题,并复制标题下一段内容,拷到一个单元格里?先谢谢了.

[此贴子已经被作者于2004-12-13 8:51:33编辑过]

ying

帮帮我

办公之星

补充一下，假定WORD文档的路径及标题为：

F:\上传\大屠杀纪念日看靖国神社

[此贴子已经被作者于2004-12-13 9:02:29编辑过]

守柔

以下是引用ying在2004-12-13 8:50:00的发言：

帮帮我

你应该将标题情况说明,是什么样的标题,是简单地认为标题是第一个段落内容,还是样式中的某个标题级别?

如果讲不清的,可以上传WROD文档附件.

ying

谢谢斑竹.

我已经把word中的数据转换成表格,如何把它换成excel中的表?

急用.在线等待.

[此贴子已经被作者于2004-12-13 12:32:11编辑过]

ying

我关于word中的表如何转换成excel中表的帖子,被taller斑竹删除. 理由是有重复帖子.但是我搜索了一下,并没有相同的帖子.而且这个问题我的确急用.正在线等待,所以才又发了一次,但是又被taller斑竹删除并减了什么分数,理由还是有重复帖子.我又搜索了一下,还是没有相同的帖子.到底是什么原因到是小事.也对给你们造成麻烦表示歉意.只是请大家能帮我解决我的问题就可以了,

先谢谢了.我在线等待.

[em06][em06][em06]

taller

你在5楼已经发了这个问题,又重新发新贴,所以被删除.

这样的原因在于,如果楼主多处又同一问题,大家回复会在不同地方,楼主可能不容易找到,并且不利用以后其它朋友的搜索,另外从节约论坛资源角度,请不要重复发贴,谢谢合作.

因为我不会用Word VBA所以没有回复你的问题,我想论坛中一定有朋友可以解决你的问题.

ying

可是我5楼的帖子是在第一次发新贴问"关于word中的表如何转换成excel中表"之后,看到首柔斑竹的回复才又发的呀.您可能没注意时间.再次对无意中给你们造成麻烦表示歉意.

希望高手帮我解决问题.先谢谢了.在线等待.

又:

实际上是,在excel中引用word中的表中的数据,用excel中的vba

[此贴子已经被作者于2004-12-13 12:35:36编辑过]

ying

我已经在线等了几个小时了.请斑竹们帮帮我吧.我急用.再谢谢了.

clzheng

看看对你有用吗

Dim appWD As Word.Application Set appWD = CreateObject("Word.Application") appWD.Visible = True If Left(CommandButton1.Caption, 2) = "查阅" Then appWD.Documents.Open ("d:\schedule\交接班记录\" & j(0) & "年\" & j(0) & "年" & j(1) & "月\交接班日志" & select_day & ".doc") Else appWD.Documents.Open ("d:\schedule\交接班记录\" & k(0) & "年\" & j(0) & "年" & k(1) & "月\交接班日志" & last_date & ".doc") ActiveDocument.Paragraphs(2).Range.Text = last_date_all & "8:00～" & select_date_all & "8:00" ActiveDocument.Range.WholeStory With ActiveDocument.Range.ParagraphFormat .CharacterUnitFirstLineIndent = -5 End With

ActiveDocument.Paragraphs(2).Alignment = wdAlignParagraphCenter With ActiveDocument.PageSetup .LeftMargin = CentimetersToPoints(2) .RightMargin = CentimetersToPoints(1.5) End With svae_doc End If

[此贴子已经被作者于2004-12-13 13:40:35编辑过]