Thắc mắc về cách đổi tên topic và cách dùng VB API trong Word

[zamenz]

sau khi mình ngồi cả buổi mày mò trương chình của darkxiiindp nhưng rốt cuộc cũng ko được buồn quá.
Nó cứ thông báo thế này:
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.IO.FileNotFoundException: Could not load file or assembly 'Microsoft.Office.Interop.Word, Version=12.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c' or one of its dependencies. The system cannot find the file specified.
File name: 'Microsoft.Office.Interop.Word, Version=12.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c'
at C2VE.Util.CreateWord(String strchinese, String strvietnamese, String strenglish, String strColString, String savepath)
at C2VE.FormMain.btnRecreate_Click(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

WRN: Assembly binding logging is turned OFF.
To enable assembly bind failure logging, set the registry value [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) to 1.
Note: There is some performance penalty associated with assembly bind failure logging.
To turn this feature off, remove the registry value [HKLM\Software\Microsoft\Fusion!EnableLog].



************** Loaded Assemblies **************
mscorlib
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
C2VE
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/Documents%20and%20Settings/La%20Thai%20Binh/My%20Documents/Downloads/Compressed/utf-8''C2VE-10-12-07/C2VE.exe
----------------------------------------
System.Windows.Forms
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Drawing
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Web
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.832 (QFE.050727-8300)
CodeBase: file:///C:/WINDOWS/assembly/GAC_32/System.Web/2.0.0.0__b03f5f7f11d50a3a/System.Web.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

Bản word của mình là bản 12.0.6015.500 ko biết có phải do word khác phiên bản 12.0.0.0 của darkxiiindp nên nó không chạy ko nhỉ.
Sẵn đây mình gửi cái genuine của word 2007 cho bạn nào cần
http://www.mediafire.com/?ddbhwnvyfzf
Sau khi genuine thì có thể update download trên trang chủ của microsoft thoải mái

[GhienTruyen]

Bên trên đã chú thích đoạn macro thay chữ, mình cũng xin gửi 1 đoạn về thay thế các dòng trắng có trong phần tiếng hán.

Đây là cách mình thường dùng:
- Mình dùng tool convert của nguyenphuphi, đầu tiên copy đoạn tiếng hán, pase vào file txt. đổi tên file .txt thành html ( hoặc edit file html có sẵn - nên tạo 1 file html rồi edit ).
- Bật chương trình dịch, lựa chọn file html trên, convert -> 3 bản trung, hán - việt, anh
- Copy 3 phần trên vào 3 cột trong excel.

Trong Excel các bạn làm như sau:
Bôi đen đoạn văn bản sau đó chạy macro:

For Each MyCell in Selection
If MyCell.value Like "" Then
MyCell.EntireRow.Delete
End If
Next

Macro trên sẽ xóa tất cả các dòng trống có trong đoạn được chọn
Phần việc còn lại chỉ là copy từ excel sang word mà thôi. Như vậy 1 file convert thông thường mất 3 phút.

Giải thích:
- Nên chuyển ký tự hán sang file html rồi từ chương trình dịch đọc file html như vậy đoạn văn bản sẽ rất trật tự ( như nguyên gốc ) không bị xuống dòng tùm lum ( nếu copy từ gốc vào thẳng chương trình )

Tái bút: Cách trên sẽ chia làm nhiều bước nhưng lại rất nhanh.
Mong rằng cách của mình sẽ giúp mọi người convert nhanh hơn ^_^

Tui thấy dùng word thay thế các dòng trắng cũng rất nhanh mà, đâu cần dùng macro trong excel.
Cách làm :
- nhấn Ctrl+H (Find and replace)
- Trong mục Find: gõ ^p^p
- trong mục replace by: gõ ^p
rồi nhấn replace all. Vậy là xong.
Các bạn làm thử xem

[darkxiiindp]

Office mình dùng là Office 2007 Enterprise (12.0.6015.5000) MSO (12.0.6017.5000) Download qua torrent trên mininova.org thì phải. Nếu thực sự phiên bản bạn dùng đúng như thế này mà không chạy được thì có thể lúc cài bạn không cài phần Office Tools. Hoặc bên trong word bạn không cài cái '.NET Programmability support'. Bạn vào add/remove program rồi cài thêm những phần đó xem. Không được thì mình cũng chịu.

[zamenz]

đã làm được cám ơn darkxiiindp nhìu.Do cái office tool mình cài ko đủ sau khi cài thêm đã có thể xuất wa word.