. Chuyển từ Word sang PDF:
Tạo Nền Chữ Cho Văn Bản WordArt.
Trong MsWord,bạn cĩthể tạo một Macro để chèn một đoạn Text nghệ thuật (WordArt) chìm phía sau văn bản làm nền, và người dùng khơng thể xĩa dịng chử này theo cách thơng thường được. Bạn thực hiện theo các bước sau:
- Bước 1: Vào menu Tool\Macro\Visual Basic Editor (hoặc bấm Alt+F11).
- Bước 2: Tại cửa sổ Microsoft Visual Basic, bạn gõ vào đoạn mã sau (cĩ thể thay chữ Café Lượng Ý trong đoạn mã bằng tên của bạn hay bất cứ dịng chữ nào bạn thích, nhưng chú ý đừng ghi quá dài; cĩ thể thay Font chữ , cở chữ tại mục FontName, Font Size).
Sub InsertWordArt()
Dim MyRange As Range, oShape As Shape Set MyRange =
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range Set oShape = ActiveDocument.Sections(1). _
Headers(wdHeaderFooterPrimary).Shapes.AddTextEffect _ (PresetTextEffect:=msoTextEffect11, _
Text:="Cafe Luong Y", _ FontName:="Arial", _ FontSize:=60, _ FontBold:=False, _ FontItalic:=False, _ Left:=0#, _ Top:=0#, _ Anchor:=MyRange) With oShape .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .RelativeVerticalPosition = wdRelattiveVerticalPositionPage .Left = InchesToPoints(2) .Top = InchesToPoints(4.5) .Fill.ForeColor.RGB = RGB(128, 128, 128) .Line.ForeColor.RGB = RGB(128, 128, 128) .Shadow.ForeColor.RGB = RGB(51, 51, 51) .IncrementRotation -45 .WrapFormat.Type = wdWrapNone .ZOrder oSendBehindText End With End Sub
- Bước 3: Sau khi gõ xong đoạn mã trên, bạn quay trở lại cửa sổ Word bằng cách bấm Alt+Q. Để sử dụng thủ tục vừa tạo, bạn vào menu Tools\Macro\ Macros, chọn InsertWordArt và bấm nút Run.
Chương trình sẽ tạo một dịng chữ làm nền cho trang văn bản và dịng chữ này khơng thể xĩa đi được…
Theo Báo: Echip số 149 trang 6
Đoạn mã của Word:
Sub Macro1Ngaythang()
Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(4), _ Alignment:=wdAlignTabCenter, Leader:=wdTabLeaderSpaces
Selection.TypeText Text:=vbTab & "Cho Lau, ngay " & Format(Now, "dd") & " Thang " & Format(Now, "mm") & " Nam " & Format(Now, "yyyy")
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & "Thai Hoang Y" Selection.TypeParagraph
Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph End Sub
Theo Báo EChip Số 157 trang 6