又是制表符的问题?

hpw · 发表于 2005-9-21 18:48

呵呵,以前在本版求教过制表符的问题,现在又碰到新问题啦,还望各位帮帮忙:

见附件,我是从大篇文章中摘除的一个表,由于表很多,所以我想用替换,这样在表中的第一列,我都加上了".."作为通配符,结果替换的时候,本来固定的列,却都拉长了,不知各位有何高招:

0Pji5FrY.rar (2.51 KB, 下载次数: 21)

因为表很多,而且表的宽度是不一样的,所以固定表的宽度和固定制表符的长度都是不可取的.

[em09]

konggs · 发表于 2005-9-21 20:05

你的表述很乱。我不知道，你想干什么？

hpw · 发表于 2005-9-22 11:51

不好意思. 1楼附件中的第1个表是需要处理的表格,第2个表是我处理后的表格.

我的目的:想在文字和数字之间加前导符

方法: 使用替换.(看下图,替换前和替换后,表格的宽度发生了变化.)

问题:实践中,发现有的表格在加完前导符后宽度能够保持原样,有的则发生了变化,这是什么原因导致的?

konggs · 发表于 2005-9-22 11:58

右键/表格属性/固定列宽。

守柔 · 发表于 2005-9-24 05:25

查找你的替换文本如">>"或者".."，替换为"^t",请不要设置制表位的格式.粘贴以下代码并运行之:

以下代码的意思就是遍历各个表格中的单元格段落,如果单元格中存在制表位的话,设置其宽度为当前单元格宽度,右对齐和前导符.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-24 5:26:06 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00037^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub SetTabStops() Dim oTable As Table, i As Cell, CellWidth As Single Application.ScreenUpdating = False For Each oTable In ActiveDocument.Tables For Each i In oTable.Range.Cells If VBA.InStr(i.Range, vbTab) <> 0 Then CellWidth = i.Column.Width i.Range.ParagraphFormat.TabStops.Add CellWidth, wdAlignTabRight, wdTabLeaderMiddleDot End If Next Next Application.ScreenUpdating = True End Sub '----------------------

hpw · 发表于 2005-9-27 18:11

哦呵,今天正好再次用到这个玩意儿,谢谢守柔再一次帮我成功的解决!

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