当前位置：首页 → 问答吧 → 求助，WORD怎样批量将虚框变回实框？

求助，WORD怎样批量将虚框变回实框？

时间：2009-08-20

来源：互联网

最近不知怎么搞的，某个文件夹里的所有WORD文档的某些实框变成虚框了，好像是粘贴行一类的操作后来加上去的行全变成虚框了。
现在有什么办法批量变回去啊？
好像是WORD的问题？我将原来保存在网上的文件（了出问题前保存的）下回家，一样是这个样子的，奇怪。我用的是WORD 03。

附件

09.rar(3.02 KB)

2009-8-20 19:55, 下载次数: 14

作者: monkeyfunc 发布时间: 2009-08-20

选取整个表格》应用边框，想哪儿虚就哪儿虚，想哪儿实就哪儿实~

作者: pureshadow 发布时间: 2009-08-20

我也有此问题，同问

作者: chenyunfeng1985 发布时间: 2009-08-20

引用:

原帖由 pureshadow 于 2009-8-20 20:25 发表
选取整个表格》应用边框，想哪儿虚就哪儿虚，想哪儿实就哪儿实~

谢谢帮忙了。
不过我附件里只是这表的情况，我文件里有几百个类似的表，一个个选定的话，累死。
而且貌似不止我一人出现这样的情况，不排除是WORD的BUG，或MS的计谋。

作者: monkeyfunc 发布时间: 2009-08-20

请参考：
Sub example()
  Application.ScreenUpdating = False
  With Application.FileSearch
.LookIn = "D:\myfloder" '这里改成你自己的目录,或者使用inputbox
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
   For i = 1 To .FoundFiles.Count
      Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
      For Each t In myDoc.Tables
         t.Style = "网格型"
      Next
      myDoc.Close True
   Next
End If
  End With
  Application.ScreenUpdating = True
End Sub

作者: kqbt 发布时间: 2009-08-20

LS的很专业，谢谢了。
这个是什么语言的？是不是建一个BAT文件？我没学过编程，看不懂这么复杂的东西。强迫自己看了一下，大概是在我的文件夹内查找不可见的虚框，替换为网格型？
明天按个思路去手动试一下看看。我的情况是文档才几个，文档内的表格多。

作者: monkeyfunc 发布时间: 2009-08-20

引用:

原帖由 kqbt 于 2009-8-20 23:03 发表
请参考：
Sub example()
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = "D:\myfloder" '这里改成你自己的目录,或者使用inputbox
.FileType = msoFileTypeWordDocumen ...

网友kqbt 是VBA高手啊，学习了，以后多指导。

作者: lhm667788 发布时间: 2009-08-20

回复 6楼 monkeyfunc 的帖子
这是Word VBA，Copy到任意文档的VBE里面的ThisDocument中运行就可以了。
另外，记得修改其中的目标路径。

回复 7楼 lhm667788 的帖子
兄台过奖了，我也才刚接触VBA，以后一起学习。

作者: kqbt 发布时间: 2009-08-21

这个着实高深，看看先

作者: paladin.pp 发布时间: 2009-08-21

我还是遇到这样的情况，不过我是应用自己的样式，一个一个调回来的，汗……

作者: phonelie 发布时间: 2009-08-26

谢谢kqbt兄的分享，收藏备用！

作者: tangqingfu 发布时间: 2011-03-24