kuu

帖子: 13
主題: 3
精華: 0
積分: 16
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2010-8-9
最後登錄: 2024-9-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-1-8 22:49 | 只看該作者

[發問] 關於自動取代功能

各位大家好：
我有一個需求，就是開始word檔，它能自動取代某些文字
例如
H2O→自動取代成為H2O [2 為下標]

不知如何讓WORD打開，就自動進行取代的動作

樓主熱帖

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

2^#

發表於 2014-1-9 23:49 | 只看該作者

回復 1# kuu

1.開Word,按Alt+F11
2.[檢視]>[專案總管]
3.快按二下[Project]中的[ThisDocument]
4.於[程式碼]視窗中,左側選[Document];右側選[Open]
5.稍微刪改一下 http://blog.udn.com/junk200/2878195 的程式碼
6.將內容貼於下面的中間

Private Sub Document_Open()
End Sub

複製代碼

7.儲存

以上供您參考

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

kuu

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 16
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2010-8-9
最後登錄: 2024-9-1

3^#

發表於 2014-1-14 08:30 | 只看該作者

感謝偉婕的幫忙，化學式的自動取代是解決了
但是我的文件中除了化學式還有其他的英文字，例如
JIS K6703或是ASTM D634等不需要取代的，但是依上述公式，也被取代了
我的想法是
作一個化學文件的WORD檔，內容有H20→H2O [2 為下標]等要被取代的文字及要取代的字
在NORMAL作一VBA，讓WORD一開啟就去檢查文件中有無「化學文件的WORD」中要被取代的字

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

4^#

發表於 2014-1-14 17:41 | 只看該作者

回復 3# kuu

參考 http://blog.udn.com/WayCheng/2731101 看看
範例中是用.txt,由於您有化學式,所以改成.doc試看看

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

kuu

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 16
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2010-8-9
最後登錄: 2024-9-1

5^#

發表於 2014-1-15 20:33 | 只看該作者

偉婕您好：
我將該範例中的txt改為doc，但是出現錯誤訊息如下(如紅色所示)
Option Base 0
Sub Document_Open()
Dim arrStr() As String, InputStr As String
Fn = FreeFile

Open "c:\Replace.doc" For Input As #Fn '開啟Replace.doc檔
Application.ScreenUpdating = False  '畫面暫停更新
While Not EOF(Fn)
Line Input #Fn, InputStr '從檔案讀出一列,
If Len(InputStr) > 0 And Mid(InputStr, 1, 1) <> "'" Then '若第一個字元是'就跳此列
      arrStr = Split(InputStr, ",") '把讀入的文字列依逗號分成二個字串，置於 arrStr陣列內
      Call ReplaceText(arrStr(0), arrStr(1)) '
End If
Wend
Application.ScreenUpdating = True '畫面恢復更新
Close #Fn

End Sub

Function ReplaceText(Src As String, Rpl As String) '這個函式會在整個檔案裡搜尋Src字串，將它取代為Rlp字串

Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Src
.Replacement.Text = Rpl
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll '全部取代
End With

End Function

不知應該要怎麼改，才能正確顯示，感謝您的幫忙。

TOP

kuu

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 16
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2010-8-9
最後登錄: 2024-9-1

6^#

發表於 2014-1-15 20:49 | 只看該作者

執行到紅色，會顯示錯誤訊息「執行階段錯誤'9', 陣列索引超出範圍」

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章