KHÓA HỌC NHÂN SỰ VÀ KỸ NĂNG MỀM SẮP KHAI GIẢNG TẠI SPRINGO! Tìm hiểu thêm

Quản trị - Phát triển Con người & Tổ chức - SprinGO Consultant
  • hot.gif ĐỪNG BỎ LỠ: mui_ten_1.gif

Sticky threads

  • Dán lên cao
Sub SaveAsNewFile() 'set current doc name and path Dim docName As String: docName = ActiveDocument.Name Dim filepath As String: filepath = ActiveDocument.Path 'create a new file Documents.Add 'get the path of a current file ChangeFileOpenDirectory filepath 'insert content of...
Trả lời
1
Xem
31
  • Dán lên cao
Tôi đang nhậu ở trước nhà đây. Thao tác: mở tập tin -> nhấn tổ hợp Alt + F11 -> click đúp vào ThisDocument -> menu Insert -> Module -> dán code sau vào Module1 Sub FindFormatedText() Dim rngTemp As Range Set rngTemp = ThisDocument.Range ' xoa cac thiet lap cu...
Trả lời
5
Xem
126
  • Dán lên cao
Hình như râu ông nọ cắm... chỗ khác. Ở dưới cuối văn bản, chỗ ký tên hai bên đó... có thay thế luôn không? Bạn lập vào một bảng trên Excel. Cột 1: Tên tập tin word Cột 2: Chuỗi cần thay thế (trước khi thay thế) Cột 3: Chuỗi thay mới. Rồi gửi kèm tập tin word tương tứng với bản vừa lập lên coi...
Trả lời
3
Xem
108
  • Dán lên cao
Nguồn sách là bản tiếng Anh do Phan Tự Hướng sưu tầm, được đăng tại link này. Với mục đích dịch để học nên tôi quyết định bỏ chút ít thời gian để chuyển từ tiếng Anh sang tiếng Việt cho dễ học. Tất nhiên là với trình độ tiếng Anh lem nhem như tôi thì không dịch được gì cả mà chỉ nhờ Google...
Trả lời
0
Xem
167
  • Dán lên cao
Trước đây tôi đã có 2 chủ đề về việc trộn dữ liệu từ Excel vào Word. Một là tại chủ đề này trộn theo cách ghi nguyên vẹn dữ liệu của Excel vào Word giữ nguyên định dạng, bảng mã của chữ và lấy trọn trên 255 ký tự. Hai là tại chủ đề này để trộn theo cách Mail Merge truyền thống của Word. Mỗi...
Trả lời
0
Xem
79
  • Dán lên cao
Gộp nhiều tập tin Word bằng cách copy/paste bằng tay thì đơn giản hơn. Còn bằng code thì nhiều khi khó hơn nhiều khi các tập tin Word khác nhau về page layout, header, footer, page numbering, bookmarks và cross-references, Tables of Contents, Indexes v...v Nhất là khi các...
Trả lời
2
Xem
154
  • Dán lên cao
Lưu ý: 1. Do bạn chỉ nhập tên các tập tin Word vào cột A nên phải đặt các tập tin đó trong cùng thư mục với tập tin Excel, ngược lại thì code không biết tìm chúng ở đâu. 2. Không chỉ nhập tên mà còn phải nhập định dạng nữa. Tức không 651233 mà phải là vd...
Trả lời
2
Xem
122
  • Dán lên cao
Từ nhu cầu của một vài bạn liên quan đến việc dịch tài liệu, tôi chuẩn bị một công cụ nhỏ và xin chia sẻ cho các bạn làm văn phòng, hy vọng nó sẽ giúp các bạn phải làm việc với Tiếng Anh đỡ vất vả khi copy/paste trên web với tính năng dịch của Google. Công cụ này được viết cho Office 2007 trở...
Trả lời
0
Xem
156

Normal threads

Tặng mọi người bộ Addin Word có chức năng cắt thành nhiều file và gửi mail dựa vào 1 cột địa chỉ email. Mọi người vẫn thao tác link dữ liệu từ Excel bằng công cụ Mail Merge của Word nhưng thay vì hoàn tất bằng cách nhấn Finish&Merge của Word thì sử dụng dụng chức năng của Addin để xuất file...
Trả lời
1
Xem
78
Và đây là đoạn code: Function Gen(ByVal s As String) As String Dim rs As String Dim uniBytes As Byte () = Encoding.Unicode.GetBytes(s) For i As Integer = 0 To uniBytes.Length - 1 rs &= uniBytes(i).ToString() Next Return rs End Function Không biết có bác nào quan tâm không? Vậy bác xem...
Trả lời
0
Xem
89
(Xin phép được tách bài từ bài post của bác Maika8008 (Link) để tránh lẫn lộn khi trao đổi và do cũng tài lanh xen vào, gây loãng bài của bác ấy). Trộn dữ liệu từ Excel sang Word ------------------------------------------------------------------------------------------- Lấy cảm hứng từ ý...
Trả lời
10
Xem
180
Những ai có nhu cầu và đã từng sử dụng chức năng Mail Merge của MS Word dùng dữ liệu trên bảng tính Excel đều biết nó hoạt động như thế nào. Không ít trong số đó từng gặp những rắc rối về định dạng số, ngày tháng khi trộn, hoặc khi chuyển file hoạt động tốt từ máy này sang máy khác lại sinh ra...
Trả lời
19
Xem
380
Những ai có nhu cầu và đã từng sử dụng chức năng Mail Merge của MS Word dùng dữ liệu trên bảng tính Excel đều biết nó hoạt động như thế nào. Không ít trong số đó từng gặp những rắc rối về định dạng số, ngày tháng khi trộn, hoặc khi chuyển file hoạt động tốt từ máy này sang máy khác lại sinh ra...
Trả lời
2
Xem
149
Chỗ bôi đỏ là thời gian theo định dạng number Sub Auto_Open() If Format(Date, "#") >= 99999 Then ThisWorkbook.Sheets("ABC").Range("A5").ClearContents End If End Sub Hoặc: Sub XoaTepExcelVaoNgay2024() Dim NgayMucTieu As Date Dim TenTep As String ' Đặt ngày mục tiêu là 1...
Trả lời
0
Xem
59
Bấm nút Chạy code -> duyệt tìm và chọn những file Word cần lấy dữ liệu -> bấm Open => Xong. Sub GetDataWord() Dim WordApp As Object, myDoc As Object Dim i&, aTitle, aRes, MyPath, FullName aTitle = Range("B1:L1").Value ReDim aRes(1 To UBound(aTitle, 2))...
Trả lời
1
Xem
79
Tui record macro từ Word được đoạn code này. Sub Macro1() ChangeFileOpenDirectory "C:\Users\Administrator\Downloads\" Documents.Open FileName:="B.docx", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ ""...
Trả lời
0
Xem
158
Một lượt dạo qua cuốn sách Lập trình VBA cho MS Word vừa giới thiệu, tôi thấy từ môi trường Word lập trình VBA để điều khiển nó thì tính ứng dụng không cao khi mọi thứ gần như đã nhập và thiết đặt thủ công cả rồi. Tuy nhiên, đứng từ môi trường Excel thì lại khác. Nếu biết cách ứng biến trong...
Trả lời
4
Xem
109
Chép dữ liệu bên Word dán vào cột A Excel, bắt đầu từ A1. Chạy code trong file, kết quả được ghi bắt đầu từ B2. Trong file tôi đã chép sẵn dữ liệu Word qua rồi. Sort thì dùng chức năng sort của Excel, đâu có tốn mấy công sức. Nếu muốn tự động luôn thì ghi macro rồi nối code hoặc gọi sub sort...
Trả lời
1
Xem
122
Chép toàn bộ dữ liệu trong word vào cột A rồi bấm nút nhé bạn. Code chưa hay lắm nhưng trong thời gian đợi các bác cao thủ thì test thử nha bạn. Sub SplitData() Sub SplitData() Dim lastRow As Long Dim lastColumn As Long Dim i As Long Dim j As Long Dim k As Long Dim t As...
Trả lời
0
Xem
137
Code chạy tốt nếu bạn vẫn giữ nguyên cấu trúc file Excel và cấu trúc bảng của file Word. Còn không thì bạn tự sửa code và xem lại bài #3 tôi đã nói rồi.
Trả lời
2
Xem
49
Cái này , nếu không nhớ nhầm, thì gần đây có topic đã đưa lên - file có password mở file, thì cần phải có password - cần mở ngầm để mở theo password đã có (nếu đã mở ngầm thì có khi sao cần ADO nữa, tất nhiên dùng ADO vẫn được) ---> tìm lại topic đó lại và xem
Trả lời
2
Xem
150
Ứng dụng: - Đặt pass file lương hàng loạt. Sau khi đặt pass, nén nguyên thư mục lại, spam zalo cho cán bộ, nhân viên. Ai có pass file nào, chỉ mở được file đó. - Đặt pass file lương hàng loạt. Sau đó spam email cho người cần. - Đặt pass file học liệu/ tài liệu/ thông tin ....... rồi công...
Trả lời
0
Xem
78
Tool này kế thừa 1 phần từ tool tương tự của đại sư VÕ THÀNH THỨ, nhưng điều chỉnh để chạy trên C++ & thêm chức năng của thời đại công nghiệp (Xử hàng loạt). Nên bạn nào đang xài tool của đại sư rồi, sẽ thấy tool này ..... thừa. Đặc điểm của tool này: - Xử lý 99 file trong 1 nốt nhạc. Bao gồm...
Trả lời
0
Xem
53
Bạn có vài lựa chọn. Hoặc bạn tự học viết code trong các ngôn ngữ khác. Hoặc bạn dùng code của người khác viết. Tất nhiên bạn phải đính kèm thư viện, tập tin EXE của người ta vì code không tự nhiên làm việc, nó phải chạy trên một nền tảng nào đó. Tất...
Trả lời
0
Xem
127
Sử dụng Code này cho File Excel, việc kiểm tra dành cho bạn. Sub WordToExcel() Dim docFilename As Object, wordApp As Object Dim i As Integer, j As Integer, k As Integer On Error GoTo Thoat Dim FilePath, Arr(), iRow As Integer FilePath = Application.GetOpenFilename("Word...
Trả lời
2
Xem
131
Mở tập tin DapanchamQM.xlsx -> nhấn tổ hợp Alt + F11 để vào VBE -> menu Insert -> Module -> dán code sau vào Module1 -> lưu lại tập tin với định dạng XLSM -> đặt 1 Button xuống sheet -> chọn macro DapAn Sau khi nhấn Button thì chọn tập tin Word để lấy dữ liệu. Option...
Trả lời
0
Xem
132
Code: Sub GetWordTable() Dim vFile, arr(), tmp As String Dim lR As Long, lC As Long, lRs As Long, lCs As Long, i As Long On Error Resume Next vFile = Application.GetOpenFilename("Word files (*.doc),*.doc") If TypeName(vFile) = "String" Then With GetObject(vFile) If...
Trả lời
0
Xem
164
Cái này hơi bị khó, vì nếu file chuẩn bị chèn và file chèn có canh lề khác nhau thì dĩ nhiên khi chèn vào sẽ khác nhau (Ở đây chỉ đề cập số trang) thôi. Tôi ghi Macro lại và được đoạn code sau đó sửa lại một chút bạn xem có giúp ích được gì hay không. Public Sub GPE() Dim i As Integer With...
Trả lời
0
Xem
76

HỖ TRỢ NHANH

SprinGO Excel Nhân sự
Pháp Luật LĐ-BHXH-TNCN
HR - English -SprinGO
Share Job + Share CV
Hỗ trợ trực tuyến
0984 39 43 38
0969 79 89 44

Tìm kiếm thuật ngữ chuyên ngành

Hãy nhập nội dung cần tìm

SPRINGO ĐỒNG HÀNH CÙNG SỰ HỌC CỦA DOANH GIỚI & DOANH NGHIỆP

3 / 12
Ký hợp đồng tư vấn với công ty Chí Công...
5 / 12
Ký hợp đồng tư vấn quản trị nhân sự với Nhựa Hoàng Hà...
6 / 12
Ký hợp đồng tư vấn Công ty Wilson...
7 / 12
Ký hợp đồng tư vấn Công ty TDC...
11 / 12
Ký hợp đồng tư vấn quản trị nhân sự với Nhựa Hoàng Hà...
12 / 12
Ký hợp đồng tư vấn Hệ thống lương 3P...

Top Bottom
Đăng chủ đề