vieira_mar

Boa noite. Poderás explicar-me como fazer isso? Terei de fazer mais um boorkmark? Agradeço Um abraço

Boa dia. Estou a efectuar um trabalhinho para a minha escola e necessito de alguma ajuda. O formulário vai reportar um texto para o word nestes termos: .Bookmarks("TextoIntro").Range.Text = "Convoca-se os docentes, " + strConvocatoriaDe + ", " + "para uma reunião a realizar no dia " + CNomeDia(Day(Calendar1.Value)) + " de " + NomeMes(Month(Calendar1.Value)) + " de " + NomeAno(Year(Calendar1.Value)) + " " + "pelas" + " " + txtHoraActa + ", " + "com a seguinte ordem de trabalhos:" Exemplo de texto final: Convoca-se os docentes, das Actividades de Enriquecimento Curricular, para uma reunião a realizar no dia dezasseis de Novembro de dois mil e dez, pelas dezoito horas e cinco minutos, com a seguinte ordem de trabalhos: Tenho uma Função, para o dia, que está assim: Public Function CNomeDia(ByVal intDia As Integer) As String Dim strDia As String Select Case intDia Case 1: strDia = "um" Case 2: strDia = "dois" Case 3: strDia = "três" Case 4: strDia = "quatro" Case 5: strDia = "cinco" Case 6: strDia = "seis" Case 7: strDia = "sete" Case 8: strDia = "oito" Case 9: strDia = "nove" Case 10: strDia = "dez" Case 11: strDia = "onze" Case 12: strDia = "doze" Case 13: strDia = "treze" Case 14: strDia = "catorze" Case 15: strDia = "quinze" Case 16: strDia = "dezasseis" Case 17: strDia = "dezassete" Case 18: strDia = "dezoito" Case 19: strDia = "dezanove" Case 20: strDia = "vinte" Case 21: strDia = "vinte e um" Case 22: strDia = "vinte e dois" Case 23: strDia = "vinte e três" Case 24: strDia = "vinte e quatro" Case 25: strDia = "vinte e cinco" Case 26: strDia = "vinte e seis" Case 27: strDia = "vinte e sete" Case 28: strDia = "vinte e oito" Case 29: strDia = "vinte e nove" Case 30: strDia = "trinta" Case 31: strDia = "trinta e um" End Select CNomeDia = strDia End Function O que pretendo é que quando ele enviar o dia por extenso, o coloque a negrito. Poderia usar a função Find mas não me parece correcto porque poderá encontrar palavras semelhantes e também as coloca em negrito. Isso não interessa. A única coisa que encontrei que resolve parcialmente a situação, de uma forma pouco correcta é isto: With ActiveDocument.Content.Find .ClearFormatting .Font.Bold = False .Format = True .Replacement.ClearFormatting .Replacement.Font.Bold = True .Execute Forward:=True, Replace:=wdReplaceAll, FindText:=" um ", ReplaceWith:=" um " 'Linha a alterar End With Teria de repetir a "linha a alterar" para todas as condições ficando a programação demasiado extensa. Alguém tem alguma ideia que possa resolver o meu problema? Não sou expert em VBA, mas estou a estudar o seu funcionamento. Desde já grato pela vossa colaboração MarcoG Portugal.

Boa noite. Sou aprendiz de VBA, por curiosidade. Estou a fazer um documento para utilizar na minha escola, com a finalidade de facilitar o preenchimento de actas de reuniões. Como tal, e porque não consigo encontrar algo que me ajude, necessito de copiar uma selecção do Excel para o Word e que fico com a aparência do que lá coloquei (no ficheiro do Word). Até já fiz uma tabela, no Gestor de Nomes, no Excel, para tentar importar essa referência. No entanto não consigo algo. Queria algo que ficasse aqui: If cboTipo.Value = "ACTA DE REUNIÃO DE CONSELHO DE TURMA" Then Set myWB = GetObject("Docentes.xlsm") Selection.GoTo What:=wdGoToBookmark, Name:="Disciplina1Nome" Selection.TypeText (myWB.Sheets("ConselhoDeTurma").Range("Disciplina1_Nome")) Set myWB = Nothing '.Bookmarks("Tabela2").Application.ScreenRefresh Desta forma só copia uma célula. Já tentei colocar várias células juntas, no gestor de Nomes, mas não importa. Dá erro. Um abraço MarcoG

Necessitava de uma ajudinha com a importação do txt. Não estou a conseguir efectuar uma importação de dados de um txt de no me Docentes.txt, para um ficheiro de word com bookmarks. Desde já agradeço MarcoG

Bom dia. Valeu pela ajuda. Sou iniciante... Um abraço e obrigado MarcoG

Boas Já tentei efectuar isto no VBA do Word mas não deu certo. Necessito fazer alguma alteração em relação ao Word 2007? Abraço

Boa noite. Sou aprendiz de VBA, por curiosidade. Estou a fazer um documento para utilizar na minha escola, com a finalidade de facilitar o preenchimento de actas de reuniões. Como tal, e porque não consigo encontrar algo que me ajude, necessito de copiar uma selecção do Excel para o Word e que fico com a aparência do que lá coloquei (no ficheiro do Word). Até já fiz uma tabela, no Gestor de Nomes, no Excel, para tentar importar essa referência. No entanto não consigo algo. Queria algo que ficasse aqui: If cboTipo.Value = "ACTA DE REUNIÃO DE CONSELHO DE TURMA" Then Set myWB = GetObject("Docentes.xlsm") Selection.GoTo What:=wdGoToBookmark, Name:="Disciplina1Nome" Selection.TypeText (myWB.Sheets("ConselhoDeTurma").Range("Disciplina1_Nome")) Set myWB = Nothing '.Bookmarks("Tabela2").Application.ScreenRefresh Desta forma só copia uma célula. Já tentei colocar várias células juntas, no gestor de Nomes, mas não importa. Dá erro. Um abraço MarcoG

Boa noite Chamo-me Marco Gonçalves e estou aqui para aprender umas coisinhas, neste momento de VBA. Tenho 36 anos e sou professor de Educação Visual e Geometria. Um abraço e todos os que contribuem para o ensino, com um pouco do seu tempo. MarcoG