none
Variáveis estão sempre vazias após executar um procedimento. RRS feed

  • Discussão Geral

  • Boa Tarde,

    Tenho o código, já escrito e em funcionamento em macro script no Word e estou tentando passar para o VB.Net, para tentar aprender alguma coisa no VB.Net.

    Adianto que não sou nenhum expert e sim um aprendiz.

    Estou declarando numa parte do script umas variáveis que são transferidas para uma sub-rotina e onde as variáveis deveriam ser retornadas com valores e não vazias.

    A sub-rotina executa e gera as variável como esperado, mas não me devolve ao step que chamou a sub-rotina.

    segue abaixo uma parte do código:

            Dim STA As Integer

            i = 1   
            STA = 1
            Do Until STA > sta11

                Dim STAT_X(20) As String

                Dim status_fchx As String, salta_loop As String, status_i As String

                Dim x_stat As Integer

                x_stat = 0
                status_fchx = ""
                salta_loop = ""
                status_i = ""

                Call Testa_Existe_Status(STAT_X, x_stat, status_fchx, salta_loop, Dir1_fch, status_i)

                If salta_loop = "SIM" Then
                    GoTo salt_loop
                End If

                Dim objword As Object

                'Instancia a Aplicação Word.
                objword = CreateObject("Word.Application")

                'Abre o documento aviso.doc do Microsoft Word.

                objword.documents.Open(FileName:=Dir2_fch & "\" & status_fch(i) _
                 , ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False _
                             , PasswordDocument:="", PasswordTemplate:="", Revert:=False _
                             , WritePasswordDocument:="", WritePasswordTemplate:="", XMLTransform:="")

                objword.ActiveDocument.SaveAs(FileName:=status_fchx,
                             LockComments:=False, Password:="",
                            AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False,
                           EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
                :=False, SaveAsAOCELetter:=False)
              

    Agradeço, antecipadamente a ajuda,


    • Tipo Alterado Marcos SJ terça-feira, 3 de maio de 2016 13:52 How to
    segunda-feira, 2 de maio de 2016 17:33