- 帖子
- 50
- 主題
- 38
- 精華
- 0
- 積分
- 94
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- windows
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-5-25
- 最後登錄
- 2023-2-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 |
|
發表於 2020-4-13 21:16
| 
