PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Abrir um Diálogo e Localizar,selecionar e abrir um documento Word  (aplicável também a Excel)
Abrir um Diálogo e Localizar,selecionar e abrir um documento Word (aplicável também a Excel)
Débuté par Bastiaan, 02 nov. 2017 23:47 - Aucune réponse
Membre enregistré
37 messages
Popularité : +5 (5 votes)
Posté le 02 novembre 2017 - 23:47
Em algum momento no desenvolvimento de aplicações comerciais, aparece a necessidade de se ter que
permitir ao usuário localizar um documento word (ou excel) e abrí-lo o usando o Word (ou excel)

Segue trecho de código que permite que isto seja feito para Word ( basta alterar a instrução fselect fazendo o buscar arquivos com a extensão XLS que os arquivo em excel também poderão ser abertos.

Segue código.

// define variavel p/guardar arquivo Word a ser localizado
arquivo_a_word_a_abrir is string

// busca arquivos DOC localizados na pasta C:\Documentos
arquivo_a_word_a_abrir = fSelect("C:\Documentos", "", "Seleciona arquivo a usar", "Arquivo DOC (*.DOC)" + TAB + "*.doc" + CR + "Arquivo DOCX (*.DOCX)" + TAB + "*.DOCX", "txt",fselOpen)


// se tiver sido localizado e selecionado um arquivo WORD
// abre o arquivo no Word (ou outro programa padrão (p/exemplo open office) associado para abrir a extensão DOC o DOCX, na máquina do usuário)
IF arquivo_a_word_a_abrir<>"" THEN
ShellExecute(arquivo_a_word_a_abrir,"Open")
END