A automatização de documentos Word é uma técnica muito poderosa, através dela você faz documentos diferentes se comunicarem através de código VBA em seu projeto Access. Isto nos permite fazer algumas coisas muito poderosas, como preencher documentos com dados diretamente do seu banco de dados, além disso pode formatá-los remotamente e encaminhá-los de acordo com perfis previamente definidos. A função abaixo mostra um exemplo muito simples de como interagir com o MS Word dentro de sua aplicação MS Access.
Public Function doWordAutomation()
On Error GoTo doWordAutomationErr
Dim objWordDoc As Word.Document
Dim objWord As Word.Application
Dim sDocument As String
Let sDocument = Application.CurrentProject.Path & "\MyNewWordFile.doc"
Set objWord = CreateObject("Word.Application")
Set objWordDoc = objWord.Documents.Open(Application.CurrentProject.Path & "\MyExistingWordFile.doc")
If FileExists(sDocument) Then
Kill sDocument
End If
objWordDoc.SaveAS sDocument
With objWordDoc.Bookmarks
If .Exists("YourBookMarkName") Then
Let .Item("YourBookMarkName").Range.Text = "your value"
End If
End With
objWordDoc.Save
objWordDoc.Close
doWordAutomationExit:
Exit Function
doWordAutomationErr:
MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
Resume doWordAutomationExit
End Function
#A&A #Automação #Access #MSAccess #MS Word #PIECEOFCAKE #POC #VBA
Defina a Latitude e a Longitude - Find Latitude and Longitude of any address using Google Map API and VBA
VBA Excel - Traduzindo Planilhas - MS Excel VBA Script to Translate worksheets using the Google Translate API
Excel - Manipule o Google Maps em sua Planilha - Put a Google Map in your Spreadsheet
Convertendo Texto em Imagem - Convert Text to an Image using the VBA Windows API
Correção de Métricas - For Subscripts, Superscripts and Common Typos
MS Access - Cinco Formas Manuais de Reparo
MS Access e MS Word - Técnica de Automação
Microsoft Access - Removendo Prefixo das Tabelas
Sempre Use Stored Procedures - Always Use Stored Procedures
A&A - Dados ou Informações?
Consulte-nos
⬛◼◾▪ CONTATO ▪◾◼⬛
Nenhum comentário:
Postar um comentário