Vba操作段落文字

boywin3 · 发表于 2015-7-21 16:46

本帖最后由 boywin3 于 2015-7-22 08:54 编辑

新手求教!
由于自学E文听力 , 在整理听力教材时, 很费力的COPY和粘贴 ,简直要疯了,求个简便的法子,谢谢!

Word(2003版).rar (20.43 KB, 下载次数: 25)

boywin3 · 发表于 2015-7-21 16:53

太难了,简直没有头绪

lq93808-2 · 发表于 2015-7-21 16:56

大工程，要高手才能解决。

zxb7679 · 发表于 2015-7-21 17:01

需要VBA吗？你在excel中就可以做完，加一些辅助列，几下就搞出来，不是只有VBA一条路的！

413191246se · 发表于 2015-7-21 23:56

本帖最后由 413191246se 于 2015-7-21 23:57 编辑

原来是 .docx 格式，暂时无法打开，静等解决吧！

boywin3 · 发表于 2015-7-22 08:55

附件已经更新为2003版,请高手指教,谢谢!

413191246se · 发表于 2015-7-23 20:22

谢谢楼主转换为2003格式，觉得楼主的文档全是自动编号，所以，代码未必适用于2007或以上，建议设宏为快捷键F4方便操作：
Sub test()
Selection.PasteAndFormat Type:=wdFormatPlainText
Selection.Paragraphs(1).Range.Select
Selection.MoveStart unit:=wdParagraph, Count:=-3
Selection.Font.Name = "Calibri"
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 1.5
Selection.Find.Execute findtext:="^t", ReplaceWith:=" ", Replace:=wdReplaceAll
ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Characters(3).End).Delete
SendKeys "^(aej)", True
End Sub

zxb7679 · 发表于 2015-7-24 11:06

没有看到循环结构，应该不对吧！

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

[求助] Vba操作段落文字