Excelde worde alan kopyaladıktan sonra WordsayfaYapılandırması

[hsayar]

Sub WrdKopya()
Dim objword As Object
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
'If fName <> 0 Then
'ActiveSheet.Name = fName
Range("A1:F100").Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set Mydoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, [B]DataType:=10[/B]
objword.activedocument.SaveAs "C:\" & fName & ".doc"
'End If
End Sub

kodları ile aktarılan aralığın yeniword belgesinde yatay sayfa yapısında olması duruma göre alt,üst, yan kenar boşluklarını nasıl ayarlarım aşağıdaki kodlar word makrosu olup wordden ayarlama yapar. ama bu kodla excel kodu nasıl birleşecek?

[/code]

Sub Makro3()
'
' Makro3 Makro
' Makro, xx tarafından 24.11.2007 tarihinde kaydedildi
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(2.5)
        .BottomMargin = CentimetersToPoints(2.5)
        .LeftMargin = CentimetersToPoints(2.5)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
End Sub

 

[isfa5878]

mesaj kodunu şöyle değiş bakalım ne çıkacak......
gerçekten senin koyduğun sınırdan küçükmüymüş bir görelim..?

MsgBox " tablonuz wordde boyutlandırılamayacaktır" & Range("C1").ColumnWidth + Range("d1").ColumnWidth + Range("e1").ColumnWidth

 

[hsayar]

Sub WrdKopya()
Dim objword As Object
'fName = Application.InputBox("Dosya ismi girin...", "Dosya")
'If fName <> 0 Then
'ActiveSheet.Name = fName
Range("A1:F100").Copy
Set objword = CreateObject("Word.Application")
Set Mydoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Visible = True

      With Mydoc.PageSetup
         [B]   .PageWidth = 841.95 'CentimetersToPoints(29.7)[/B]
            .PageHeight = 595.35 'CentimetersToPoints(21)
      End With

objword.Selection.PasteSpecial Link:=False, DataType:=10
'objword.ActiveDocument.SaveAs "C:\" & fName & ".doc"

End Sub

.PageWidth = 841.95 'CentimetersToPoints(29.7)

nokta şeklinde boyutlandırabiliyorum ancak cm. şeklinde nasıl boyutlandıracam?
veya cm noktaya çevimenin denklemi nedir?
vaya excel sütun genişliği nokta cinsinden nasıl yazılır?

 

[hsayar]

Yorumu olan ustamız yokmu hocam
eğer a:k sütun aralığının genişiği 16.cm den büyükse Word yatay A4 olacak

29,7 -5 = 24,7 dende büyükse yatay A3 olacak gibi

 

[hsayar]

sorunumu her tablo için ayrı ayrı yaptım....... Ancak istediğim olmadı

1)wordün sayfa yapısını excelde neden santimetre olarak belirleyemiyoruz da sadece nokta cinsinden belirleniyor?
noktayı mm çevirmenin formülü nedir
______nokta____mm<<<<>>>>______nokta____mm
_____841,95____297<<<<>>>>_____595,350____210
2,834848485______1<<<<>>>>______ 2,8350____001

&#351;eklinde i&#231;ler d&#305;&#351;lar ald&#305;m ama sonu&#231;lar farkl&#305; ger&#231;i o kadar hassas olmasada olur ama hani varsa fena olmaz... tabi cm cinsinden i&#351;lemi yapmak daha makbul. olacakt&#305;r

http://www.excel.web.tr/showpost.php?p=219843&postcount=18
yapt&#305;&#287;&#305;m dosya bu her sayfa i&#231;in ayr&#305; kod yazmaktansa elseif lerle halledecektim ama i&#351;in i&#231;inden &#231;&#305;kamad&#305;m bende ayr&#305; ayr&#305; yazd&#305;m.

 

[hsayar]

excel vba da word&#252;n sayfa yap&#305;s&#305;n&#305; cm cinsinden belirleyemezmiyiz

kopyalan&#305;p yap&#305;&#351;t&#305;r&#305;lan tablonun table(1) sayfaya ortal&#305; olmas&#305; nas&#305;l sa&#287;lan&#305;r (wordde tablo &#246;zellikleri ortala)