一、word2013尾注编号怎么加中括号
首先打开microsoft office2013中的组件之一word，然后用word打开要编辑的文档。
然后点击【开始】下方工具栏中的【替换】按钮，或者使用组合键CTRL+H，弹出【查找和替换】对话框，如图所示
在弹出的【查找和替换】对话框中将鼠标定位在【查找内容】中，然后点击下方的【更多】按钮
然后点击【特殊格式】，在弹出的菜单中选择【尾注标记】，如图所示
接着将光标定位在【替换为】一栏中，在该栏中输入英文半角状态下的中括号[];接着讲光标定位在中括号中间。
然后点击【特殊格式】，在弹出的菜单中选择【查找内容】，其符号为^&,然后点击【全部替换】。
最后点击【确定】，关闭对话框就可以看到在文档中尾注编号都在[]中括号中了。
图解看百度经验http://jingyan.baidu.com/article/6b182309b72ea3ba58e1590b.html
二、word如何提取某几段首尾加中括号
'如果段落过长程序运行时间可能很长，注意看状态栏写的进度，代码在2013版Word初步测试无误，其余版本若存在不兼容问题请追问
'代码导入方法：
'打开你要操作的Word文档主UI按{Alt+F11}进入VBE，在左边的任意位置右键单击鼠标选择插入、模块，将此代码复制进去，关闭VBE，按{Alt+F8}选择Test并运行
'注意事项：程序运行完成会弹出End的对话框，此对话框弹出之前勿在Word中单击鼠标，可以将其最小化等待（标题栏可以单击），否则程序可能出现不可预知的错误
Sub test()
Dim para As String, length As Long, i As Long, f As Field, j As Long, h As Boolean
Application.ScreenUpdating = False
Application.StatusBar = "Preparing"
For j = 1 To ActiveDocument.Paragraphs.Count
Application.StatusBar = Int(j / (ActiveDocument.Paragraphs.Count / 100)) & " percent finished"
para = ActiveDocument.Paragraphs(j).Range
length = Len(para)
h = False
For i = 1 To length - 1
If Mid(para, i, 1) = "：" Then
h = True
Exit For
End If
Next
If h = True Then
ActiveDocument.Paragraphs(j).Range.Select
Selection.MoveLeft , 1
Selection.TypeText "【】"
ActiveDocument.Paragraphs(j).Range.Select
Selection.MoveRight , 1
Selection.MoveLeft , 1
Selection.TypeText "【】"
End If
Next
Application.StatusBar = "Finishing"
Application.ScreenUpdating = True
Application.StatusBar = "End"
MsgBox "End！", vbInformation, "test"
End Sub
