主题：文本编辑

一段连续的文本中要在有“【”处的前方位置插入一个段落符（就是要分行）怎么实现，我有大量这样的工作请帮忙

 

如将“【增加外部查询表】【增加外部查询表】”通过代码自动变为

【增加外部查询表】

【增加外部查询表】

Dim s As String = "【增加外部查询表】【增加外部查询表】"
s = s.replace("】【","】"  & vbcrlf & "【")
output.show(s)

"【增加外部查询表】【增加外部查询表】"的内容如果是某列的内容如何设代码，我有一个列中的内容均没有换行，想通过代码自动加入换行。

内容示例：就是在“.[”之间插入换行

[定位]在胸外侧部,云门下1寸,平第一肋间隙处,距前正中线6寸.[解剖]当胸大肌?胸小肌处,内侧深层为第一肋间内?外肌;上外侧有腋动?静脉,胸肩峰动?静脉;布有锁骨上神经中间支,胸前神经分支及第一肋间神经外侧皮支.[主治]咳嗽,气喘,肺胀满,胸痛,肩背痛.[配伍]配尺泽治咳嗽;配肩髎治肩痛.[刺灸法]向外斜刺或平刺0.5—0.8寸,不可向内深刺,以免伤及肺脏.[附注]肺的募穴,手?足太阴经交会穴.

这是截图
此主题相关图片如下：未命名.jpg

建议你加载所有数据，然后：

 

For Each r as Row in Tables("xxx").Rows

   r("内容") = r("内容").replace("】【","】" & vbcrlf & "【")
Next

Tables("xxx").Save()

 

这样一劳永逸了。

谢谢，看来注册您的开发版软件服务还是很到位的

 

请问在代码里面粘贴“。”号怎么都成了“.”。有不变的方法吗

 

http://www.foxtable.com/help/topics/1273.htm

在文本编辑中的某个位置（插入点上）输入某一段很常用文字时，可否先输入可以替换成这段文字的某两个字并选定这两个字，再通过一个按键把这两个字替换成那段常用文字。

例如在某个单元格中输入“我单位地址是深圳市东门南路瑞鹏大厦A座1108号，邮编518002“这段文字。我想在我输完“我单位地址是”这六个字后再仅输入“地址”两个字并选定这两个字，然后再按一个设定的按钮后选定的两个字就自动变成了深圳市东门南路瑞鹏大厦A座1108号，邮编518002。

 

如果能实现这个功能，可以大大加快文本输入的速度。尤其是文字内容较多的单元格内容

这段常用文字可以是较长的文字