批量轉(zhuǎn)換word文檔

替換功能提供一次多個(gè)替換，比如把整篇文字中的所有相同文字替換成另一個(gè)固定文字，僅限于相同的替換，而不同的文字不可能一次全部替換

現(xiàn)在的公司開(kāi)商調(diào)函

這個(gè)估計(jì)要采用VBA編程來(lái)循環(huán)所有單元格按指定的規(guī)則對(duì)一個(gè)一個(gè)的單元格一次性替換完成，如果用一般的替換，會(huì)造成重復(fù)替換，得不到預(yù)期的結(jié)果的。
思路：讀取一個(gè)單元格中的字符串，然后判斷該字符串的長(zhǎng)度，然后將該字符串中一個(gè)一個(gè)的字符分離出來(lái)，然后對(duì)字符進(jìn)行判斷，按照指定的規(guī)則進(jìn)行替換，完畢后，將該新的字符組合得到替換后的新字符串再來(lái)賦值給該單元格，如此反復(fù)處理每一個(gè)單元格即可。
單擊工具-宏，新建一個(gè)宏名，單擊創(chuàng)建，然后復(fù)制如下代碼并自己修改一下即可：
Dim str As String
For c = 1 To n 'n指代的是該表中該類數(shù)據(jù)所在列的最大列數(shù)，自己按實(shí)際情況修改，默認(rèn)從第1列開(kāi)始
For r = 1 To m 'm指代的是該表中該類數(shù)據(jù)所在行的最大行數(shù)，自己按實(shí)際情況修改，默認(rèn)從第1行開(kāi)始
nstr = Len(Cells(r, c).Text)
For i = 1 To nstr
strtmp = Mid(Cells(r, c).Text, 1, 1)
Select Case strtmp
Case "a"
strtmp = "b"
Case "b"
strtmp = "n"
Case "c"
strtmp = "v"
Case "g"
strtmp = "z"
Case "r"
strtmp = "o"
Case "h"
strtmp = "s"

'在這里把你的替換規(guī)則按上面的形式補(bǔ)充完整
End Select
str = str + strtmp
Next i
Cells(r, c).Value = str
str = ""
strtmp = ""
Next r
Next c

1.在一個(gè)存在二氧化硫、三氧化硫和氧氣的密閉容器中，用外力壓縮容器，化學(xué)平衡向生成二氧化硫和氧氣的方向移動(dòng)。機(jī)械能轉(zhuǎn)化為二氧化硫和氧氣的化學(xué)能
2.炸彈
3.太陽(yáng)能電池將儲(chǔ)備的內(nèi)能轉(zhuǎn)化為電能
4.金屬及其化合物在電磁輻射照射下發(fā)射電子的現(xiàn)象稱為光電效應(yīng),而把所發(fā)射的電子稱為光電子。光電效應(yīng)表明:光能可以直接轉(zhuǎn)化為機(jī)械能,即光電子的動(dòng)能
5.好象前面有了

1.在一個(gè)存在二氧化硫、三氧化硫和氧氣的密閉容器中，用外力壓縮容器，化學(xué)平衡向生成二氧化硫和氧氣的方向移動(dòng)。機(jī)械能轉(zhuǎn)化為二氧化硫和氧氣的化學(xué)能 2.炸彈 3.太陽(yáng)能電池將儲(chǔ)備的內(nèi)能轉(zhuǎn)化為電能 4.金屬及其化合物在電磁輻射照射下發(fā)射電子的現(xiàn)象稱為光電效應(yīng),而把所發(fā)射的電子稱為光電子。光電效應(yīng)表明:光能可以直接轉(zhuǎn)化為機(jī)械能,即光電子的動(dòng)能 5.好象前面有了

電風(fēng)扇就是電能轉(zhuǎn)化成動(dòng)能哇

電池就是化學(xué)能轉(zhuǎn)化成電能啊

水電站就是水的勢(shì)能轉(zhuǎn)化成發(fā)電機(jī)機(jī)的動(dòng)能在轉(zhuǎn)化成電能啊

太陽(yáng)能熱水器就是太陽(yáng)能<其實(shí)是光能>轉(zhuǎn)化成熱能啊

通過(guò)做功轉(zhuǎn)換的，功是能量轉(zhuǎn)化多少的量度。做功是能量轉(zhuǎn)化的中介。

化學(xué)能轉(zhuǎn)化為熱能。

電風(fēng)扇就是電能轉(zhuǎn)化成動(dòng)能哇

電池就是化學(xué)能轉(zhuǎn)化成電能啊

水電站就是水的勢(shì)能轉(zhuǎn)化成發(fā)電機(jī)機(jī)的動(dòng)能在轉(zhuǎn)化成電能啊

太陽(yáng)能熱水器就是太陽(yáng)能<其實(shí)是光能>轉(zhuǎn)化成熱能啊