Oppure

Loading
31/01/10 18:55
Kivar
Salve come da titolo cerco il modo di portare dei dati da una testo inserito in una textbox dentro un file word.

Grazie
aaa
01/02/10 19:49
Mte90
dovresti salvare il testo in un file leggibile da word.
potresti usare una richtextbox e salvare il suo contenuto mettendo come estensione rtf.
poi ki usa il file se lo apre e se lo salva come vuole.
aaa
03/02/10 20:45
Kivar
Postato originariamente da Mte90:

dovresti salvare il testo in un file leggibile da word.
potresti usare una richtextbox e salvare il suo contenuto mettendo come estensione rtf.
poi ki usa il file se lo apre e se lo salva come vuole.


Ho risolto in altra maniera usando sendkeys ora però ho il problema che non so come impostare la grandezza del testo il mio codice ora è cosi:

System.Windows.Forms.SendKeys.Send("~~~~~~~~{TAB 9}Pinco palla";)

Come posso fare in modo che sul file word il testo abbia grandezza 12 e font time new roman?

Grazie
aaa
03/02/10 22:06
Mte90
non ne ho idea no ho mai usato sendkeys.
spero che qualcun altro ci illumini :yup:
aaa
04/02/10 17:27
walker93
con sendkeys non puoi impostare il font o la dimensione poiche simula solo la pressione dei tasti,dovresti prima di iniziare a digitare le lettere impostare il font/dimensione direttamente su word.
e non so come potresti fare...
ma se anziche usare sendkeys,usi la clipboard (tipo copia,incolla) forse...
aaa
04/02/10 18:41
Kivar
Mi diresti il codice per portare la frase in word tramite clipboard ;)
grazie
aaa
05/02/10 10:31
Alfonso
Devi aggiungere il riferimento alla libreria di word che hai installato.
Con Microsoft Word 2000

My Project > Riferimenti > Aggiungi > COM > Seleziona Microsoft Word 9.0 Object Library

Imports System.Runtime.InteropServices
Imports Word

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     Dim word As New Word.Application
     Dim doc As Word.Document
     Try
        doc = word.Documents.Add()
        Dim Testo As String = "ABCDEFGHI"
        Dim range As Word.Range = doc.Range(Start:=0, End:=0)
        range.Text = Testo
        doc.SaveAs("d:\test.doc")
     Catch ex As COMException
        MessageBox.Show("Errore in scrittura")
     Finally
        doc.Close(True)
        word.Quit()
     End Try

  End Sub
End Class


Questo codice ti crea un nuovo documento con il tuo testo.
Ultima modifica effettuata da Alfonso 05/02/10 11:25
aaa