wdNewBlankDocument Değişken tipi nedir?

[hsayar]

Daha evvel kullandığım kodlar vardı ve çalışıyor ancak değişken tanımlamak zorunlu olsun dediğim zaman wdNewBlankDocument değerinde tanımsız değişken hatası veriyor. ben şimdilik vartiant dedim ama gerçekte ne olarak tanımlanmalıdır. Object kabul etmedi.

1.modül

Sub Worde_Yapistir()
Selection.Copy
Call SeciliAlaniWordeYapistir(42.55, 42.55, 25, 25)
End Sub

2.modul

Option Explicit           'Değişken tanımlamak zorunludur
Sub SeciliAlaniWordeYapistir(ByVal ust, alt, sol, sag As Integer, _
                          Optional Yatay As Boolean, Optional kapat As Boolean, _
                          Optional DosyaAdı As String = "")
'ust, alt, sol, sag                                Kenar Boşlukları
'Yatay             False (Varsayılan) veya True    Sayfa Yönü
'Kapat             False (Varsayılan) veya True    Kapatılacakmı?
'DosyaAdı          Kapatılırken kayıt edilecekse metin
Dim objWord, MyDoc          As Object
[COLOR=red]Dim wdNewBlankDocument      As Variant[/COLOR]

Selection.Copy
Application.ScreenUpdating = True
    Set objWord = CreateObject("Word.Application")
    Set MyDoc = objWord.Documents.Add[COLOR=red](DocumentType:=wdNewBlankDocument)[/COLOR]
    objWord.Visible = True
    
    With MyDoc.PageSetup
        .TopMargin = ust '42.55
        .BottomMargin = alt    '42.55
        .LeftMargin = sol     '25#
        .RightMargin = sag    '25#
        If Yatay = False Then
            .PageWidth = 595.35 'CentimetersToPoints(21)     'dikey
            .PageHeight = 841.95 'CentimetersToPoints(29,7)  'dikey
        Else
            .PageWidth = 841.95 'CentimetersToPoints(29.7)   'yataysayfa
            .PageHeight = 595.35 'CentimetersToPoints(21)    'yataysayfa
        End If
    End With
    objWord.Selection.PasteSpecial Link:=False, DataType:=10
    Application.CutCopyMode = False
    
    If DosyaAdı <> "" Then
       With objWord
            .ActiveDocument.SaveAs DosyaAdı
            If kapat = True Then
                .ActiveDocument.Close
                .Quit
            End If
        End With
    End If
Set objWord = Nothing:      Set MyDoc = Nothing:        Set wdNewBlankDocument = Nothing
Application.ScreenUpdating = False
End Sub

 

[Ferhat Pazarçevirdi]

İyi de; neden bunu değişken adı olarak kullanmak istediğinizi anlamadım ? wdNewBlankDocument zaten, Word document tipi parametrelerinin değeri ... Değişken olarak tanımlamanın gereği nedir?

Kodlarda; DocumentType:=0 yazsanızda aynı şey olur.

 

[hsayar]

hocam ben değişken olarak kullanmak istemiyorum option excilipit yazınca modulün başına tanımsız değişken hatası veriyor vba denilen programcık. ben variant dedim geçtim ama gerçekte nedir onu soruyorum

 

[Ferhat Pazarçevirdi]

Hüseyin bey kardeşim, ne yazdığımı dikkatlice okudunuz mu? Option'ı moption'ı geçiniz. Bu isimle, bir değişken tanımlaması yapamazsınız, yapmamalısınız, mantığa aykırı.

Diyorum ki bu bir parametre ...

Excel'in VBA Find komutunda ne yapıyorduk hatırlayınız.

Sheets("Sayfa1").Range("A1:A100").Find("Aranacak Kelime", Lookat:=[B][COLOR=red]xlWhole[/COLOR][/B])

Burada xlWhole neyse, sizin değişşken diye tanımlamaya çalıştığınız şey de o'dur. xlWhole bir parametredir. wdNewBlankDocument 'de bir parametredir.

Siz bu parametreye değer atamak istiyorsanız,

Dim DokumanTipi as integer
DokumanTipi=0

deyiniz.

Set MyDoc = objWord.Documents.Add(DocumentType:=DokumanTipi)

şeklinde de kodunuzu revize ediniz. Dokumantipini istediğiniz gibi değiştiriniz

dim wdNewBlankDocument ..... olmaz ..

 

[hsayar]

Anladım hocam ben orada hata verdi diye öyle söyledim. hocam teşekkürler
şeklinde kullanınca değişken sormadı bile

    Set MyDoc = objWord.Documents.Add(DocumentType:=0) 'wdNewBlankDocument