作者:乔山办公网日期:
返回目录:word文档
试试下面的代码,zhidao应该可以解决你的问专题。
WordObject.Application.Activate
With ActiveDocument
.Words(1).Select '选择文档的第一个词属
.Range.Words(1).InsertBefore a '在文档第一个词前插入 a
End with
提供一个方案给楼主参考,可以批量修改多个文档中某个指定文字的属性:
1、启动Word后,键入Alt+F11打开VBA编辑窗口;
2、选择菜单“插入->模块”,然后在代码编辑区中粘贴如下代码:
Option Explicit
Const g_strRootPath = "c:\Docs\" ' 指定存放所有文件的目录,可以有子目录
Const g_strTextToFind = "茶" ' 需要批量查找修改格式的文字内容
Dim g_oTargetFont As New Font
' 主函数
Sub Main()
Dim fso, oFolder
' 设置需要修改的字体属性
g_oTargetFont.Size = 18 ' 字号636f7079e799bee5baa6366
g_oTargetFont.Color = wdColorRed ' 颜色
g_oTargetFont.Bold = True ' 是否加粗(True加粗,False正常)
g_oTargetFont.Italic = True ' 是否斜体(True斜体,False正常)
g_oTargetFont.Underline = wdUnderlineDash ' 下划线风格
'... 设置其他字体属性
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(g_strRootPath)
ChangeFontStyleForFilesUnderFolder fso, oFolder
MsgBox "完成!"
End Sub
' 修改指定文件夹(递归)下面的所有Word文件中指定文字的格式
Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder)
Dim oSubFolder, oFile
For Each oSubFolder In oFolder.SubFolders
ChangeFontStyleForFilesUnderFolder fso, oSubFolder
Next
For Each oFile In oFolder.Files
Documents.Open oFile.Path
ChangeFontStyleForActiveDocument
ActiveDocument.Close True
Next
End Sub
' 修改当前打开文档里面所有指定文字的格式
Sub ChangeFontStyleForActiveDocument()
Selection.StartOf wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = g_strTextToFind
.Replacement.Text = "^&"
.Replacement.Font = g_oTargetFont
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
3、修改代码开始处的两个参数:存放所有需要批量修改文档的根目录(下面可以包含子目录,比如“C:\Docs”),需要修改的文字(比如“茶”字,也可以是一个词或者句子);
4、修改“主函数”里面想要设置的字体属性,如字号、颜色、加粗、斜体、下划线,等等;
4、键入F5运行,直到看到“完成!”。
5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。
请问你说的两个段落之间本来有没有回车(段落标记)?还是说是连续的一段话有两种不同的字体,需要对其分段?
先 selection.font.name="字体名百"
selection.font.size=字体大小度
selection.font.color=字体颜色
然后回再 selection.typetext 你的文字答