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 :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 47 mensagens em 24 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