小太陽 發問時間: 電腦與網際網路軟體 · 1 0 年前

有關在word 2000下,製作巨集的問題?

各位大大:

請問:

在word 2000之下,

如何將內文中所有的「★」符號,換成插入檔案(doc)?

如何使用 巨集 來完成呢?

現在我只會用以下流程:

1.先將內文中的「★」符號,標示(mark)出來

2.點選 插入(工具列)

3.點選 ??.doc

4.點選 插入

可否有人指點,如何使用巨集,

將內文中所有的「★」符號,換成插入檔案(doc)?

謝謝!^_^

已更新項目:

我按tranvy的方式做,但出現

執行階段錯誤'53':

找不到檔案

的對話窗

似乎以下這串程式有誤.

Open "c:\test.txt" For Input As #1

我完全看不懂程式.

是否能加註解說呢?

●我要插入的doc檔名為:line.doc(放在c:\keyin\)

2 個已更新項目:

●更正,有誤的程式為:

Open "c:\test.txt" For Input As #1

請問,這裡的 "c:\:text.txt" 是什麼含義?

3 個已更新項目:

●更正有誤的程式為:

Open "c:\test.txt" For Input As #1

請問,這裡的"c:\test.txt" 為何意?

4 個已更新項目:

不解?

Open "c:\ks3\Line.doc" For Input As #1

5 個已更新項目:

●我要插入的doc檔名為:line.doc(放在c:\keyin\)

^_^

6 個已更新項目:

嗚嗚嗚,怎麼沒人解答呀!

^o^

2 個解答

評分
  • 1 0 年前
    最佳解答

    Dim Datas As String, s As String

    Open "c:\test.txt" For Input As #1

     Do Until EOF(1)

      Input #1, s

      Datas = Datas & s

     Loop

    Close #1

    With Selection.Find

     .Text = "★"

     .Replacement.Text = Datas

     .Forward = True

     .Wrap = wdFindContinue

     .Format = False

     .MatchCase = False

     .MatchWholeWord = False

     .MatchByte = True

     .MatchWildcards = False

     .MatchSoundsLike = False

     .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    2008-05-22 16:41:09 補充:

    C:\test.txt是要開啟的目標檔案

    照你的檔案

    改成c:\keyin\line.doc

    ps。這對一般文字檔案適用

    • 登入以對解答發表意見
  • 1 0 年前

    沒有理想答案,

    如何按無滿意解答????

    • 登入以對解答發表意見
還有問題?馬上發問,尋求解答。