vba word

Sub repalce()



datas = Array("[2020]76号", "2020年10月19日", "", "洋南单元", "CX-07-01-02E-6号地块", "工业用地", "现状农田", "联谊西路", "西城路", "现状农田", "36112平方米")



With Selection
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        With .Find
             .Text = "{$编号}"
             .Replacement.Text = datas(0)
        End With
        .Find.Execute Replace:=wdReplaceAll
 
        
End With
End Sub



Sub test()
    Set oDoc = ActiveDocument
    With oDoc
       For Each oSP In .Shapes
        With oSP
            '如果类型是文本框则...
            If .Type = msoTextBox Then
                Debug.Print .Name
                 '修改文本框中的文本
                .TextFrame.TextRange.Text = "测试"
            End If
        End With
       Next
    End With
End Sub


Sub AddText()
    Set DocNew = ActiveDocument
    Set NewT = DocNew.Shapes.AddTextbox(1, 240, 765, 53, 21)
    NewT.TextFrame.TextRange.InsertAfter "Hello world 1"

End Sub

批量接受所有文档修定

Sub acceptrevisions()    '此代码功能为列出指定文件夹中所有选取的WORD文件全路径名
    Dim myDialog As FileDialog, oDoc As Document, oSec As Section
    Dim oFile As Variant, myRange As Range
    On Error Resume Next
    '定义一个文件夹选取对话框
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show = -1 Then    '确定
            For Each oFile In .SelectedItems    '在所有选取项目中循环
                Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
                For Each oSec In oDoc.Sections    '文档的节中循环
                    Set myRange = oSec.Range
                    myRange.Revisions.AcceptAll   '接受所选范围内的所有修订标记
                Next
                oDoc.Close True
            Next
        End If
    End With
End Sub