Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
18 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 18 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Reportar em Font.Bold = True

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Reportar em Font.Bold = True

Mensagem por vieira_mar em 14/11/2010, 10:18

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:

Código:
.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:

Código:
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:

Código:
 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

vieira_mar
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Reportar em Font.Bold = True

Mensagem por vieira_mar em 15/11/2010, 06:47

Algo parecido com isto?

Código:
Select Case intDia
Case 1
strDia = "um"
With Selection
Selection.Font.Bold = wdToggle
End With

vieira_mar
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum