claudeginmo

Sub µo¤å()

Dim myStr As String
Dim myran As Range

On Error Resume Next
Set myran = Application.InputBox(prompt:="°é¿ï½d³ò", Type:=8)

myrow = myran.Row
mycol = myran.Column
mynum = myran.Rows.Count

'myfn = Cells(myrow, mycol - 1).Value

'For Each mye In myran

'If myStr = "" Then
'myStr = mye.Value
'Else: myStr = myStr & "¡B" & mye.Value
'End If
'Next
For i = 1 To mynum
mywd1 = Cells(myrow + i - 1, mycol).Value
mywd2 = Cells(myrow + i - 1, mycol + 1).Value
mywd3 = Cells(myrow + i - 1, mycol + 2).Value
mywd4 = Cells(myrow + i - 1, mycol + 4).Value
mywd5 = Cells(myrow + i - 1, mycol + 5).Value



Dim myWord As New Word.Application

myWord.Visible = True

Set mydoc = myWord.Documents.Open("desktop\1.¤½¤å\¤½¤å.DOC")

With mydoc.Content.Find
.Text = "MYWORD1"
.Replacement.Text = mywd1
Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.Execute Replace:=wdReplaceAll
End With

With mydoc.Content.Find
.Text = "MYWORD2"
.Replacement.Text = mywd2
Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.Execute Replace:=wdReplaceAll
End With

With mydoc.Content.Find
.Text = "MYWORD3"
.Replacement.Text = mywd3
Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.Execute Replace:=wdReplaceAll
End With

With mydoc.Content.Find
.Text = "MYWORD4"
.Replacement.Text = mywd4
Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.Execute Replace:=wdReplaceAll
End With

With mydoc.Content.Find
.Text = "MYWORD5"
.Replacement.Text = mywd5
Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.Execute Replace:=wdReplaceAll
End With




mydoc.SaveAs Filename:="desktop\1.¤½¤å\¤½¤å" & mywd1 & mywd3
Next i
End Sub