有两列表格,想将第二列里所有的文字加上单引号?

hpw

呵呵,偶还有个问题:

如下面是个两列的表格,我想将文字男,女的前面分别加上一个单引号,如何能够快速处理一个大的文档.

1 男

2 女

[em04]有劳各位能人侠士,小女子在此先行谢过!

守柔

请运行以下代码：

Sub MacroForHwp() Dim aTable As Table, aCell As Cell On Error Resume Next Application.ScreenUpdating = False For Each aTable In ThisDocument.Tables For Each aCell In aTable.Columns(2).Cells aCell.Range = "'" & ThisDocument.Range(aCell.Range.Start, aCell.Range.End - 1) & "'" Next Next Application.ScreenUpdating = True End Sub

fanxp

导入excel，容易实现

hpw

呵呵,在EXCEL里加的方式,已经在此论坛里学会怎么加了.

但有时候是想在WORD里会更方便,因为不止一个表嘛.

[em02]守柔的这个程序运行OK啦. 多谢塞!

c81

在Word中，有一土法：

先选中第一列及第二列，然后复制，粘贴到空白处成一新的表格，然后执行表格转换成文本，这样它们就在一起了，如果有空格请替换成空的，然后再重新转换成表格，然后再复制粘贴回去就行了。

freewolf

欣赏最简单的办法：土法。

hpw

呵呵,这个土法还不错,少量表的可以一用呀.