Bỏ định dạng màu chữ và màu nền khi in trên Word (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
lehuong1409

lehuong1409

RILY
Tham gia
17/9/12
Bài viết
1,351
Được thích
1,575
Giới tính
Nữ
Em có một vấn đề mà vẫn chưa tìm ra được lời giải mong các anh chị và mọi người giúp đỡ ạ
Trong khi sử dụng Word để soạn thảo thì có những đoạn em cần ghi chú lại hoặc thay màu chữ để tìm lại dễ hơn nên em gặp vấn đề khi in ra thì không được đẹp cho lắm nên em lại phải chỉnh lại bỏ màu và thay màu chữ in xong rồi chọn Don't Save. Em chưa tìm được cách loại bỏ màu nền và thay màu chữ về mặc định giống như dạng tuỳ chọn in Black and White trong Excel. Mong mọi người chỉ giáo thêm để em bổ sung kiến thức ạ. Em xin chân thành cảm ơn

1569395868319.png
 
lehuong1409 đã viết:
Em có một vấn đề mà vẫn chưa tìm ra được lời giải mong các anh chị và mọi người giúp đỡ ạ
Trong khi sử dụng Word để soạn thảo thì có những đoạn em cần ghi chú lại hoặc thay màu chữ để tìm lại dễ hơn nên em gặp vấn đề khi in ra thì không được đẹp cho lắm nên em lại phải chỉnh lại bỏ màu và thay màu chữ in xong rồi chọn Don't Save. Em chưa tìm được cách loại bỏ màu nền và thay màu chữ về mặc định giống như dạng tuỳ chọn in Black and White trong Excel. Mong mọi người chỉ giáo thêm để em bổ sung kiến thức ạ. Em xin chân thành cảm ơn

View attachment 225624
Nhấp chuột vào đây để mở rộng...
Em thử chạy Code sau trong Word nhé( Nhớ quét chọn vùng chọn trước khi chạy Code)
PHP: 
Sub Test()
  Selection.Font.Shading.Texture = wdTextureNone
  Selection.Shading.BackgroundPatternColor = wdColorWhite
  Selection.Shading.ForegroundPatternColor = wdColorWhite
  Selection.Range.HighlightColorIndex = wdNoHighlight
End Sub
 
phulien1902 đã viết:
Em thử chạy Code sau trong Word nhé( Nhớ quét chọn vùng chọn trước khi chạy Code)
PHP: 
Sub Test()
  Selection.Font.Shading.Texture = wdTextureNone
  Selection.Shading.BackgroundPatternColor = wdColorWhite
  Selection.Shading.ForegroundPatternColor = wdColorWhite
  Selection.Range.HighlightColorIndex = wdNoHighlight
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh ạ. Em có thể Ctrl A xử lý được cả file nhưng em cần lưu lại những chỉnh sửa đó ạ. Em chỉ cần mất màu nền và chữ thành màu đen khi in thôi ạ. Giống tuỳ chọn Black and White khi in của Excel ý ạ. Em cũng ít dùng Word nên cũng mai một nhiều ạ.
 
phulien1902 đã viết:
Em thử chạy Code sau trong Word nhé( Nhớ quét chọn vùng chọn trước khi chạy Code)
PHP: 
Sub Test()
  Selection.Font.Shading.Texture = wdTextureNone
  Selection.Shading.BackgroundPatternColor = wdColorWhite
  Selection.Shading.ForegroundPatternColor = wdColorWhite
  Selection.Range.HighlightColorIndex = wdNoHighlight
End Sub
Nhấp chuột vào đây để mở rộng...
Em muốn sửa code trên để chạy từ File excel
Mục đích trên File excel/Mở File word/Lưu lại với tên khác/bỏ định dạng màu chữ và màu nền cho toàn bộ văn bản word trong file mới: nhờ các thầy và anh chị em trong GPE giúp sửa đoạn code em thử nhưng không chạy được
Em đang vướng ở 2 dòng bôi đậm ạ
Sub Bomauchu()

With CreateObject("Word.Application")

'''''mo file Word

.Visible = True

file = [c4]

Doc = .Documents.Open(ThisWorkbook.Path & "\Import" & "\" & file & ".doc")

.Documents(ThisWorkbook.Path & "\Import" & "\" & file & ".doc").SaveAs FileName:=ThisWorkbook.Path & "\Export" & "\" & [D4] & ".doc"

.Documents(ThisWorkbook.Path & "\Export" & "\" & [D4] &.doc").Selection.WholeStory.Font.Color = wdColorAutomatic

.Documents(ThisWorkbook.Path & "\Export" & "\" & [D4] &.doc").Selection.WholeStory. .HighlightColorIndex = wdNoHighlight



End With

End Sub

�+BT)@P�
 
Lần chỉnh sửa cuối:
KhanhChi29 đã viết:
Em muốn sửa code trên để chạy từ File excel
Mục đích trên File excel/Mở File word/Lưu lại với tên khác/bỏ định dạng màu chữ và màu nền cho toàn bộ văn bản word trong file mới: nhờ các thầy và anh chị em trong GPE giúp sửa đoạn code em thử nhưng không chạy được
Em đang vướng ở 2 dòng bôi đậm ạ
Sub Bomauchu()

With CreateObject("Word.Application")

'''''mo file Word

.Visible = True

file = [c4]

Doc = .Documents.Open(ThisWorkbook.Path & "\Import" & "\" & file & ".doc")

.Documents(ThisWorkbook.Path & "\Import" & "\" & file & ".doc").SaveAs FileName:=ThisWorkbook.Path & "\Export" & "\" & [D4] & ".doc"

.Documents(ThisWorkbook.Path & "\Export" & "\" & [D4] &.doc").Selection.WholeStory.Font.Color = wdColorAutomatic

.Documents(ThisWorkbook.Path & "\Export" & "\" & [D4] &.doc").Selection.WholeStory. .HighlightColorIndex = wdNoHighlight



End With

End Sub

�+BT)@P�
Nhấp chuột vào đây để mở rộng...
Selection là thuộc tính của "Word.Application" chứ không phải của Document.

Mà code kia ai viết cho bạn vậy?
 
Maika8008 đã viết:
Selection là thuộc tính của "Word.Application" chứ không phải của Document.

Mà code kia ai viết cho bạn vậy?
Nhấp chuột vào đây để mở rộng...
Maika8008 đã viết:
Selection là thuộc tính của "Word.Application" chứ không phải của Document.

Mà code kia ai viết cho bạn vậy?
Nhấp chuột vào đây để mở rộng...
Em copy code trên xuống thôi ạ, một phần là Recorde; Ý của em là chuyển tất cả văn bản trong word về không màu và không có màu nền, muốn sửa thuộc tính Selection của "Word.Application" sang của Document thì như nào vậy anh
 
Set Wapp = CreateObject("Word.Application") rồi dùng Wapp đó.
 
KhanhChi29 đã viết:
Em thử
Set Wapp = CreateObject("Word.Application")
Wapp.Selection.WholeStory.Font.Color = wdColorAutomatic vẫn không được anh ạ, Để tối em tạo lại File gửi anh chạy lại ạ
Nhấp chuột vào đây để mở rộng...
Bạn dùng code sau:
Rich (BB code): 
Sub ExcelToWord_KhanhChi29()
     Dim i&, j&, TPara&, fPath$, fFile$
     Dim objRange, objTable
     Dim wDoc As Object, aWord As Object
    
     Application.ScreenUpdating = False
     'TAO FILE WORD
     Set aWord = CreateObject("Word.Application")
     fPath = "D:\TestGPE\"   'THAY BANG DUONG DAN TREN MAY CUA BAN
     fFile = "GMXYZ.docx"    'THAY BANG FILE TREN MAY CUA BAN
     Set wDoc = aWord.Documents.Open(fPath & fFile)
     aWord.Visible = True
     wDoc.SaveAs fPath & [D4]
     TPara = wDoc.Paragraphs.Count - 1
     For i = 1 To TPara
         Set objRange = wDoc.Paragraphs(i).Range
         objRange.Font.Color = wdColorAutomatic
         objRange.HighlightColorIndex = wdNoHighlight
     Next
     Application.ScreenUpdating = True
     aWord.Activate   'Xem ket qua
     Set wDoc = Nothing
     Set aWord = Nothing
End Sub
 
KhanhChi29 đã viết:
Em thử
Set Wapp = CreateObject("Word.Application")
Wapp.Selection.WholeStory.Font.Color = wdColorAutomatic vẫn không được anh ạ, Để tối em tạo lại File gửi anh chạy lại ạ
Nhấp chuột vào đây để mở rộng...
Nói thêm: Code ở bài trên, tôi cho duyệt qua tất cả các đoạn (paragraph) để thi hành lệnh. Tuy nhiên nếu vẫn muốn dùng câu lệnh có Selection thì bạn chọn vùng bằng tay trên file docx trước đó rồi chạy 2 câu lệnh sau:
Wapp.Selection.Font.ColorIndex = wdAuto
Wapp.Selection.Range.HighlightColorIndex = wdNoHighlight

Bên Excel phải viết như vậy thì mới chạy được.
 
Maika8008 đã viết:
Bạn dùng code sau:
Rich (BB code): 
Sub ExcelToWord_KhanhChi29()
     Dim i&, j&, TPara&, fPath$, fFile$
     Dim objRange, objTable
     Dim wDoc As Object, aWord As Object
  
     Application.ScreenUpdating = False
     'TAO FILE WORD
     Set aWord = CreateObject("Word.Application")
     fPath = "D:\TestGPE\"   'THAY BANG DUONG DAN TREN MAY CUA BAN
     fFile = "GMXYZ.docx"    'THAY BANG FILE TREN MAY CUA BAN
     Set wDoc = aWord.Documents.Open(fPath & fFile)
     aWord.Visible = True
     wDoc.SaveAs fPath & [D4]
     TPara = wDoc.Paragraphs.Count - 1
     For i = 1 To TPara
         Set objRange = wDoc.Paragraphs(i).Range
         objRange.Font.Color = wdColorAutomatic
         objRange.HighlightColorIndex = wdNoHighlight
     Next
     Application.ScreenUpdating = True
     aWord.Activate   'Xem ket qua
     Set wDoc = Nothing
     Set aWord = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Code chạy theo đúng ý em rồi ạ, đúng là em không muốn dùng bằng tay chọn bên word
Rich (BB code): 
Sub ExcelToWord_KhanhChi29()
     Dim i&, j&, TPara&, fPath$, fFile$
     Dim objRange, objTable
     Dim wDoc As Object, aWord As Object
    
     Application.ScreenUpdating = False
     'TAO FILE WORD
     Set aWord = CreateObject("Word.Application")
     'fPath = "D:\TestGPE\"   'THAY BANG DUONG DAN TREN MAY CUA BAN
     'fFile = "GMXYZ.docx"    'THAY BANG FILE TREN MAY CUA BAN
     fPath = ThisWorkbook.Path & "\"
     fFile = [C4] & ".docx"
     Set wDoc = aWord.Documents.Open(fPath & fFile)
     aWord.Visible = True
     wDoc.SaveAs fPath & [D4]
     TPara = wDoc.Paragraphs.Count - 1
     For i = 1 To TPara
         Set objRange = wDoc.Paragraphs(i).Range
         objRange.Font.Color = wdColorAutomatic
         objRange.HighlightColorIndex = wdNoHighlight
     Next
     Application.ScreenUpdating = True
     aWord.Activate   'Xem ket qua
     Set wDoc = Nothing
     Set aWord = Nothing
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Rich (BB code): 
Sub ExcelToWord_KhanhChi29()
     Dim i&, j&, TPara&, fPath$, fFile$
     Dim objRange, objTable
     Dim wDoc As Object, aWord As Object
   
     Application.ScreenUpdating = False
     'TAO FILE WORD
     Set aWord = CreateObject("Word.Application")
     'fPath = "D:\TestGPE\"   'THAY BANG DUONG DAN TREN MAY CUA BAN
     'fFile = "GMXYZ.docx"    'THAY BANG FILE TREN MAY CUA BAN
     fPath = ThisWorkbook.Path & "\"
     fFile = [C4] & ".docx"
     Set wDoc = aWord.Documents.Open(fPath & fFile)
     aWord.Visible = True
     wDoc.SaveAs fPath & [D4]
     TPara = wDoc.Paragraphs.Count - 1
     For i = 1 To TPara
         Set objRange = wDoc.Paragraphs(i).Range
         objRange.Font.Color = wdColorAutomatic
         objRange.HighlightColorIndex = wdNoHighlight
     Next
     Application.ScreenUpdating = True
     aWord.Activate   'Xem ket qua
     Set wDoc = Nothing
     Set aWord = Nothing
End Sub
Anh có cách gì không dùng For .. Next không ạ
 
KhanhChi29 đã viết:
Code chạy theo đúng ý em rồi ạ,
Nhấp chuột vào đây để mở rộng...
1. Trước hết là về cái sai của 2 bạn.

wdColorAutomatic và wdNoHighlight được dùng trong code nhưng không được định nghĩa, VBA không biết chúng là gì vì đây là hằng số của Word chứ không là hằng số của Excel. Do không có Option Explicit nên VBA cho đó là BIẾN không được khai báo tường minh. Do chúng không được thiết lập giá trị ở thời điểm chào buổi sáng nên
wdColorAutomatic = 0 và wdNoHighlight = 0.

Bên Word thì đúng là wdNoHighlight = 0, nhưng wdColorAutomatic <> 0. Tuy nhiên có wdColorBlack = 0
nên code chuyển mầu về ĐEN. Tức không về Auto mà là về ĐEN.

Như vậy là 2 bạn đã rất may mắn nhưng kiểu lập trình như thế sẽ có ngày sai. Đi đêm có ngày gặp ma.

VBA bên Excel không biết wdColorAutomatic và wdNoHighlight nó là gì nên phải định nghĩa.

2. Làm kiểu cần cù cũng được nhưng nếu là thay đổi cho toàn bộ document thì có thể làm trong một nốt nhạc.

Ngay sau dòng Sub ExcelToWord_KhanhChi29()

thêm 2 dòng
Mã: 
Const wdColorAutomatic = -16777216
Const wdNoHighlight = 0

Thay
Mã: 
TPara = wDoc.Paragraphs.Count - 1
For i = 1 To TPara
    Set objRange = wDoc.Paragraphs(i).Range
    objRange.Font.Color = wdColorAutomatic

    objRange.HighlightColorIndex = wdNoHighlight
Next

bằng

Mã: 
With wDoc.Content
   .Font.Color = wdColorAutomatic
   .HighlightColorIndex = wdNoHighlight
End With

KhanhChi29 đã viết:
Anh có cách gì không dùng For .. Next không ạ
Nhấp chuột vào đây để mở rộng...
Thì cách tôi chỉ ra đấy - trong một nốt nhạc. :D
 
batman1 đã viết:
1. Trước hết là về cái sai của 2 bạn.

wdColorAutomatic và wdNoHighlight được dùng trong code nhưng không được định nghĩa, VBA không biết chúng là gì vì đây là hằng số của Word chứ không là hằng số của Excel. Do không có Option Explicit nên VBA cho đó là BIẾN không được khai báo tường minh. Do chúng không được thiết lập giá trị ở thời điểm chào buổi sáng nên
wdColorAutomatic = 0 và wdNoHighlight = 0.

Bên Word thì đúng là wdNoHighlight = 0, nhưng wdColorAutomatic <> 0. Tuy nhiên có wdColorBlack = 0
nên code chuyển mầu về ĐEN. Tức không về Auto mà là về ĐEN.

Như vậy là 2 bạn đã rất may mắn nhưng kiểu lập trình như thế sẽ có ngày sai. Đi đêm có ngày gặp ma.

VBA bên Excel không biết wdColorAutomatic và wdNoHighlight nó là gì nên phải định nghĩa.

2. Làm kiểu cần cù cũng được nhưng nếu là thay đổi cho toàn bộ document thì có thể làm trong một nốt nhạc.

Ngay sau dòng Sub ExcelToWord_KhanhChi29()

thêm 2 dòng
Mã: 
Const wdColorAutomatic = -16777216
Const wdNoHighlight = 0

Thay
Mã: 
TPara = wDoc.Paragraphs.Count - 1
For i = 1 To TPara
    Set objRange = wDoc.Paragraphs(i).Range
    objRange.Font.Color = wdColorAutomatic

    objRange.HighlightColorIndex = wdNoHighlight
Next

bằng

Mã: 
With wDoc.Content
   .Font.Color = wdColorAutomatic
   .HighlightColorIndex = wdNoHighlight
End With
Nhấp chuột vào đây để mở rộng...
1. Việc dùng VBA Excel để điều khiển Word thì tôi không có tài liệu nào để học nên trước đây toàn mò mẫm để giải quyết yêu cầu thực tế của công việc. Người rành như bác nhìn vào thấy ngay là tay ngang. Bác có thể dẫn cho tôi link nào có tài liệu để học về việc này, tôi rất cảm ơn bác.
2. Con số -16777216 đó sao mà biết được bác? Chắc phải có trong tài liệu chính thống nào đó. À, chắc là dùng cửa sổ Immediate để print rồi.
 
Maika8008 đã viết:
1. Việc dùng VBA Excel để điều khiển Word thì tôi không có tài liệu nào để học nên trước đây toàn mò mẫm để giải quyết yêu cầu thực tế của công việc. Người rành như bác nhìn vào thấy ngay là tay ngang. Bác có thể dẫn cho tôi link nào có tài liệu để học về việc này, tôi rất cảm ơn bác.
Nhấp chuột vào đây để mở rộng...
Tôi luôn luôn đọc help thôi. Trong Excel hay Word thì tôi cứ VBE -> View -> Object Browser. Rồi đọc thôi. Có những đối tượng nào, thuộc tính và phương thức ra sao đều nhìn thấy hết. Nếu muốn tìm hiểu thêm thì giờ đây đã có google, biết các từ khóa từ Object Browser thì tìm đọc thôi.

Nói cho cùng thì lập trình hướng đối tượng là truy cập được tới các đối tượng cần thiết rồi thực hiện các thuộc tính và phương thức của các đối tượng đó. Thế thôi.

Vd. như trong chủ đề này phải truy cập được tới đối tượng Application - aWord, rồi thông qua thuộc tính của nó để truy cập tới đối tượng Documents, rồi gọi phương thức Open của nó để truy cập tới đối tượng Document - wDoc. Có đối tượng wDoc (document) rồi thì dùng thuộc tính Content của nó để truy cập tới đối tượng Range. Có đối tượng Range rồi thì thiết lập các thuộc tính Font.Color và HighlightColorIndex của nó thôi. Tóm lại là biểu đồ: truy cập tới đối tượng để thực hiện thuộc tính và phương thức của nó. Thế thôi.

2. Con số -16777216 đó sao mà biết được bác? Chắc phải có trong tài liệu chính thống nào đó. À, chắc là dùng cửa sổ Immediate để print rồi.
Nhấp chuột vào đây để mở rộng...

hangso.png
 
Lần chỉnh sửa cuối:
batman1 đã viết:
Tôi luôn luôn đọc help thôi. Trong Excel hay Word thì tôi cứ VBE -> View -> Object Browser. Rồi đọc thôi. Có những đối tượng nào, thuộc tính và phương thức ra sao đều nhìn thấy hết. Nếu muốn tìm hiểu thêm thì giờ đây đã có google, biết các từ khóa từ Object Browser thì tìm đọc thôi.

Nói cho cùng thì lập trình hướng đối tượng là truy cập được tới các đối tượng cần thiết rồi thực hiện các thuộc tính và phương thức của các đối tượng đó. Thế thôi.

Vd. như trong chủ đề này phải truy cập được tới đối tượng Application - aWord, rồi thông qua thuộc tính của nó để truy cập tới đối tượng Documents, rồi gọi phương thức Open của nó để truy cập tới đối tượng Document - wDoc. Có đối tượng wDoc (document) rồi thì dùng thuộc tính Content của nó để truy cập tới đối tượng Range. Có đối tượng Range rồi thì thiết lập các thuộc tính Font.Color và HighlightColorIndex của nó thôi. Tóm lại là biểu đồ: truy cập tới đối tượng để thực hiện thuộc tính và phương thức của nó. Thế thôi.



View attachment 275018
Nhấp chuột vào đây để mở rộng...
À ha! Lâu nay thực tình là tôi không để ý đến cửa sổ này, mặc dù có thấy đó. Đúng là thiếu sót lớn.

Cảm ơn bác!
 
Lần chỉnh sửa cuối:
Cảm ơn 2 anh, gặp được 2 anh là em may mắn lắm rồi, Do Record bên Word rồi copy sang excel lên có cái dòng:
objRange.Font.Color = wdColorAutomatic
objRange.HighlightColorIndex = wdNoHighlight
Đúng là chúng là hằng số của Word chứ không phải của Excel
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (3 người xem)
Trả lời
13
Đọc
103
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
175
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt (3 người xem)
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu (2 người xem)
    • Buồn
2
Trả lời
26
Đọc
521
Phạm Trường 80
P
L
Lỗi font khi convert từ pdf
Trả lời
1
Đọc
54
Hoàng Tuấn 868
H
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
76
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
75
DeTong
D
H
Đổi số thành chữ trong office 365 (1 người xem)
Trả lời
19
Đọc
1K
HoangTan891026
H
Gà Công Nghệ
Lấy dữ liệu file excel từ sheet này sang sheet khác
Trả lời
4
Đọc
129
Gà Công Nghệ
Gà Công Nghệ
N
Mong mọi người giúp đỡ
Trả lời
1
Đọc
59
minhminh27
minhminh27
minhduc1o2
Excel lỗi font Time New Roman+
Trả lời
7
Đọc
116
minhduc1o2
minhduc1o2
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
0
Đọc
75
fujishima
F
H
Lọc dữ liệu trong XL
    • Cười
Trả lời
0
Đọc
46
huong.dinh
H
giaiphap
Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau. (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2
Trả lời
39
Đọc
9K
fujishima
F
K
xin file excel bảng đấu bóng đá (1 người xem)
    • Yêu thích
2 3
Trả lời
40
Đọc
25K
subin1905
S
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước. (3 người xem)
    • Thích
2
Trả lời
24
Đọc
7K
chihuumvc
C
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô. (2 người xem)
Trả lời
1
Đọc
66
bebo021999
B
G
Hướng dẫn Lập danh sách File (2 người xem)
    • Không thích
Trả lời
16
Đọc
269
thanhhuy_hvnh
thanhhuy_hvnh
baolong240793
Nhờ Anh/Chị hỗ trợ em hàm Randbetween() với ạ. (1 người xem)
Trả lời
4
Đọc
362
bebo021999
B
Y
  • Question Question
Khóa VBA với mật khẩu mở (1 người xem)
    • Thích
2 3 4
Trả lời
60
Đọc
5K
PhanTuHuong
PhanTuHuong
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom