Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema di doppia apertura di documento word
Forum - Visual Basic 6 - Problema di doppia apertura di documento word

Avatar
djleo (Member)
Pro


Messaggi: 72
Iscritto: 07/03/2010

Segnala al moderatore
Postato alle 16:11
Mercoledì, 20/04/2011
Questo topic è stato chiuso dal moderatore

Ciao a tutti, ho un (credo piccolo) problema con un programma che sto facendo. Allora il programma deve prelevare da un db access i dati relativi di un socio e metterli in un documento word al posto di stringhe che ho messo io, e fin qui tutto bene, ora il problema sta nel fatto che mi apre due documenti word, e qui la mia domanda come faccio per farne aprire uno solo?
Posto il codice del apertura e della sostituzione dei dati:
Codice sorgente - presumibilmente VB.NET
  1. Public Sub ApriDocumento()
  2. Set appwd = CreateObject("Word.Application")
  3. appwd.Visible = True
  4. appwd.Documents.Open FileName:=App.Path & "\domanda.doc", ConfirmConversions:=False, ReadOnly _
  5.         :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
  6.         :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
  7.         , Format:=wdOpenFormatAuto
  8. appwd.ActiveDocument.SaveAs FileName:=App.Path & "\domanda.doc", FileFormat:=wdFormatDocument, _
  9.         LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
  10.         :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
  11.         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
  12.         False
  13.         Set appwd = Nothing
  14. End Sub
  15.  
  16. Public Sub AssociaModello()
  17. Dim appwd As Object
  18. Dim i As Integer
  19. 'On Error Resume Next
  20. Call inizvet
  21.  
  22. Set appwd = CreateObject("Word.Application")
  23.  
  24.    
  25. appwd.Visible = True
  26.    
  27.     appwd.Documents.Add Template:=App.Path & "\domanda.dot", NewTemplate:=False, DocumentType:=0
  28.        
  29.    
  30.      
  31.    appwd.Selection.Find.ClearFormatting
  32.    appwd.Selection.Find.Replacement.ClearFormatting
  33.    For i = 0 To 18
  34.     With appwd.Selection.Find
  35.         .Text = a(i)
  36.         .Replacement.Text = Data3.Recordset.Fields(i).Value
  37.         .Forward = True
  38.         .Wrap = wdFindContinue
  39.         .Format = False
  40.         .MatchCase = False
  41.         .MatchWholeWord = False
  42.         .MatchWildcards = False
  43.         .MatchSoundsLike = False
  44.         .MatchAllWordForms = False
  45.     End With
  46.     appwd.Selection.Find.Execute Replace:=wdReplaceAll
  47.     Next
  48.  
  49.  
  50.  
  51. ' appwd.ActiveDocument.SaveAs FileName:=App.Path & "\domanda.doc", FileFormat _
  52. '        :=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
  53. '       True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
  54. '        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
  55. '        SaveAsAOCELetter:=False
  56.  
  57.  
  58.  
  59. Set appwd = Nothing
  60. End Sub

PM
Avatar
djleo (Member)
Pro


Messaggi: 72
Iscritto: 07/03/2010

Segnala al moderatore
Postato alle 17:36
Giovedì, 28/04/2011
Risolto. Ne aprivo due.Scusate
Chiudete pure

PM