Kodları Tekrar çalıştıramama ve hata mesajı

[pekerl]

Arkadaşlar Merhaba!
Ben projemde visual basic de makro kodları ile word sayfasına aktarımlar yapıyorum..bu aktarımlar resim ve tablo aktarımı gibi..burda her hangi bir sorun yok.. yanlız ikinci kez yapmak istediğimde olmuyor..sayfa açılıyor ama resim ve tablo lar çıkmıyor. ve üstüne şu hatayı alıyorum...

Run- Time Error '464':
The remote server machine does not exist or is unavailable.


Ne yapmam Gerekli!

Yardımlarınız için çok teşekkür ederim!

 

[sakoz]

Run- Time Error '464':
The remote server machine does not exist or is unavailable.
hatası uzaktaki makina müsait degil anlamına geliyor.Siz bu dosyayı network üzerinde başka bir makinadanmı çalıştırıyorsunuz...?

 

[pekerl]

hayır..
localde çalışıyor...
iki kez üste üste yaparken bu hatayı alıyorum..

 

[pekerl]

Yardıcı olması açısından kodlarıda gönderiyorum...

Dim objWord As New Word.Application
objWord.Visible = True
objWord.Documents.Open filename:=Label16.Caption
With objWord.Selection

ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.TypeParagraph
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
6, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Tablo K&#305;lavuzu" Then
.Style = "Tablo K&#305;lavuzu"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 10
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="ADI"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.TypeText Text:="Hamdi"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 10
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="SOYADI"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.TypeText Text:="Teker"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 10
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="DO&#286;UM TAR&#304;H&#304;"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.TypeText Text:="26/09/1986"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 11
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="KAN GRUBU"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.TypeText Text:="ARh(+)"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 10
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="PROTOKOL NO"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.TypeText Text:="101303"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Font.Size = 10
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="DO&#286;UM YER&#304;"
Selection.MoveRight Unit:=wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.TypeText Text:="BEYKOZ"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
' .TypeText RichTextBox1.Text
Selection.TypeParagraph
'ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

With Selection.Tables(1)
If .Style <> "Tablo K&#305;lavuzu" Then
.Style = "Tablo K&#305;lavuzu"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
.Borders.Enable = False
End With
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter


Set myobj = Selection.InlineShapes.AddPicture(Text11.Text)
Selection.TypeText " "
Set myobj = Selection.InlineShapes.AddPicture(Text12.Text)

ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.TypeParagraph
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
' ActiveDocument.Tables.Add
With Selection.Tables(1)
If .Style <> "Tablo K&#305;lavuzu" Then
.Style = "Tablo K&#305;lavuzu"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
.Borders.Enable = False
End With
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.Font.Name = "verdana"
Selection.Font.Bold = True
Selection.Font.color = wdColorBlue
Selection.TypeText Text:=Label4.Caption & " - " & Text3.Text
Selection.MoveRight Unit:=wdCell

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 10
Selection.Font.Name = "verdana"
Selection.Font.Bold = True
Selection.Font.color = wdColorBlue
Selection.TypeText Text:=Label5.Caption & " - " & Text4.Text


.WholeStory
.HomeKey Unit:=wdStory
End With
objWord.Documents(1).SaveAs "d:\raporlar\" & Text1.Text & ".odt", , 0
Set objWord = Nothing

hata: