Kiểm tra code VBA trong file word

[lenkha]

Chào gia đình GPE!

Mình có copy được 2 code VBA trong word từ trên mạng về:
- code 1: vẽ hình hoa văn
- code 2: tạo border cho trang word
nhưng khi mình chạy code thì không được như ý muốn (code đính kèm trong file), trong file mình có mô tả ý định của mình.
Mong mọi người kiểm tra và giúp đỡ.

 

[huuthang_bd]

Chào gia đình GPE!

Mình có copy được 2 code VBA trong word từ trên mạng về:
- code 1: vẽ hình hoa văn
- code 2: tạo border cho trang word
nhưng khi mình chạy code thì không được như ý muốn (code đính kèm trong file), trong file mình có mô tả ý định của mình.
Mong mọi người kiểm tra và giúp đỡ.

Bonus thêm Excel

 

[AutoReply]

---------------------------------------------------------------------
Bài viết gửi nhầm, BQT có đi ngang xin xóa dùm bài này.

 

[lenkha]

Bonus thêm Excel

Quá hay @huuthang_bd, cám ơn nhiều. Còn code tạo border thì sao, nhờ giúp đỡ luôn.

 

[huuthang_bd]

Quá hay @huuthang_bd, cám ơn nhiều. Còn code tạo border thì sao, nhờ giúp đỡ luôn.

Nghỉ lễ rồi bạn

 

[lenkha]

Nghỉ lễ rồi bạn

Nhờ gia đình GPE, ai chưa nghỉ lễ kiểm tra giúp mình code còn lại ạ. Chân thành cảm ơn

 

[khi ta 20]

Bonus thêm Excel

Hay quá ,các hình ý cho vào nhóm dể di chuyển hơn anh

 

[huuthang_bd]

Hay quá ,các hình ý cho vào nhóm dể di chuyển hơn anh

Vẽ xong thì ai muốn làm gì làm. Group thì quét chọn rồi group lại thôi, chắc không tới 10s

 

[khi ta 20]

Vẽ xong thì ai muốn làm gì làm. Group thì quét chọn rồi group lại thôi, chắc không tới 10s

Em có 1 số hình như vầy, group sao vậy anh ?

 

[giaiphap]

Em có 1 số hình như vầy, group sao vậy anh ?

Vậy sửa code của bác @huuthang_bd thế này xem sao (Code này sử dụng trên Excel nhé).

Sub TaoHoaVan()
On Error Resume Next
Application.ScreenUpdating = False
Dim lShapeCount As Long, dRotateStep As Double, i As Long
Dim oThisShape As ShapeRange, oCopyShape As ShapeRange, dTop As Double, dLeft As Double
Dim aArr() As String
Set oThisShape = Selection.ShapeRange
If oThisShape.Count = 0 Then
    MsgBox "Chon hinh truoc di"
    Exit Sub
End If
dTop = oThisShape.Top
dLeft = oThisShape.Left
lShapeCount = InputBox("So hinh", , 20)
ReDim aArr(1 To lShapeCount)
dRotateStep = 360 / lShapeCount
For i = 1 To lShapeCount
    Set oCopyShape = oThisShape.Duplicate
    oCopyShape.Rotation = dRotateStep * i
    oCopyShape.Top = dTop
    oCopyShape.Left = dLeft
    aArr(i) = oCopyShape.Name
Next
oThisShape.Delete
ActiveSheet.Shapes.Range(aArr).Group.Select
Application.ScreenUpdating = True
Exit Sub
End Sub

 

[lenkha]

Nhờ mọi người kiểm tra code tạo border giúp. Thanks!

 

[huuthang_bd]

Nhờ mọi người kiểm tra code tạo border giúp. Cảm ơn!

Hết lễ, làm cho đủ bộ.

 

[lenkha]

Hết lễ, làm cho đủ bộ.

Hoàn thành rồi, cảm ơn @huuthang_bd