¦p¦ó§Q¥Îexcel ±±¨î word©O?
- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2019-3-9
- ³Ì«áµn¿ý
- 2019-3-12
|
¦p¦ó§Q¥Îexcel ±±¨î word©O?
½Ð°Ý¦U¦ì¤j¤j¡A§Q¥Îexcel²£¥Í¤¶±«á¡A¦p¦ó±±¨îword©O¡H
¬O³o¼Ëªº¡A¤pªº¦b¤u§@¤W»Ý¨Ï¥Î½d¥»§ó§ï¤º®e¡A²£¥Í·sªºÀɮסA»Ý¨Ï¥Îexcel¤Îword¡ã
¯à§_¦bexcel³]p¥X¤¶±«á¡A©I¥sword¡A¨Ã±±¨î§ó§ïword¤º®e©O¡H |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 73
- ºëµØ
- 2
- ¿n¤À
- 333
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2000, 2019
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ¿¤
- µù¥U®É¶¡
- 2013-7-18
- ³Ì«áµn¿ý
- 2024-10-13
|
|
Word§e²{·¥PªºÀRºA¤§¬ü¡AExcel®i²{·¥Pªº°ÊºA¤§¬ü¡C
|
|
|
|
|
- ©«¤l
- 7
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- word10
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2018-12-30
- ³Ì«áµn¿ý
- 2020-6-21
|
Dim Wordapp As Word.Application
Set Wordapp = New Word.Application '·s«ØWordª«¥ó
Wordapp.Visible = True '¥i¨£
Dim WordD As Word.Document '©w¸qwordÃþ
Set WordD = Wordapp.Documents.Add '·s«Ø¤å¥ó
Wordapp.Selection.WholeStory '¥þ¿ï
Wordapp.Selection.Font.Name = "¦rÅé¦W
Wordapp.Selection.Font.Size = 16 '¦r¤Ø¤o |
|
|
|
|
|
|
- ©«¤l
- 41
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- 2019
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-11-28
- ³Ì«áµn¿ý
- 2024-2-1
|
¥Lªº·N«ä¬O¤£¬O§âEXCEL³]p¦nªºª©± ¥X¦¨WORD¤º®e?
¥H«á¥un§ïEXCEL ¡AWORD¤º®e¦Û°Ê§ïÅÜ? |
|
|
|
|
|
|
- ©«¤l
- 4
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- 10
- ³nÅ骩¥»
- OFFICE 2019
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-6-5
- ³Ì«áµn¿ý
- 2019-11-22
|
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-8-30
- ³Ì«áµn¿ý
- 2021-2-25
|
¦]¬°Åv¤£¨¬¤£¯à¶K³sµ²¡A½Ð¦Û¦æ½Æ»s
youtu.be/Stbqrk7PlGU
§Æ±æ¹ï§A¦³À°§Uò¡I |
|
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 6
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2020-1-16
- ³Ì«áµn¿ý
- 2021-2-2
|
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 |
|
|
|
|
|
|