Добрый вечер.
Суть проблемы заключается в том что была написана программа
которая должна была из множества файлов Word одного шаблона (в шаблоне расположены 99 таблиц) создавать 99 файлов одних и тех же таблиц формата Word.
Реализовано все это было методом поиска по меткам в шаблоне.
при переходе на более новые версии msWord(с 2007 на 2010) и VB(с 2008 на 2012).
программа стала выдавать ошибки при сохранении, при закрытии, может вылететь(Подвиснуть) сама программа Word. До перехода было все нормально все работало. Причем ошибки могут вылетать не каждый раз.
Помогите если сможете разобраться в чем проблема.
при анализе исходного кода выдает следующие сообщение
для инструкции Clipboard.Clear()
CA2202 Не ликвидировать объекты несколько раз Объект "'mdO.Tables.GetEnumerator()'" можно удалять более одного раза в методе 'Form1.Button3_Click(Object, EventArgs)'. Чтобы избежать исключения System.ObjectDisposedException, следует вызывать метод "Dispose" для объекта только один раз.: Lines: 170 Отчеты кафедр Form1.vb 170
сам код процедуры:
| Код |
nt = Split( _
" 2.1.1, 2.2.1, 2.2.2, 2.3.1, 2.3.2" & _
", 2.4.1, 2.4.2, 2.4.3, 2.5.1" & _
", 2.5.2, 3.2.1, 3.3.1, 3.3.2, 3.3.3, 3.3.4, 3.3.5, 3.3.6, 3.3.7, 3.3.8, 3.3.9, 3.3.10, 3.3.11, 3.3.12" & _
", 3.4.1, 3.4.2" & _
", 3.4.3, 3.4.4, 3.4.5" & _
", 4.1.1, 4.1.2, 4.1.3, 4.1.4, 4.2.1, 4.2.2, 4.2.3, 4.2.4, 4.3.1, 4.3.2" & _
", 5.1.1, 5.2.1, 5.2.2, 5.2.3, 5.2.4, 5.2.5, 5.2.6, 5.2.7" & _
", 5.3.1, 5.3.2, 5.3.3, 5.3.4, 5.3.5, 5.3.6, 5.3.7" & _
", 5.4.1, 5.4.2, 5.4.3, 5.5.1" & _
", 5.5.2, 5.5.3, 5.5.4, 5.5.5, 5.5.6, 5.5.7, 5.5.8, 5.5.9, 5.5.10, 5.5.11, 5.5.12, 5.5.13, 5.5.14" & _
", 5.6.1, 5.6.2" & _
", 5.6.3, 5.6.4" & _
", 6.1.1, 6.1.2, 6.2.1, 6.2.2, 6.3.1, 6.3.2, 6.4.1" & _
",7.1.1, 7.1.2, 7.1.3" & _
", 7.1.4, 7.1.5, 7.1.6, 7.2.1, 7.2.2, 7.2.3, 7.2.4" & _
", 7.2.5, 7.3.1, 7.3.2, 7.3.3, 7.3.4" & _
", 8.1,Соисполнитель", ",")
For i = 0 To 96
ProgressBar1.Value = 0
ProgressBar2.Value = 0
ProgressBar1.Visible = True
ProgressBar2.Visible = True
' System.Windows.Forms.Application.DoEvents()
mdI = owI.Documents.Add()
owI.ActiveWindow.ActivePane.View.Type = Word.WdViewType.wdNormalView
owI.ActiveWindow.View.Type = Word.WdViewType.wdNormalView
ProgressBar1.Maximum = 8
ProgressBar1.Minimum = 0
Dim fs As Object
l = 0
fs = CreateObject("Scripting.FileSystemObject")
fold = fs.GetFolder(Label1.Text)
For Each fl In fold.Files
Extent = Split(fl.Name, ".")
If Extent(1) = "doc" Or Extent(1) = "docx" Then l = l + 1
Next
ProgressBar2.Maximum = l
ProgressBar2.Minimum = 0
l = 0
For Each fl In fold.Files
ProgressBar1.Value = 0
' System.Windows.Forms.Application.DoEvents()
Extent = Split(fl.Name, ".")
If Extent(1) <> "doc" And Extent(1) <> "docx" Then GoTo 1
fai = CStr(Label1.Text + "\" + fl.Name)
mdO = owO.Documents.Open(fai)
owO.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
owO.ActiveWindow.ActivePane.View.Type = Word.WdViewType.wdNormalView
owO.ActiveWindow.View.Type = Word.WdViewType.wdNormalView
owO.Visible = True
owI.Visible = True
owI.Selection.PageSetup.PageHeight = owO.Selection.PageSetup.PageHeight
owI.Selection.PageSetup.Orientation = owO.Selection.PageSetup.Orientation
owI.Selection.PageSetup.PaperSize = owO.Selection.PageSetup.PaperSize
owI.Selection.PageSetup.PageWidth = owO.Selection.PageSetup.PageWidth
owI.Selection.PageSetup.LeftMargin = owO.Selection.PageSetup.LeftMargin
owI.Selection.PageSetup.TopMargin = owO.Selection.PageSetup.TopMargin
owI.Selection.PageSetup.RightMargin = owO.Selection.PageSetup.RightMargin
owI.Selection.PageSetup.BottomMargin = owO.Selection.PageSetup.BottomMargin
ProgressBar1.Value = 2
owO.Selection.Find.ClearFormatting()
With owO.Selection.Find
.Text = "Табл." + nt(i)
.Replacement.Text = ""
.Forward = True
.Wrap = Word.WdFindWrap.wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
owO.Selection.Find.Execute()
t1 = owO.Selection.End
owO.Selection.Find.ClearFormatting()
With owO.Selection.Find
If i = 96 Then
.Text = nt(i + 1)
Else
.Text = "Табл." + nt(i + 1)
End If
.Replacement.Text = ""
.Forward = True
.Wrap = Word.WdFindWrap.wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
owO.Selection.Find.Execute()
t2 = owO.Selection.End
If t1 = 0 Then
ProgressBar2.Value = l
l = l + 1
mdO.Close()
mdO = Nothing
Continue For
End If
ProgressBar1.Value = 4
k = False
For Each r In mdO.Tables
If r.Range.Start > t1 And r.Range.End < t2 Then
System.Windows.Forms.Application.DoEvents()
r.Cell(1, 1).Select()
If owO.Selection.End >= t2 Then Exit For
If owO.Selection.End > t1 And owO.Selection.End < t2 Then
ProgressBar1.Value = 6
owI.Selection.TypeParagraph()
owI.Selection.MoveDown(, 5)
owI.Selection.InsertParagraphAfter()
owI.Selection.TypeText(Text:=fl.name)
owI.Selection.TypeParagraph()
r.Select()
owO.Selection.Copy()
owI.Selection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)
k = False
Clipboard.Clear()
' ProgressBar1.Value = 8
End If
End If
Next
owI.Selection.InsertBreak(Word.WdBreakType.wdPageBreak)
mdO.Close()
mdO = Nothing
ProgressBar2.Value = l
l = l + 1
' t1 = 1
t2 = 1
1: Next
If InStr(nt(i), "*") = 0 Then
mdI.SaveAs("C:\Users\Public\Documents\" & Trim(nt(i)) & ".doc", Word.WdSaveFormat.wdFormatDocument, False, "", True, "", False, False, False, False, False)
Else
mdI.SaveAs("C:\Users\Public\Documents\" & Trim(Replace(nt(i), "*", "") & ".doc"), Word.WdSaveFormat.wdFormatDocument, False, "", True, "", False, False, False, False, False)
End If
mdI.Close()
mdI = Nothing
Next i
owO.Quit()
owI.Quit()
owO = Nothing
owI = Nothing
|
|
)