分列求助

办公之星

附件中是一个词汇表，最好能分成三列，前两个单词或短语以－分列，后面的中文直接分为一列。主要是后面一列分不出来。

似乎要用EXCEL，但考虑到守柔斑竹曾有一个区分中英文的妙方，就发到了这边。

谢谢。

X2BqfIAE.rar (7.05 KB, 下载次数: 21)

2005-4-1 17:05 上传

点击文件名下载附件
分列求助

守柔

分了一下，不过你应该在录入过程中，就应该予以必要的区分。

以下代码供参考：（也许用查找与替换也行，但对我而言，编程更快）

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-2 08:45:47 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim i As Paragraph, aChar As Range Application.ScreenUpdating = False For Each i In Me.Paragraphs For Each aChar In i.Range.Characters If aChar <> "－" And Asc(aChar) < 0 Then aChar.InsertBefore "－": Exit For Next Next Application.ScreenUpdating = True End Sub '---------------------- rLpfpMth.zip (13.03 KB, 下载次数: 18)

2005-4-2 08:45 上传

点击文件名下载附件
分列求助

办公之星

感谢，叹服。

是朋友的东西，木已成舟，只好麻烦斑竹了。