1. Tuyển Mod quản lý diễn đàn. Các thành viên xem chi tiết tại đây

Chữ "ư" trong openoffice writer?

Chủ đề trong 'Hỏi đáp Tin học' bởi datvn, 24/10/2005.

  1. 1 người đang xem box này (Thành viên: 0, Khách: 1)
  1. datvn

    datvn Thành viên rất tích cực

    Tham gia ngày:
    10/04/2002
    Bài viết:
    2.981
    Đã được thích:
    1
    Chữ "ư" trong openoffice writer?

    ai đã dùng bộ này chưa?
    Tôi dùng thấy rất được chỉ có một lỗi mong các bác có kinh nghiệm chỉ giáo!
    Chữ "ư" theo TCVN3 không hiển thị mà các văn bản theo TCVN3 còn rất nhiều....
  2. Paloma

    Paloma Thành viên rất tích cực

    Tham gia ngày:
    01/01/1970
    Bài viết:
    1.870
    Đã được thích:
    0
    Bạn không nói rõ là bạn dang chạy trên HỆ ĐIỀU HÀNH nào. Theo tôi biết thì lỗi này fix dễ nếu bạn dùng SUSE9
  3. nico_tin

    nico_tin Thành viên mới

    Tham gia ngày:
    14/08/2003
    Bài viết:
    2.875
    Đã được thích:
    0
    Chào bạn,
    Lỗi này không nhất thiết phải dùng một soft nào để sửa cả, dưới đây là code chuyển đổi hay sửa chữ Ư trong Word.
    Bạn copy vào phần Macro, và chạy macro là lỗi chữ Ư sẽ được sửa.
    Nếu bạn chưa biết chạy Macro trong Word như thế nào thì hãy Post bài ở đây, mình sẽ hướng dẫn bạn cụ thể.
    ---------------------
    Sub AutoOpen11()
    ''
    '' Macro1 Macro
    '' Macro recorded 06/05/01 by Admin
    ''
    With ActiveDocument.PageSetup
    .LineNumbering.Active = False
    .Orientation = wdOrientPortrait
    .TopMargin = InchesToPoints(1)
    .BottomMargin = InchesToPoints(1)
    .LeftMargin = InchesToPoints(1)
    .RightMargin = InchesToPoints(1)
    .Gutter = InchesToPoints(0)
    .HeaderDistance = InchesToPoints(1)
    .FooterDistance = InchesToPoints(1)
    .PageWidth = InchesToPoints(8.27)
    .PageHeight = InchesToPoints(11.69)
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
    .SectionStart = wdSectionNewPage
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .VerticalAlignment = wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "­"
    .Replacement.Text = "|"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub
    Chúc bạn thành công!!!
  4. datvn

    datvn Thành viên rất tích cực

    Tham gia ngày:
    10/04/2002
    Bài viết:
    2.981
    Đã được thích:
    1
    Tôi chạy hệ điều hành WindowXP!
  5. datvn

    datvn Thành viên rất tích cực

    Tham gia ngày:
    10/04/2002
    Bài viết:
    2.981
    Đã được thích:
    1
    Mình đang hỏi về Openoffice writer không phải là Word

Chia sẻ trang này