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,
