PRINCIPALE > LISTA DELLE AREE DI DISCUSSIONE > MS OFFICE > MESSAGGIO

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.
Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.


Prezzo: € 0.0.

Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh. [>>]

http://www.active-software.com

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

Messaggio



automazione di word
tommaso 17/03/2004
Difficoltà: Medio

Sto tentando di creare un’applicazione in Visual Basic 6 utilizzando Word .
L'applicazione che ho scritto, che apre Word e crea e riempie una tabella funziona correttamente solo la prima volta. Ecco il listato della routine
Set objword = New Word.Application
Set objdoc = objword.Documents
objword.Visible = True
Set objriasviag = objword.Documents.Open("C:\Documents And Settings\Desktop\progetti\riassuntoviaggi.dot")

Dim data1 As String
Dim data As String
data1 = CStr(Now)
data = Left(data1, 8)
objriasviag.SaveAs ("C:\Documents And Settings\Desktop\progetti\riassuntoviaggi.doc")

'Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed


Selection.TypeText Text:="SIGLA"
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="GIORNO"
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="MESE"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="ANNO"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="CITTA' DI PARTENZA"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="CITTA' DI ARRIVO"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="IMPORTO €"
Dim sigla As String
Dim giorno As String
Dim mese As String
Dim anno As String
Dim part As String
Dim arr As String
Dim impo As String

righe = DataGrid1.VisibleRows
For i = 0 To (righe - 1)
Selection.InsertRowsBelow 1

DataGrid1.Row = i
DataGrid1.Col = 0
sigla = DataGrid1.Text
DataGrid1.Col = 1
giorno = DataGrid1.Text
DataGrid1.Col = 2
mese = DataGrid1.Text
DataGrid1.Col = 3
anno = DataGrid1.Text
DataGrid1.Col = 4
part = DataGrid1.Text
DataGrid1.Col = 5
arr = DataGrid1.Text
DataGrid1.Col = 6
impo = DataGrid1.Text


Selection.TypeText Text:=sigla
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:=giorno
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:=mese
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:=anno
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:=part
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:=arr
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:=impo

Next i

'objword.Visible = True
objriasviag.SaveAs ("C:\Documents And Settings\Desktop\progetti\riassuntoviaggi" + data + ".doc")

objriasviag.Close
objword.Quit
Set objword = New Word.Application
Set objriasviag = objword.Documents.Open("C:\Documents And Settings\Desktop\progetti\riassuntoviaggi" + data + ".doc")
objword.Visible = True
objriasviag.Activate


Se si chiude Word e si lancia la routine una seconda volta, viene generato l'errore 462 "il computer server remoto non esiste o non è disponibile".
potete aiutarmi grazie

 

 

 

 

 
R: Non è possibile aprire più di una volta l'istanza di ... graziella
23/02/2005
R: Aiutatemi serve anche a me!!! > Sto tentando di crear ... Altfio
05/11/2004
R: ho letto il messaggio solo oggi, e quindi magari hai g ... marco
08/10/2004
R: Anche il mio URLAdvisor (by TONIO) > Sto tentando di ... Maurizio
18/08/2004