Skip to main content

AccessTr.neT M.


Acsess'ten Worde Üstbilgi Aktarımı

Acsess'ten Worde Üstbilgi Aktarımı

Çözüldü #1
Merhaba, Aşağıdaki kod ile worde tablo aktarımı yapıyorum. Ancak Word'ün üst bilgi alanınada birşeyler yazmam gerekiyor, ancak üstbilgi alanına bookmark eklememe ragmen çalışmıyor.
Üst bilgi alanı için başka bir yöntemmi kullanmamız gerekiyor acaba?

Ayrıca, worde aktarılan tabloların isimlerini koddada görebileceğiniz şekilde sürekli silmek gerekiyor sanırım, bunun daha pratik kısa bir yolu varmıdır acaba?


Yardımlarınız için şimdiden teşekkürler...

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Dim WordApp As Word.Application
 
   Dim strTemplateLocation As String
 
    strTemplateLocation = CurrentProject.Path & "\PROGRAM.doc"
 
   On Error Resume Next
 
  Set WordApp = CreateObject("Word.Application")
   If Err.Number <> 0 Then
     Set WordApp = CreateObject("Word.Application")
   End If
   
Private Sub Komut218_Click()

On Error GoTo ErrHandler
 WordApp.Visible = True

   WordApp.WindowState = wdWindowStateMaximize
   WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False


   With WordApp.Selection

 DoCmd.OpenQuery "TAPUBİLGİLERİ1Sorgu" ' Burayı Değiştirdik
 DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy

  WordApp.ActiveDocument.Bookmarks("KAPAK1").Range.Paste

  End With
.
.
.
.
.
.

   With WordApp.Selection
    
  

  
.Goto what:=wdGoToBookmark, Name:="İLİ"
.TypeText DLookup("[İLGİLİİDARE]", "İMARDURUMUBİLGİLERİ")

End With


  WordApp.ActiveDocument.Range.Tables(60).Rows(1).Delete '**** Burayı ekledik. ****
          WordApp.ActiveDocument.Range.Tables(60).AutoFitBehavior (wdAutoFitWindow)
        With WordApp.ActiveDocument.Range.Tables(60).Range.Paragraphs  ' burayı ekleyiniz..
        .Alignment = wdAlignParagraphCenter
        End With

   DoEvents
   WordApp.Activate

   Set WordApp = Nothing
   Exit Sub
 
ErrHandler:
Set WordApp = Nothing
Exit Sub

Cevapla
#2

Visual Basic Code
ThisDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range="başlık"

benzeri bir kodu denediniz mi başlık için?

Cevapla
...........
#3
çalışmanızın son durumu ile ilgili bilgi verir misiniz?

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da