如何输入垂直居中的小圆点

守柔 · 发表于 2006-4-14 11:58

域代码见附件。域代码中的字符格式修饰如常规文字，可直接设置字体、上下标和字体名称等等。公式编辑器中的文本是以图形方式插入在文档中的，常规下自然无法查找与替换。

w7Cnq7zG.zip (2.84 KB, 下载次数: 3)

ssq1109 · 发表于 2006-4-14 14:15

我认为不必那样麻烦, 其实公式编辑器有一很好的全功能的MathType, 楼主的问题应都可轻易解决, 我就很多次使用过一些特别符号, 从未出问题, 请参见:

http://club.excelhome.net/viewthread.php?tid=155535&replyID=&skin=0

linlifei · 发表于 2006-4-16 17:31

ssq1109的大作拜读过了，解惑良多，谢谢。

守柔斑竹：

我的那个小圆点不是在公式里面，而是直接通过软键盘在正文中输入的，为什么用鼠标能选中，修改，而用查找就不行？？？？？

[此贴子已经被作者于2006-4-16 17:32:38编辑过]

守柔 · 发表于 2006-4-17 07:07

这是一个比较特殊的查找与替换。

先试一下这个方法：

CTRL+F，查找中使用快捷键ALT+0183（数字小键盘），勾选“突出显示所有在该范围找到项目”，查找全部后直接设置为“Times New Roman”字体。

ssq1109 · 发表于 2006-4-17 09:25

要解决批量将GB全角中圆点(·)变成像西文的小中圆点可试一下下列方法,极为简单有效。

先选中全文,将字体设为“Times New Roman”。注意,此法对WORD 2000是无效的,对WORD2003绝对行,对WORD 2002(XP)我好像较早帮别人试过,应能行的(记得不十分准确,90%能行吧),如此设置对中文字体没有影响。这样还有个好处,即像α、β等GB全角西腊字母也能变成像半角的Symbol那样好看的符号,对排科技版很适用。不过此法也可能有点副作用,即将宋体的“↑、↓、→、←”和中文全角的单双引号替换成了相应的西文箭号和西文引号,我个人觉得这些箭号和引号设为宋体更好看些。可考虑再用下面的代码将它们改为宋体(这是根据守柔大侠的一段代码改写的)。

Sub change()

Dim myFunction() As Variant, aArray As Variant
'指定更改内容,如果需要,可以扩充数组
myFunction = Array("“", "”", "‘", "’", "↑", "↓", "→", "←")
'将指定内容文本改为宋体
With ActiveDocument.Content.Find
For Each aArray In myFunction
.ClearFormatting
.MatchCase = False
.MatchCase = True
.Text = aArray
With .Replacement
.ClearFormatting
.Font.Name = "宋体"
End With
.Execute Replace:=wdReplaceAll
Next
End With
End Sub

linlifei · 发表于 2006-4-17 18:03

ssq1109 的方法很好,也简单，可惜我水平不够,VBA几乎是一窍不通,没法试.

守柔斑竹的方法试过了，能行，谢过！不过我是照葫芦画瓢，是知其然而不知其所以然，看来还得努力，希望能达到斑竹十分之一的水平就满足了。斑竹，你讲的方法WORD帮助文件里面有吗？想完整的学一下.

[此贴子已经被作者于2006-4-17 18:05:13编辑过]

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