[求助]word中用宏设置文本格式

yzlufei

我把一个目录下的txt文件合并成一个word(其实每个txt是一个红头文件),每个文件结束插入了分页符号,但是我想用宏的方法设置word文本的格式,比如每文件开头第一行(居中,粗体,字体大小),第2-4行居右),请问守柔大侠,该怎么样写呢?因为文件有几百个啊.(粘贴结束肯定要回到这个文件的开头,但是每个红头文件贴过来可能有好几页,估计要读分页符才能找到这个文件的开头的位置),谢谢!

i = 1 While i < 300

ChangeFileOpenDirectory "C:\temp\" Documents.Open FileName:=i & ".txt", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto, Encoding:=936 Selection.WholeStory Selection.Copy ActiveWindow.Close Selection.PasteAndFormat (wdPasteDefault) Selection.InsertBreak Type:=wdPageBreak i = i + 1 Wend End Sub

或者先用宏设置格式再合并,可是在录制宏的时候,不让设置文本的格式啊???

[此贴子已经被作者于2005-4-30 13:35:11编辑过]

yzlufei

Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend

这个好像可以的。谢谢！

守柔

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-1 8:25:04 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim i As Integer, MyPath As String, Adoc As Document, MyRange As Range MyPath = "C:\temp\" '定义一个文件夹路径 On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 For i = 1 To 300 '建立一个循环 '以隐藏窗口的方式打开指定路径下的TXT文件 Set Adoc = Documents.Open(FileName:=MyPath & i & ".Txt", Visible:=False) With Application.Windows(ThisDocument).Selection '本文档的插入点(光标位置) .EndKey wdStory '移到最后 .InsertAfter Adoc.Content.Text '插入指定文档(TXT文件)的文本 Adoc.Close False '退出并不保存 With .Paragraphs(1) '第一个段落 .Alignment = wdAlignParagraphCenter '居中 .Range.Font.Name = "华文新魏" '设置字体 .Range.Font.Size = 16 '设置字号 .Range.Font.Bold = True '设置为粗体 End With '定义一个RANGE对象为选中部分的第二~四个段落部分 Set MyRange = ThisDocument.Range(.Paragraphs(2).Range.Start, .Paragraphs(4).Range.End) MyRange.ParagraphFormat.Alignment = wdAlignParagraphRight '居右 .EndKey wdStory '移到最后 .InsertBreak Type:=wdPageBreak '插入分页符 End With Next Application.ScreenUpdating = True End Sub '----------------------请将上述代码粘贴于你的目标文档（即最终生成合并文档的）THISDOCUMENT中，也就是你新建一个空白文档，将此代码粘贴于此空白文档的THISDOCUMENT的代码窗口中即可。

如有问题，再作交流