Nunca usei este recurso em VBA, então vou só postar alguns links com dicas, veja se consegue ajustar, se pesquisar no Google por "SendKeys PRINT SCREEN excel vba" encontrará vários artigos e dicas :

VBA: using SendKeys to print the screen
http://www.mrexcel.com/forum/excel-ques ... creen.html

How to do a screen capture using VBA
http://word.mvps.org/faqs/macrosvba/PrtSc.htm

[]s

Bom dia,

Em um módulo tenho o seguinte código:

Sub incon()
Application.WindowState = xlMinimized
Application.Wait (DateAdd("s", 1, Now()))
Call PrintTheScreen1
Shell "C:Program FilesMicrosoft Office 15rootoffice15winword.exe", vbNormalFocus
Application.Wait (DateAdd("s", 1, Now()))
SendKeys "{ENTER}"
SendKeys "Inconsistências filial:_____"
SendKeys "{ENTER}"
SendKeys "^v"
Application.Visible = True
End Sub


Sub PrintTheScreen1()
Application.SendKeys "(%{1068})"
DoEvents
End Sub

Ok, Neste código o Excel abre, minimiza e tira um print da tela ativa que estiver aberta naquele momento, logo depois abre o Word, escreve e cola a tela. Até ai super tranquilo e ótimo.
Mas a minha dúvida é se eu consigo fazer com que, caso o word já esteja aberto quando eu for executar novamente o processo, ele repita o processo no word aberto.
Caso esteja fechado, ele abre um novo, caso aberto, ele continua o mesmo trabalho.

Qualquer dica é bem vinda, abraço.

Quem conseguir ganha o selo Bill Gates de qualidade...

Kkkk

Juauvitor, conforme as regras do forum, procure não abrir tópicos repetidos.

Mauro Coutinho
Moderador