一个难题：选择性粘贴带表格的内容为图片时...

hz1900 · 发表于 2003-5-19 16:55

问题：选择性粘贴带表格的内容为图片时，图片中的表格显示不完整. 难题呀。这个问题是可重现的，大家打开word，插入一张表格，写点字，接着Copy，再选编辑-》选择性粘贴-》图片后，就可看到我问题中提到的现象。这个问题能解决吗？

zjx3456 · 发表于 2003-5-19 17:51

可以解决。将表格框先加粗，然后再粘贴，可以用，但效果不太理想，这是word图形转化功能所限。我建议你将表格复制到excel表中，再粘贴回来，最好是“粘贴链接”，这样，你的图形会随着源表格的内容而更新。

hz1900 · 发表于 2003-5-19 19:47

zjx3456兄的方法确实好用，：）但，是这样的，我这个转换功能是用VBA自动完成，所以，这里就有个问题：怎么找一个文档中的所有表格？其次，找到后一个一个给它加粗？？对这种需求，zjx3456兄有没有好方法？

zjx3456 · 发表于 2003-5-19 22:39

HZ1900先生，对于VBA我十分陌生，恐怕要让你失望了。但既然用VBA，你能转化为图形，能不能直接转化为其它格式，如HTML，或带格式文本(RTF)，或者直接转化到EXCEL表中，非要转化为图片？不知你要在什么环境下，要达到什么目的？

hz1900 · 发表于 2003-5-20 13:59

zjx3456兄。：）是这样，公司OA有一个模块是我负责的，公文收文部分的，现想对公文进行象手工那样的批阅，就象在纸上用红笔绿笔画重点，圈字等，但在word中无法直接实现，并且公文原文是不能修改的，因此我想到这样做： 1.将word文档转换成图片 2.用VB或Delphi写一个控件，将word文档的图片导入，接着用户就可用手写笔进行画图式批阅了。

zjx3456 · 发表于 2003-5-20 19:31

是这样啊，但word似乎没有一次选定所有表格的功能，我看，只有按住Ctrl键，选择所有的表格，祈祷表格不要太多吧！！

zzlzz · 发表于 2003-5-21 09:19

1. 我粘贴为图片时，开始什么都没看见，于是就把段落－行距改为单倍，就显示出来了；之后似乎没有边框，那是显示比例的问题，放大一看什么都有。 2. 所有的表格，看看这个： “可使用 Tables 属性返回 Tables 集合。下例将某一边框应用于活动文档中的每一表格。 For Each aTable In ActiveDocument.Tables aTable.Borders.OutsideLineStyle = wdLineStyleSingle aTable.Borders.OutsideLineWidth = wdLineWidth025pt aTable.Borders.InsideLineStyle = wdLineStyleNone Next aTable ”

hz1900 · 发表于 2003-5-21 18:57

表格没边框的问题好象只有zjx3456兄讲的那样，选将所有表格变粗（我试了一下，要保证每次成功，边框至少150PT），对所有表格加粗的问题，我已经用VBA实现了，选择性粘帖也解决了，但今天我发现一个新问题，那就是，如果文档有好几页，我用选中所有（CTRL+A）,剪切(CTRL+X)，选择性粘帖，为何只有一页内容，后面的几页都没有，不知为何。这个问题是可重现的，不知哪位大虾能解决一下。

zzlzz · 发表于 2003-5-22 09:15

确实, 占个位子一起等

hz1900 · 发表于 2003-5-22 11:12

帮忙Up一下。:)

		自动登录	找回密码
密码			免费注册