none
Variabile oggetto oggetto o variabile del blocco with non impostata - automation word RRS feed

  • Domanda

  • Salve, 

    premetto che non sono un grande esperto di visual basic e ho un problema, sto utilizzando da tempo il codice che segue in office 2010 e tutto funziona regolarmente. Ora ho necessità di utilizzare office 2016 e 2019 ma il programma si blocca dando errore "Variabile oggetto oggetto o variabile del blocco with non impostata"

    In pratica da access il codice apre un documento word e scrive alcuni dati estrapolati dalle tabelle di access.

    Private Sub NuovoDocumento(Nomedocumento As String)

    Dim oApp As Object, Percorso As String, NomeFile As String, a As Integer

    Dim dbs As Database, rst As Recordset, strSQL As String

    'Imposta il percorso per l'apertura di word
    Percorso = DirProgrammi & "\DocumentiServer\LettereOffice"

    NomeFile = "LetteraTipoOffice"

    ChDrive Left(DirProgrammi, 1)
    ChDir (Percorso)
      
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
     
    'Apre il doc di word
      
    If CurDir <> Percorso Then ChDir (Percorso)
           
    oApp.Documents.Open FileName:=Percorso & "\" & NomeFile, ConfirmConversions:=False, _
    ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
    PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
    WritePasswordTemplate:=""
    oApp.Activate
           
    'Scrive sul doc di word
    oApp.Selection.TypeParagraph
    oApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    oApp.Selection.Font.Size = 6
    oApp.Selection.TypeText Text:=" " & Me.CodLettera
      
    'Elimina eventuali tabulatori

    oApp.Selection.ParagraphFormat.TabStops.ClearAll

    'Inserisce tabulatori (1 cm = 28.35 punti)
    oApp.Selection.ParagraphFormat.TabStops.Add nbsp; 

    ecc.

    Il codice si blocca alla prima istruzione che utilizza "Selection" (oApp.Selection.TypeParagraph).

    Sapreste dirmi come posso risolvere e aggiornare il mio codice per poterlo fare girare su office 2016 e 2019?

    Grazie


    domenica 17 novembre 2019 18:05