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
|