Ma dove sbaglio ??? ho scritto il codice come ha detto lei ,nel word compare solo le due tabelle e l'ultima riga di testo ,e le altre righe di testo che fine fanno???????
[Dim videoscrittura As word.Application
Dim docanalisistocri As New word.Document
Dim immagine(10) As Image
Dim tabellaforma As word.Table
Dim paragrafo1, paragrafo2, paragrafo3, paragrafo4, paragrafo5, paragrafo6, paragrafo7, paragrafo8, paragrafo9, paragrafo10, paragrafo11 As word.Paragraph
'Dim tabellatrauma As word.Table
'Dim tabelladissesti As word.Table
'Dim tabellaconsoli As word.Table
Dim dic As IO.DirectoryInfo
videoscrittura = CreateObject("word.application")
If My.Computer.FileSystem.DirectoryExists("c:\") Then
dic = New IO.DirectoryInfo("c:\livdicon\analisistoricocritica")
If dic.Exists Then
Console.WriteLine("la directory già esiste")
Else
dic.Create()
End If
Percorsoana = "c:\livdicon\analisistoricocritica\analisistocri.docx"
Percorsoanapdf = "c:\livdicon\analisistoricocritica\analisistocri.pdf"
docanalisistocri = videoscrittura.Documents.Add("c:\modelli\template.docx")
ElseIf My.Computer.FileSystem.DirectoryExists("d:\") Then
dic = New IO.DirectoryInfo("d:\livdicon\analisistoricocritica")
If dic.Exists Then
Console.WriteLine("la directory già esiste")
Else
dic.Create()
End If
Percorsoana = "d:\livdicon\analisistoricocritica\analisistocri.docx"
Percorsoanapdf = "d:\livdicon\analisistoricocritica\analisistocri.pdf"
docanalisistocri = videoscrittura.Documents.Add("d:\modelli\template.docx")
End If
paragrafo1 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange1 As word.Range
oRange1 = paragrafo1.Range
oRange1.Font.Bold = True
oRange1.Font.Size = 18
oRange1.Text = " " & vbCrLf & _
" Analisi Storico Critica " & vbCrLf & _
" "
oRange1.InsertParagraphAfter()
If Livelloconoscenza.materiale = "Muratura" Then
paragrafo2 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange2 As word.Range
oRange2 = paragrafo2.Range
oRange2.Font.Bold = False
oRange2.Font.Size = 10
oRange2.Text = "L’analisi storico critica cerca di riordinare in maniera organica le principali informazioni acquisite in fase di ricerca documentale . Le fonti alle quali si è attinto nella ricerca sono gli archivi comunali e provinciali, specificamente per le opere analizzate, ed una serie di testi riguardanti la tecnica del calcestruzzo armato e la " & vbCrLf _
& "pratica edile pubblicati nell’Europa di inizio secolo, per quanto attiene alle tecniche costruttive allora utilizzate. Da tale analisi si è cercato di capire l’evoluzione degli edifici nei decenni con particolare riferimento all 'aspetto strutturale ed edile ad esso correlato: demolizioni e ricostruzioni,ampliamenti, ricostruzione di parti anche non strutturali ma aventi particolare interesse al fine " & vbCrLf _
& " strutturale. Si è posta particolare attenzione ai cambiamenti di destinazione d’uso subiti, alle variazioni dei carichi permanenti e variabili che i lavori hanno comportato,dalle azioni eccezzionali che la struttura ha dovuto sopportare nel tempo oltre agli eventuali impatti delle realizzazioni impiantistiche. "
oRange2.InsertParagraphAfter()
paragrafo3 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange3 As word.Range
oRange3 = paragrafo3.Range
oRange3.Font.Bold = True
oRange3.Font.Size = 18
oRange3.Text = " " & vbCrLf & _
" Ricerca della documentazione disponibile " & vbCrLf & _
" "
oRange3.InsertParagraphAfter()
paragrafo4 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange4 As word.Range
oRange4 = paragrafo4.Range
oRange4.Font.Bold = False
oRange4.Font.Size = 10
oRange4.Text = "Prima di ogni attività che riguarda un lavoro complesso come può essere quello di un adeguamento strutturale/miglioramento sismico è buona norma fare una ricerca oculata di tutto il materiale disponibile (progetto esecutivo,costruttivo,eventualmente di variante) presso i competenti uffici provinciali e comunali e presso l'ex uffcio del genio civile ora servizi tecnici regionali" & vbCrLf _
& " Ogni documento, anche se non completo, risulterà di fondamentale importanza nella ricostruzione dei fatti storici di cambiamento strutturale ed architettonico dell'opera in esame.Di fondamentale importanza specialmente nelle costruzioni antiche è lo studio delle tecniche costruttive del tempo,in modo da avere sotto controllo la situazione costruttiva dell'epoca" & vbCrLf _
& "Documentazione disponibile : Disegni geometrici - Dettagli Costruttivi - Carpenterie - Eventuali pilastrate o Travate(se in ca/accaio)-Relazione struttura ultimata- Certificato di Collaudo-Certificati originali del laboratorio d prova dei materiali(se disponibili)" & vbCrLf _
& "Di fondamentale importanza sono: " & vbCrLf
oRange4.InsertParagraphAfter()
paragrafo5 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange5 As word.Range
oRange5 = paragrafo5.Range
oRange5.Font.Bold = True
oRange5.Font.Italic = True
oRange5.Font.Size = 10
oRange5.Text = "L'epoca di costruzione del manufatto " & vbCrLf _
& "Le tecniche,regole costruttive e se in vigore le norme costruttive dell'epoca " & vbCrLf _
& "La forma originaria e le sue successive modifiche se possibile documentate con foto " & vbCrLf _
& "I traumi subiti e le alterazioni delle condizioni al contorno del manufatto esistente " & vbCrLf _
& "Le deformazioni ,i dissesti e i quadri fessurativi, con indicazioni,ove possibile,della loro evoluzione del tempo " & vbCrLf _
& "Gli interventi di consolidamento pregressi " & vbCrLf _
& "Gli aspetti urbanistici e storici che hanno regolato lo sviluppo dell'aggregato edilizio di cui l'edificio fa parte " & vbCrLf _
& "Altre patologie e carenze costruttive"
oRange5.InsertParagraphAfter()
paragrafo6 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange6 As word.Range
oRange6 = paragrafo6.Range
oRange6.Font.Bold = True
oRange6.Font.Italic = True
oRange6.Font.Size = 10
oRange6.Text = " " & vbCrLf & _
" Epoca di costruzione dell'opera,tecniche costruttive e normativa " & vbCrLf & _
" "
oRange6.InsertParagraphAfter()
paragrafo7 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange7 As word.Range
oRange7 = paragrafo7.Range
oRange7.Font.Bold = False
oRange7.Font.Size = 10
oRange7.Text = "La struttura è stata realizzata nel " & Analisi_storico_critica.epoca & " tipicamente in quegli anni c'erano diverse tecniche costruttive(..........) inoltre nessuna norma sismica era in vigore in italia/erano in vigore le norme " & Analisi_storico_critica.norme & vbCrLf
oRange7.InsertParagraphAfter()
paragrafo8 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange8 As word.Range
oRange8 = paragrafo8.Range
oRange8.Font.Bold = True
oRange8.Font.Size = 14
oRange8.Text = " " & vbCrLf & _
" La forma originaria e le successive modifiche " & vbCrLf & _
" "
oRange8.InsertParagraphAfter()
paragrafo9 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange9 As word.Range
oRange9 = paragrafo9.Range
oRange9.Font.Bold = False
oRange9.Font.Size = 10
oRange9.Text = "La struttura negli anni non ha cambiato la sua forma/ci sono stati alcuni interventi di sopraelevazione/cè stato un intervento di ampliamento in corrispondenza del primolivello/secondo livello " & vbCrLf
oRange9.Text = " " & vbCrLf
oRange9.InsertParagraphAfter()
paragrafo10 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange10 As word.Range
oRange10 = paragrafo10.Range
tabellaforma = docanalisistocri.Tables.Add(docanalisistocri.Range, 1, 2)
oRange10.Text = " " & vbCrLf
tabellaforma.Cell(1, 1).Range.InlineShapes.AddPicture("c:\immagini\Analisi_storico_critica\ASC1_for.jpeg", 1, 1)
tabellaforma.Cell(1, 2).Range.InlineShapes.AddPicture("c:\immagini\Analisi_storico_critica\ASC2_for.jpeg", 1, 2)
oRange10.Collapse(word.WdCollapseDirection.wdCollapseStart)
oRange10.InsertAfter(" ------------------------------------------------------------------------------------ ")
tabellaforma.Range.InsertParagraphAfter()
paragrafo11 = docanalisistocri.Content.Paragraphs.Add()
Dim oRange11 As word.Range
oRange11 = paragrafo11.Range
oRange11.Font.Bold = True
oRange11.Font.Size = 12
oRange11.ParagraphFormat.Alignment = word.WdParagraphAlignment.wdAlignParagraphJustify
oRange11.Text = " " & vbCrLf & _
" I traumi subiti e le alterazioni delle condizioni al contorno del manufatto esistente " & vbCrLf & _
" "
oRange11.InsertParagraphAfter()
'oRange.Font.Bold = False
'oRange.Font.Size = 10
' oRange.Text = "La struttura ha subito alcuni danni da incendio al piano.../prontamente ripristinati nel 1985 con un intervento locale di sostituzione del solaio in allegato le foto del ripristino del solaio/La struttura non ha subito durante gli anni passati nessuna vicenda di alterazione dello stato tensionale e deformativo per cui è stata progettata. " & vbCrLf
' oRange.Font.Bold = True
'oRange.Font.Size = 12
'oRange.Text = " " & vbCrLf & _
' " Le deformazioni ,i dissesti e i quadri fessurativi, loro evoluzione del tempo " & vbCrLf & _
' " "
' oRange.Font.Bold = False
'oRange.Font.Size = 10
' oRange.Text = "Durante la fase di sopralluogo ed ispezione dei luoghi si è visto che la struttura non presenta particolari dissesti in fondazione,pertanto ai sensi del capitolo 8.3 sulla valutazine delle sicurezza possiamo escludere le verifiche in fondazione ai fini della valutazione della vulnerabilità sismica,in elevazione l'analisi dei quadri fessurativi è buona a tutti i piani,si rilevano solo microfessure che rientrano nelle problematiche di intonaco e non dovrebbero intaccare la sezione resistente dei maschi murari. " & vbCrLf
End If
docanalisistocri.SaveAs2(Percorsoana)
docanalisistocri.Close()