Philcattivocarattere ha scritto:
OsvaldoLaviosa ha scritto:
C'è anche Application.FollowHyperlink che vale per tutti i tipi di file e non ha problemi di Earlybindind/Latebinding.
Giusto, ma non so perché io penso sempre al fatto che poi ci siano altre operazioni da automatizzare. Anche se... (non posso dartela vinta del tutto, Osvaldo, così senza battagliare un po') se il file doc/docx fosse associato ad un altro programma predefinito... ecco che FollowHyperlink userebbe quello, non Word (a casa mia i doc si aprono con LibreOffice... nonostante abbia office! solo perché non ho mai modificato l'associazione dei tipi file ed office è arrivato dopo)
Ciao e ti ringrazio, stavo utilizzando word perchè è quello che ho comprato la licenza e vorrei utilizzarlo fino all'ultima riga di codice
Ho provato ad utilizzare il tuo codice, mi funziona quando apre il file pio si blocca quando inizia a vedere il tipo di carattere ( grassetto - sottolineato ecc )
Dim Wrd As Object
Dim Doc As Object
Dim percorso As String
Const wdAlignParagraphJustify = 3
Const wdAlignParagraphLeft = 0
Const wdAlignParagraphRight = 2
Const wdAlignParagraphCenter = 1
percorso = "C:\Users\D.M. SERVICE\Desktop\test.docx"
Application.FollowHyperlink percorso, , True
Wrd.Visible = True
Wrd.Activate
'titolo
'grassetto si o no
If Comando181.BackColor = 5287936 Then
.font.Bold = True
Else
.font.Bold = False
End If