怎么这种word文字替换的题目都有啊~~!!吐血[求助]...

krise · 发表于 2004-7-15 18:15

"对正文各段的第一个字均格式化为宋体，二号，粗斜体带阴影的红色字。"

各位大人,这个怎么做呀~看了题目我吐血了啊,怎么格式化第一个字呀?

我想出题的目的不是要我一个个去改吧,应该更好的办法的吧~

[此贴子已经被作者于2004-7-15 18:18:56编辑过]

办公之星 · 发表于 2004-7-15 20:25

V04YI4EV.rar (2.64 KB, 下载次数: 23) 　　是这个意思吗？

cofe2000 · 发表于 2004-7-15 20:43

对word的编程还是不行啊

Sub test() For Each i In ActiveDocument.Paragraphs ' i.Range(Start:=0, End:=1).Select '选定每段的第一个字怎么写啊？ i.Range.Select Selection.Font.Bold = wdToggle Selection.Font.Italic = wdToggle Selection.Font.Color = wdColorRed Next End Sub

守柔 · 发表于 2004-7-16 07:07

请参考（只用于普通文档，未区分正文，标题等）：

Sub kilt() Dim i As Paragraph, FirstFont As Range For Each i In ActiveDocument.Paragraphs Set FirstFont = Range(i.Range.Start, i.Range.Start + 1)'取得首字符位置 With FirstFont.Font .Name = "宋休"'设为宋体 .Size = 22'相当于二号 .Bold = True'粗体 .Italic = True'斜体 .Shadow = True'阴影 .Color = wdColorRed End With Next End Sub

cofe2000 · 发表于 2004-7-16 08:38

'请问守柔，为什么我这样写不行呢？ Sub 设置第一个字效果() For Each i In ActiveDocument.Paragraphs i.Range.Words(1).Select '为什么Words(1)会选定两个字呢？ Selection.Font.Name = "宋休" Selection.Font.Size = 22 Selection.Font.Bold = wdToggle Selection.Font.Italic = wdToggle Selection.Font.Color = wdColorRed Next End Sub

[此贴子已经被作者于2004-7-16 8:39:04编辑过]

守柔 · 发表于 2004-7-16 08:49

请注意区分Words 与Characters的区别：

受词典的影响，WORD中对于词，如狐狸，有两个字，但只算1个WORDS。可试试以下代码：

MsgBox Selection.Words.Count MsgBox Selection.Characters.Count 你可以改成这个试一下：

For Each i In ActiveDocument.Paragraphs MsgBox i.Range.Characters(1) Next

[此贴子已经被作者于2004-7-16 8:53:07编辑过]

cofe2000 · 发表于 2004-7-16 09:12

谢谢，搞定

cofe2000 · 发表于 2004-7-16 10:59

WN9xsMD0.rar (9.96 KB, 下载次数: 21)

具体问题在附件中代码中

[此贴子已经被作者于2004-7-16 12:33:11编辑过]

cofe2000 · 发表于 2004-7-16 13:01

谢谢版主提供的另一种解决办法

我在这里主要是向守柔学习一下word的vba编程，纯粹是技术上的讨论

cofe2000 · 发表于 2004-7-16 13:26

我也晕啊

好像就是守柔对WORD的VBA比较精通

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

怎么这种word文字替换的题目都有啊~~!!吐血[求助]...

又来问题了