如果在指定文件夹中的所有word文档里输入相同的文字

sukibi

哪位大侠能给个宏，作用是将某一特定文件夹比如d:\aa下的所有word文档的结尾处都添加相同的文字，比如123

急用，谢谢拉！

wudixin96

1. Sub AppendNew()
   
2.     Dim fdoc, mypath As String
   
3.     Dim sAppend As String
   
4.    
   
5.     mypath = "你的路径"
   
6.     sAppend = "我是新内容"
   
7.     fdoc = Dir(mypath & "\*.doc*")
   
8.    
   
9.     Do While fdoc <> ""
   
10.         With Documents.Open(mypath & "" & fdoc)
    
11.             With Selection
    
12.                 .EndKey Unit:=wdStory, Extend:=wdMove
    
13.                 .Range.Text = sAppend
    
14.             End With
    
15.             .Close True
    
16.         End With
    
17.         fdoc = Dir
    
18.     Loop
    
19. End Sub

复制代码

试试 这个行不

sukibi

wudixin96 发表于 2015-3-13 09:38
试试 这个行不

可以的,谢谢了