? Uma macro é uma ferramenta utilizada para automatizar tarefas tediosas e repetitivas , para que você não tem que dirigir -se louco de fazê-las você mesmo . Eles são sequências de comandos que você pode configurar para executar sempre que você precisar deles. Microsoft Office contém muitas macros que você não vai nem perceber que existem , mas uma vez que eles estão lá para economizar tempo e aliviar o tédio desses postos de trabalho monótono , você pode querer adicionar um pouco de seu próprio que são pessoais . Usar o Visual Basic (VB ) para fazer uma macro que pode ser implementado em tempo de execução do seu computador. Instruções
Criar um arquivo do Word contendo um
Macro
1
Abra o Microsoft Office Word.
2
Clique no botão "Microsoft Office" e , em seguida, escolha a opção " Novo".
3
Pressione " Alt " e " F11 " juntos no teclado para iniciar o editor do Visual Basic.
4
Clique na guia "Inserir" , em seguida, em " . Module"
5
Destaque o seguinte código de exemplo macro e pressione " Ctrl" e "C" para copiá-lo :
' exibe uma caixa de mensagem que exibe a aplicação nome.
Public Sub DoKbTest ()
MsgBox " Olá do " & Application.Name
End Sub
'Exibe uma caixa de mensagem com a string passado do cliente
' Automation.
Public Sub DoKbTestWithParameter ( sMsg as String)
MsgBox sMsg
End Sub
6
Clique no novo módulo , então segure "Ctrl " e pressione " p" para colar o código de macro.
7
Saia do Editor do Visual Basic .
8
Clique no botão "Microsoft Office" , e depois em " Salvar".
9
Localize e selecione um local para armazenar o documento do Word , selecione "Salvar" e , em seguida, sair do Word .
fazer o cliente VB Automação
10
Execute o Microsoft Visual Studio. NET .
11
Clique em " Arquivo", depois "New ", seguido pelo "Projeto ". Escolha " Windows Application " dos tipos de projetos . Isto irá criar Form1.
12
Clique no menu " Project", selecione " Add Reference ".
13
Localize e selecione "Microsoft Word 10.0 Object Library " ou "Microsoft Word 11.0 Object Library " do cOM.
14
Clique em "OK ", em seguida, selecione "Sim" se for solicitado a fazê-lo.
15
Clique em " Ver ", depois em " Ferramentas " e, em seguida, insira um botão e uma caixa de combinação em Form1. Selecione "Button1 ".
16
Copie o seguinte código de exemplo :
Select Case ComboBox1.SelectedItem
caso
"Acesso "
Dim oAccess como Access.ApplicationClass
'Start Access e abra o banco de dados.
oAccess = CreateObject (" Access.Application " )
oAccess.Visible = True
oAccess.OpenCurrentDatabase ( "c: \\ db1.mdb " , False)
'Executar as macros
oAccess.Run ( " DoKbTest " )
oAccess.Run . ( " DoKbTestWithParameter ", " . Olá do VB NET cliente")
" Clean- up: . . Saia do Access sem salvar as alterações no banco de dados
oAccess.DoCmd () Sair ( Acess AcQuitOption.acQuitSaveNone )
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oAccess )
oAccess = Nothing
caso
" Excel "
Dim oExcel Como Excel.ApplicationClass
Dim oBook Como Excel.WorkbookClass
Dim oBooks Como Excel.Workbooks
'
Inicie o Excel e abra a pasta de trabalho.
oExcel = CreateObject ( " Excel.Application " )
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oBooks.Open ( "c: \\ book1.xls " )
'Executar as macros.
oExcel.Run ( " DoKbTest " )
oExcel.Run ( " DoKbTestWithParameter ", " Olá do VB . NET Client" ) < br >
" Clean- up: . Feche a pasta de trabalho e saia do Excel
oBook.Close ( False)
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBook )
oBook = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oBooks )
oBooks = Nothing
oExcel.Quit ()
Sistema . Runtime.InteropServices.Marshal.ReleaseComObject ( oExcel )
oExcel = Nothing
Caso " PowerPoint "
Dim oPP Como PowerPoint.ApplicationClass
Dim oPresSet como PowerPoint.Presentations
Dim oPres como PowerPoint.PresentationClass
'Start PowerPoint e abra a apresentação .
oPP = CreateObject (" PowerPoint.Application " )
oPP.Visible = True
oPresSet = oPP.Presentations
oPres = oPresSet.Open ( "c: \\ Pres1.ppt ", , True)
' executar as macros.
oPP.Run (" Pres1.ppt ' ! DoKbTest " )
oPP.Run (" Pres1.ppt ' DoKbTestWithParameter ! ", " Olá do VB . NET cliente ")
" Clean- up: . Feche a apresentação e sair do PowerPoint
oPres.Close ()
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPres )
oPres = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oPresSet )
oPresSet = Nothing
oPP.Quit ()
System.Runtime.InteropServices.Marshal.ReleaseComObject (OPP)
oPP = Nothing
caso "Palavra"
Dim oWord Como Word.ApplicationClass
" Inicie o Word e abra o documento .
oWord = CreateObject (" Word.Application " )
oWord.Visible = True
oWord.Documents.Open ( " C: \\ Doc1.doc " )
'Executar as macros
oWord.Run ( ". DoKbTest " )
oWord.Run ( " DoKbTestWithParameter "," Olá a partir de VB . NET cliente ")
' Saia do Word .
oWord.Quit ()
System.Runtime.InteropServices.Marshal.ReleaseComObject ( oWord )
oWord = Nothing
End Select
GC.Collect ()
17
cole o código copiado no "Procedimento Button1_Click ".
. " Form1 " 18
Clique em "Exibir ", depois " Designer ", e em seguida, selecione
19
Copie o seguinte código :
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Dim a As String () = { "Acesso ", " Excel ", " PowerPoint ", " Palavra "}
ComboBox1.Items.AddRange ( a)
ComboBox1 . SelectedIndex = 0
20
cole o código para o "Procedimento Form1_Load. "
21
Copie o código que se segue :
Acesso Importações = Microsoft . Office.Interop.Access
Imports Excel = Microsoft.Office.Interop.Excel
Importações Palavra = Microsoft.Office.Interop.Word
Imports PowerPoint = Microsoft.Office . Interop.PowerPoint
22
cole este código na parte superior do " Form1.vb. "
23
Hit " F5 " no teclado para iniciar a sua aplicação.
