Microsoft Word - Dicas e truques passo a passo

Fazendo que o Word preencha os campos de uma etiqueta com os dados de uma tabela Access de forma automática

Para tal procedimento, crie a seguinte macro no word:

Sub etiquetas()
ActiveDocument.MailMerge.MainDocumentType=wdMailingLabels
ActiveDocument.MailMerge.OpenDataSourceName="C:\caminho\nome_banco.mdb", ConfinnConversions:=false, ReadOnly:=false, LinkToSource:=True, AddToRecentFiles:=false, PasswordDocument:="", PasswordTemplate:="", WritePassWordDocument:="", WritePasswordTemplate:="", Rever:=false, Format:=WdOpenFormatAuto, Connection:="Nome_tabela", SQLStatement:="SELECT * FROM [tabela]",SQLStatement1:=""
Application.MailingLabel.DefaultPrintBarcode=false
Application.MailingLabel.CreateNewDocument.Name:="", Adress:="Nome: <<campo_nome>>"&chr(13)&"Endereço:<<campo_endereço>>"&chr(13),AutoText:=""
ActiveWindow.ActivePane.VerticalPercentScrolled=25
ActiveWindow.ActivePane.VerticalPercentScrolled=0
End Sub

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco