返回列表下一主題上一主題發帖

word表格資料複製巨集

connietien

中學生 Rank: 2

帖子: 53
主題: 41
精華: 0
積分: 100
點名: 0
作業系統: windows
軟體版本: windows
閱讀權限: 20
性別: 女
註冊時間: 2011-5-25
最後登錄: 2025-3-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-4-13 21:16 | 只看該作者

word表格資料複製巨集

我想把檔案1裡的表格資料複製到檔案2裡,
使用了word巨集錄製後,好像無法起作用,不知是不是哪裡有問題,
請各位高手可以幫我看一下嗎?

檔案一內容為:
名字:
住址:
電話:

巨集內容：

Selection.MoveUp Unit:=wdLine, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
Selection.Copy
Windows("2").Activate
Selection.MoveUp Unit:=wdLine, Count:=4
Windows("1").Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
Selection.Copy
Windows("2").Activate
Windows("1").Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
Selection.Copy
Windows("2").Activate
Selection.TypeParagraph
Windows("1").Activate
Selection.PasteAndFormat (wdPasteDefault)
End Sub