2014-11-03 62 views
-2

我正處於vba學習的初始階段。我已經寫了這段代碼,它需要打印屏幕並在五秒鐘後將其粘貼到powerpoint中,當我運行我的代碼時,我想要打印屏幕,它應該在前兩次單擊時打印屏幕。
Sub PrintScreen() Sleep 5000 keybd_event VK_MENU, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 ActivePresentation.Slides.Add 1, ppLayoutBlank ActivePresentation.Slides(1).Shapes.Paste End Sub前兩次點擊打印屏幕

+3

你的代碼在哪裏? – 0x499602D2 2014-11-03 15:59:08

+0

@ 0x499602D2聽起來像他們想讓我們寫他們的代碼.. – cybermonkey 2014-11-03 16:08:42

回答

1

由於大多數操作系統不支持隨機插入文本到一個文件,你將不得不讀取每個文本行,修改和寫入修改後的文本行到一個文件中。

這裏有一個算法:

While reading the text line is good: 
    Prepend your text to the text line. 
    Write text line to new file. 
    end-while 
close files. 

如果使用std::string,你可以查找的insert方法來幫助你。

+0

工作沒有完成。然後您必須刪除原始文件,並用原始文件的名稱重命名輸出文件。 – 2014-11-03 16:59:23

+0

OP可能不想更改原始文件,這就是爲什麼我沒有提到該部分。 – 2014-11-03 17:10:01