|
Sub a()
Dim appWD, doc As Object, arr, i%, RAN, m&
Set appWD = CreateObject("Word.Application")
arr = [a1].CurrentRegion
Set doc = appWD.Documents.Open(ThisWorkbook.Path & "\word.doc")
appWD.Visible = True
Set RAN = doc.Range
With RAN.Find
.ClearFormatting
For i = 2 To UBound(arr)
If arr(i, 2) <> "" Then
.Text = arr(i, 3)
.Wrap = 1
If .Execute Then
m = RAN.End
doc.Range(m, m).InsertBefore arr(i, 2)
doc.Range(m - Len(arr(i, 3)), m).Delete
End If
Else
doc.Close True
appWD.Quit
Exit Sub
End If
Next
End With
End Sub
|
评分
-
1
查看全部评分
-
|