word2003中的自动图文集和宏如何复制到word2016中

jsrgexcelhome

以前一直使用word2003，其中在里面建了不少自动图文集合宏，现在如何复制到word2016中，使得在word2016中也正常使用自动图文集和宏？

413191246se

* 楼主，Word2003 的宏代码可以按 Alt + F11 进入 VBE 后，按 Ctrl + A 全选，复制，粘贴到一个记事本文件中即可，然后，打开 Word2016，同样进入 VBE 后，按 Ctrl + End 在代码的最后部分，粘贴上刚才记事本中的宏代码。
  
* Word2003 的自动图文集词条的备份与还原，请试用下面的宏：（代码粘贴到 Normal.dot 通用模板中）

1. Sub 自动图文集_备份与还原()
   
2.     Dim i As AutoTextEntry, s$
   
3.     If MsgBox("<是>：备份        <否>：还原", 4 + 16, "自动图文集") = vbYes Then
   
4.         Documents.Add
   
5.         For Each i In NormalTemplate.AutoTextEntries
   
6.             Selection.TypeText Text:=i.Name & vbCr
   
7.             ActiveDocument.Content.Select
   
8.             Selection.Collapse Direction:=wdCollapseEnd
   
9.             i.Insert Where:=Selection.Range, RichText:=True
   
10.             Selection.TypeText Text:="```" & vbCr
    
11.         Next
    
12.         With ActiveDocument
    
13.             .Paragraphs.Last.Range.Delete
    
14.             .SaveAs FileName:="D:\自动图文集备份.doc"
    
15.             .Close
    
16.         End With
    
17.         MsgBox "自动图文集备份完毕！共有词条 " & NormalTemplate.AutoTextEntries.Count & " 个！" & vbCr & _
    
18.         "备份文件 D:\自动图文集备份.doc" & vbCr & "请将备份复制到任意电脑上的 D 盘根下应用本宏可恢复自动图文集！", 0 + 48
    
19.     Else
    
20.         If Dir("D:\自动图文集备份.doc") = "" Then MsgBox "备份不存在！", 0 + 16: End
    
21.         Documents.Open FileName:="D:\自动图文集备份.doc"
    
22.         With Selection
    
23.             .HomeKey Unit:=wdStory
    
24.             Do
    
25.                 s = .Paragraphs(1).Range.Text
    
26.                 s = Left(s, Len(s) - 1)
    
27.                 .MoveEndUntil cset:="```"
    
28.                 .MoveStart Unit:=wdParagraph, Count:=1
    
29.                 NormalTemplate.AutoTextEntries.Add Range:=.Range, Name:=s
    
30.                 .Move Unit:=wdParagraph, Count:=2
    
31.                 If .Paragraphs(1).Range.End = ActiveDocument.Content.End Then Exit Do
    
32.             Loop
    
33.         End With
    
34.         ActiveDocument.Close savechanges:=wdDoNotSaveChanges
    
35.         MsgBox "自动图文集还原完毕！共有词条 " & NormalTemplate.AutoTextEntries.Count & " 个！", 0 + 48
    
36.     End If
    
37. End Sub

复制代码

jsrgexcelhome

谢谢老师的帮助，自动图文集能复制了，忘记了还有一个word2003里的自动更正能不能也复制到word2016中，看能不能把自动更正和自动图文集录制在一个宏里，还有能不能把word2016中的宏直接放在菜单栏下面，直接看到宏，然后鼠标一点就是，否则还要到宏里面一个个去找，比较麻烦，谢谢了！！！

413191246se

楼主，请将常用宏放到快速访问工具栏上即可。