VBA - Word - programa q edita cifra

    Autor Mensagem
    xxxagilianxxx
    Veterano
    # mar/12


    Eu estou fazendo, com a ajuda de macros do Word 2007, um programinha que edita as cifras. De forma que ao executar ele, o programa (ou a macro) coloca a cifra no padrão q eu quero (tudo em negrito, tamanho da fonte =14 , etc).

    Aí, agora q vem o problema; eu estou fazendo uma parte q seria responsável por achar (se existir) a tablatura da cifra:
    __A idéia seria:
    *vai pro começo do documento
    *seleciona a 1ª letra da linha atual
    *verifica se é um "E" //'(referente a corda mi - mizinha)
    **se for um "E" --> vai pra linha de baixo e verifica se a 1ª letra da linha de baixo é um "B" //e assim por diante(e B G D A E)
    **se não for um "e" --> vai pra linha de baixo e procura um "e"



    ____O problema está na hora de verificar se o texto selecionado é um "E" //na vdd nos "B", "G", "D" ... também, mas vou considerar só o caso do "E"

    ____O código (em VBA) q eu fiz é:
    For W = 1 To nParas
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'seleciona o 1º caracter da linha atual
    If Document.SelectedText = "e" Then 'se for um "e"
    Selection.HomeKey Unit:=wdLine 'vai pro começo dessa linha
    Call ZZ_ReferenciaAtualII 'guarda a posição atual do cursor
    Selection.MoveDown Unit:=wdLine, Count:=1 'vai 1 linha pra baixo
    Selection.HomeKey Unit:=wdLine 'vai pro começo dessa linha
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'seleciona o 1º caracter da linha

    If Document.SelectedText = "B" Then 'se for um "B"
    Selection.MoveDown Unit:=wdLine, Count:=1 'vai 1 linha pra baixo
    Selection.HomeKey Unit:=wdLine 'vai pro começo dessa linha
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'seleciona o 1º caracter da linha
    If Document.SelectedText = "G" Then

    (...)

    ____A questão: COMO EU FAÇO PRA SABER SE O TEXTO SELECIONADO É OU NÃO É UM "E" ?????

    up

    LeandroP
    Moderador
    # mar/12 · Editado por: LeandroP
    · votar


    xxxagilianxxx

    O nome da corda mais um ou dois traços da tablatura pode funcionar, porque a tablatura não começa com o número da casa colado com o nome da corda. No caso da corda "E" tente utilizar "E--".

    xxxagilianxxx
    Veterano
    # mar/12
    · votar


    faz sentido o q vc falou, depois acho q eu vou modificar isso.


    Mas
    o meu problema é q o programa não reconhece o seguinte código:

    If Document.SelectedText = "e" Then

    tem algum erro na forma de escrever essa linha de código acima!!!

    LeandroP
    Moderador
    # mar/12 · Editado por: LeandroP
    · votar


    xxxagilianxxx

    Não manjo.

    xxxagilianxxx
    Veterano
    # mar/12
    · votar


    mas valeu o toque do "E-"



    (aguém mais) ???

    LeandroP
    Moderador
    # mar/12 · Editado por: LeandroP
    · votar


    xxxagilianxxx

    Não tem como encontrar o resto desta sintaxe no site da Microsoft, ou em algum fórum de programação VB?

    Deve estar faltando um "then else" aí, não?!
    [pergunta de cabaço]

      Enviar sua resposta para este assunto
              Tablatura   
      Responder tópico na versão original
       

      Tópicos relacionados a VBA - Word - programa q edita cifra