Oppure

Loading
21/11/07 13:40
moet
Ho una form che compila un file word e lo manda in stampa. Qualcuno sa come fare il sottolineato ? grazie :D
aaa
21/11/07 14:47
MeTeMpSiCoSi
Dovrebbe essere così, non vorrei sbagliarmi:

Text1.FontStrikethru = True

se ci sono problemi posta pure
Ultima modifica effettuata da MeTeMpSiCoSi 21/11/07 14:50
aaa
21/11/07 16:12
moet
Ti inserisco un pezzo di codice...


Dim MyWord As New Word.application
    With MyWord
        .Visible = True
        .Documents.Add
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        .Selection.Font.Bold = wdToggle
        .Selection.Font.Size = 16
        .Selection.TypeText Text3.Text & "                                                                                          " & Date & vbCrLf & vbCrLf
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Selection.Font.Bold = wdToggle
       
        .Selection.Font.Size = 26
        .Selection.TypeText "" & vbCrLf & vbCrLf
        .Selection.TypeText "N° COMMESSA: " & Text2.Text & vbCrLf & vbCrLf
        .Selection.TypeText ricorda & vbCrLf & vbCrLf
        .Selection.Font.Size = 36
        .Selection.TypeText Text1.Text & vbCrLf & vbCrLf
        '.Documents(WordApp.Documents.Count).SaveAs "C:\nomefile.doc"
        '.PrintOut
    End With
aaa
21/11/07 17:32
MeTeMpSiCoSi
Postato originariamente da moet:

Ti inserisco un pezzo di codice...


Dim MyWord As New Word.application
    With MyWord
        .Visible = True
        .Documents.Add
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        .Selection.Font.Bold = wdToggle
        .Selection.Font.Size = 16
        .Selection.TypeText Text3.Text & "                                                                                          " & Date & vbCrLf & vbCrLf
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Selection.Font.Bold = wdToggle
       
        .Selection.Font.Size = 26
        .Selection.TypeText "" & vbCrLf & vbCrLf
        .Selection.TypeText "N° COMMESSA: " & Text2.Text & vbCrLf & vbCrLf
        .Selection.TypeText ricorda & vbCrLf & vbCrLf
        .Selection.Font.Size = 36
        .Selection.TypeText Text1.Text & vbCrLf & vbCrLf
        '.Documents(WordApp.Documents.Count).SaveAs "C:\nomefile.doc"
        '.PrintOut
    End With


In questo caso credo basta aggiungere

.Selection.FontStrikethru = True

prova e fammi sapere.;)
aaa
21/11/07 18:07
moet
heheh ci ho provato di nuovo ma non esiste il metodo !!!

FontStrikethru hehehe
aaa
21/11/07 19:15
MeTeMpSiCoSi
non avendo molto tempo per provare prova così:

.Selection.Font.Underline=True

fammi sapere
aaa
21/11/07 19:33
moet
FATTA!!!!!!! GRANDE !!!!! E GRAZIE ! :rotfl::k:
aaa
21/11/07 21:42
MeTeMpSiCoSi
:k: di nulla.
avevo sbagliato io all'inizio perchè non ricodavo Underline:rotfl:
ciao a presto:asd:
aaa