• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Căn giữa Table Word

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Căn giữa Table Word
• Căn giữa Table Word

• Căn giữa Table Word

  vuthaiha90 > 10-03-17, 05:29 PM

  Các bác ạ, cho em hỏi là chương trình em như thế này:
  
  

  Mã:

  Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim i As Long
Dim oApp As Object
Dim Doc As Object
Dim strDocName As String
Dim tblNoInDoc As Byte
Dim oWordTbl As Object

temp = """"

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = """" & CurrentProject.Path & "\Word\TC" & "\HDTDTC.doc" & """"
Set Doc = oApp.Documents.Add(strDocName)

Doc.FormFields("SoHDTDTC").Result = Me.SoHDTDTC
'................................................................................
If DLookup("SokytraTC", "T_infovayTC") = 1 Then
Doc.Tables(1).Select
   oApp.Selection.Rows.Add
   oApp.Selection.Rows.Add
   oApp.Selection.Columns.Add
   oApp.Selection.Columns.Add
   oApp.Selection.Columns.Add
   Doc.Tables(1).Cell(1, 1).Range.Text = "Ngày, Tháng, N" & ChrW(259) & "m tr" & ChrW(7843) & " n" & ChrW(7907)
   Doc.Tables(1).Cell(2, 1).Range.Text = Me.NgaydenhanTC
   Doc.Tables(1).Cell(1, 2).Range.Text = "S" & ChrW(7889) & " ti" & ChrW(7873) & "n tr" & ChrW(7843) & " n" & ChrW(7907)
   Doc.Tables(1).Cell(2, 2).Range.Text = Format(Me.SotienvayTC, "#,##0") & ChrW$(273)
   Doc.Tables(1).Cell(1, 3).Range.Text = "Ngày, Tháng, N" & ChrW(259) & "m tr" & ChrW(7843) & " n" & ChrW(7907)
   Doc.Tables(1).Cell(1, 4).Range.Text = "S" & ChrW(7889) & " ti" & ChrW(7873) & "n tr" & ChrW(7843) & " n" & ChrW(7907)
   Doc.Tables(1).Columns.AutoFit
 
       With Doc.Tables(1).Rows(1).Range
           .Font.Bold = True
           .ParagraphFormat.Alignment = 1 
           .Cells.VerticalAlignment = 1
       End With

Doc.Tables(1).AutoFitBehavior (wdAutoFitWindow)

' Hoặc em viết như này nó cũng không chạy căn giữa:
       'With Doc.Tables(1)
       '.AutoFitBehavior wdAutoFitWindow
       'End With

End If

oApp.ActiveDocument.SaveAs Filename:="""" & CurrentProject.Path & "\Preview\TC" & "\" & "HDTDTC" & "_" & DLookup("Nguoidaidien", "T_KH2") & "_" & Me.DonvayTCngaychu & ".doc" & """"
Set oApp = Nothing

  
  Em định làm cho bảng biểu căn giữa so với trang giấy của Word trước khi in nhìn cho đẹp nhưng cho đoạn code kia không chạy (em dùng Tool/Macro/Record new macro để xem code nhưng khi add vào chương trình không chạy). Bác nào giúp em chỉnh lại cho đúng ạ, em cảm ơn.

• RE: Căn giữa Table Word

  hieuvn > 10-03-17, 05:51 PM

  thử lệnh này xem:
  

  Mã:

  Selection.Tables(1).Rows.Alignment =1

  
  hoặc:
  

  Mã:

  Tables(1).Range.ParagraphFormat.Alignment = 1

  have fun

• RE: Căn giữa Table Word

  vuthaiha90 > 10-03-17, 05:57 PM

  (10-03-17, 05:51 PM)hieuvn Đã viết: thử lệnh này xem:
  

  Mã:

  Selection.Tables(1).Rows.Alignment =1

  
  hoặc:
  

  Mã:

  Tables(1).Range.ParagraphFormat.Alignment = 1

  have fun

  
  Dạ, em dùng cái Rows.Alignment = 1 ra rồi bác ạ, tiện cho em hỏi cái .AutoFitBehavior (wdAutoFitWindow) dùng khi nào ạ
• Bài trước Bài tiếp