精华内容
下载资源
问答
  • 修改默认半角全角的方法 效果如下: 半角全角

    修改默认半角、全角的方法
    效果如下:

    半角:
    半角
    全角:
    在这里插入图片描述

    展开全文
  • Sub 段落首行缩进转为空格() Dim ib As Paragraph For Each ib In ActiveDocument.Paragraphs '排除表格 If ib.Range.Information(wdWithInTable) = False Then ib.Range.Select '缩进不一定是2个字符,只要...

    这篇实现WPS文字工具提供的几个小功能:

    Sub 段落首行缩进转为空格()
        Dim ib As Paragraph
        For Each ib In ActiveDocument.Paragraphs
        '排除表格
        If ib.Range.Information(wdWithInTable) = False Then
            ib.Range.Select
            '缩进不一定是2个字符,只要缩进不为0就替换,避免标题、主送对象等误操作
            If ib.Range.ParagraphFormat.FirstLineIndent > 0 Or ib.Range.ParagraphFormat.CharacterUnitFirstLineIndent > 0 Then
                With Selection.ParagraphFormat
                    .CharacterUnitFirstLineIndent = 0
                    .FirstLineIndent = 0
                End With
                ib.Range.Words(1).InsertBefore "  " '插入2个全角字符
            End If
        End If
        Next
    End Sub
    '第一个参数是目标替换字符串,第二个参数是替换后的字符串
    Sub 自定义替换(tarText As String, repText As String)
        'Application.ScreenUpdating = False
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = tarText
            .Replacement.Text = repText
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = True '要设置为True,否则通配符不生效
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    End Sub
    Sub 删除段首空格()
    '含全角和半角空格;WPS只删空格
        Call 自定义替换("^13[  ]{1,}", "^13")
    End Sub
    
    Sub 换行符转为回车()
        Call 自定义替换("^l", "^13") '换行符转为回车
    End Sub

    ^p在微软Word中会报错,WPS中^13和^p都可以执行上面的代码。

        '.Text = """(*)"""
        '.Replacement.Text = ChrW(8220) & "\1" & ChrW(8221)
        '也可以将空格、全角空格替换掉
    
        '注意:如果表格中有回车符,会造成误操作。
        Call 自定义替换("^13{2,}", "^p") '删除2或以上空行,^13是回车符,^p为段落标记 

    替换全角字符:

    Dim qjsz, bjsz As String, iii As Integer
    qjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,/<>?;’:[]{}\|=-+_)(*%$#@!`~&"
    bjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,/《》?;':【】{}\|=-+_)(×%$#@!'〜&"
    Selection.WholeStory
    For iii = 1 To 95
    With Selection.Find
    .Text = Mid(qjsz, iii, 1)
    .Replacement.Text = Mid(bjsz, iii, 1)
    .Format = False
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
    End With
    Next iii

    全文搜索关键字(Exit Do没注释掉就表示匹配第一个):

    Sub 全文搜索关键字()
    '注意下面三处Selection不是同一个对象。
        Selection.HomeKey unit:=wdStory
        Do While Selection.Find.Execute(FindText:="关键字", Forward:=True) = True
            Selection.MoveStart unit:=wdParagraph, Count:=-1 '选中关键字所在段落
            With Selection
                '这里可以用Selection进行处理。
            End With
    
            Exit Do '第一次匹配成功就跳出循环,后面不处理
        Loop
    End Sub

     

    展开全文
  • 半角全角的转换

    2021-02-21 07:49:12
    给定语料文件,完成半角全角的转换,并统计一级汉字的频次,最后按频次高到低输出。 目录语料一、半角全角之间的转换二、词频统计三、结果1. 半角转换全角后的文件2. 统计第一级汉字字频文件总结 语料 首先,...

    给定语料文件,完成半角到全角的转换,并统计一级汉字的频次,最后按频次高到低输出。
    


    语料

    • 首先,任务基于以下中文GB编码的语料文件,编码问题可利用Notebook++解决。

    语料摘自BCC语料库


    一、半角与全角之间的转换

    全角字符unicode编码从65281 ~ 65374 (十六进制 0xFF01 ~ 0xFF5E);
    半角字符unicode编码从33 ~ 126 (十六进制 0x21~ 0x7E);
    其中,空格特殊,全角为 12288(十六进制 0x3000),半角为 32(十六进制 0x20)。

    因此,对于非空格的半角符,半角转换成全角利用“公式”:半角 + 0x7e= 全角;对空格则单独处理。
    另外,还需知道utf-8 是 unicode 字符集一种编码方式。
    关键代码如下(示例):

    for word in sentence:
    	word = word.encode("utf8")
    	if 0x21 < word[0] < 0x7e:          #半角符
    		word = word.decode("utf8")
            word = chr(ord(word)+0xfee0)
        elif word[0]==0x20:                #空格
            word = word.decode("utf8")
            word=chr(12288)
        else:
            word = word.decode("utf8")
        newfile.write(word)
    
    #写入文件操作略
    

    二、词频统计

    · 统计各一级汉字在语料库中出现的频次
    关键代码如下(示例)

    for word in sentence:
    	word = word.encode("gbk")                 
    	if 0xb0<=word[0]<=0xd7 and word[1]>=0xa1:   #第一级
    		word = word.decode("gb2312")
    		if word in mydict:
    			mydict[word]+=1                  #字频 + 1
    		else:
    			mydict[word]=1                   #字频 = 1
    		
    #写入文件操作略
    

    · 排序
    利用python中的sorted函数,结合operator.itemgetter()进行排序。具体使用方法可以到手册中查找。
    此处自主学习,不给出示例代码


    三、结果

    1. 半角转换全角后的文件

    节选:

    2. 统计第一级汉字字频文件

    节选:


    总结

    就是一篇csdn记录试写,找找感觉。
    代码一定不是最简的,文章内容如有错还望指出,谢谢~
    @author: RUNT

    展开全文
  • java全角空格转换半角空格

    千次阅读 2007-12-03 18:07:00
    这里主要区别就在于,全角字符串的getBytes()的字解码和半角字符串的getBytes()字节码不一样。半角的 字节码是 32,全角的字节码是 -95-95 ,我们只需在这里给它都替换成 32 就可以了。我在这里提供了一个类方法,...

    这里主要区别就在于,全角字符串的getBytes()的字解码和半角字符串的getBytes()字节码不一样。

    半角的 字节码是 32,全角的字节码是 -95-95 ,我们只需在这里给它都替换成 32 就可以了。

    我在这里提供了一个类方法,可以将全角空字节码 换成 32半角字节码。很有用哦。

    public class RemoveSpaces {
     public static final String removeSpace(String ss){
         byte[] t = ss.getBytes();
         for(int i=0;i<t.length;i++){
           if(t[i] == -95 && t[i+1]==-95 ){
            t[i]=32;
            if(i+1==t.length-1){
               t[i+1] = 0;
            }else{
             for(int j=i+1;j+1<t.length;j++){
              t[j]=t[j+1];
              if(j+1 == t.length-1) t[j+1] = 32;
             }
            }
            
              }             
          }
         return new String(t);
        }

    public static void main(String arg[]){

      String test = "我 是 好 人";

     String result=removeSpace(test );

       System.out.println(test +"/n"+result);

    }
    }

     

    展开全文
  • 半角全角的区别

    2017-09-29 11:30:38
     在word中,当显示全部隐藏字符的时候(【工具】-->【选项】--->【视图】-->【格式标记】,选择全部),发现全角状态下和半角状态下空格标识符是不一样的,全角状态下是个灰色的方形,半角状态下是个
  • python中半角全角互相转换

    千次阅读 2015-01-09 11:01:32
    半角全角的转换,代码如下: # -*- coding: cp936 -*- def strQ2B(ustring): """全角半角""" rstring = "" for uchar in ustring: inside_code=ord(uchar) if inside_code == 12288:
  • Word全角转换成半角

    2010-07-26 23:16:01
    上次写一篇文章,不小心开了全角,结果文章编辑完,惨不忍睹,然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数,但发现VBA的ASC不是全半角转换的功能,晕死,只能网上找答案,终于,找到一个狼...
  • python 全角半角字符转换

    千次阅读 2018-09-19 19:08:00
    1.相关原理 全角即:Double Byte Character,简称DBC ...全角字符的第一个字节总是被置为 163,而第二个字节则是相同半角字符码加上128(不包括空格全角空格半角空格也要考虑进去); 对...
  • 问题:将一段文字从PDF复制到Word,发现字体很奇怪地拉得很宽,但又不是多出空格,也不是选错字体? 解决方法:改为用半角,具体步骤如下……
  • 简单说来,就是全角空格为12288、半角空格为32,其他字符半角(33-126)与全角(65281-65374)的对应关系是:均相差65248。 下面是随手写的一个VBA宏,运行于 Word,可将活动文档中全部英文半角字符转全角。(但速度之...
  • 去除字符串空格 反转字符串 #include #include using namespace std; void strallcut(char *str) { int i,j=0; char sp[512]; for (i = 0; *(str + i) != '\0'; i++) { if (*(str + i) == ' ' ) ...
  • 全角空格转成半角, 并去除头尾空格   1.将GBK字符串转成 UTF-8, 2.将全角空格转成UTF-8 3.将替换后的字符串改成GBK 4.去除头尾空格 5.返回字符串 转载于:...
  • word2003中 选中编辑的文字 工具栏中【“格式】-->【更改大小写】 在word2007中 ...首先也是选择要编辑的文字 ...点击之后会出来一个菜单,选择"半角"即可。...修改的时候,我们有时只是...对于标点符号,还是要全角
  • 将字符串的全角符号转半角符号 :param str: 待处理的字符串 :return: 处理后的仅含半角符号字符串 Examples -------- &amp;gt;&amp;gt;&amp;gt; a = u&quot;Hello wo
  • Sub 自动加空格() 本程序为发送网络信息而编制,宏运行后,将删除当前文章内所有的全半角空格,并为每个段落加上两个全角空格 删除所有半角空格 Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting...
  • 对输入法中全角半角和中英文输入法的理解  一直搞不清楚输入法里的全角半角及中英文标点的具体应用。最近百度Google了一下,搜集了一些资料,结合周围人的解释及自己的理解,略微整理了一下,希望可以帮到后来...
  • 全角半角 Function toBanJiao(str As String) As String  Dim chA As String  Dim i1 As Long  Dim iAsc As Long    For i1 = 1 To Len(str)  chA = Mid(str, i1, 1)  iAsc = CL
  • 未找到有效的解决方案 但是word倒是可以解决这个问题
  • jQuery 的 tagit 插件效果还是不错的,今天用到该插件但发现不能自定义标签分隔符,只能是英文半角逗号或空格,于是想改造下 效果: 先研究了一番插件的代码,发现并不能通过插件自身的扩展方法来实现, ...
  • 因为C++根本不认识其中的全角空格, 许多网页贴出的代码的每行前和后都包含一个到多个全角空格,最要命的仅仅凭你的肉眼是无法分辨它与C++能够识别的半角的差别。所以每每当我们欣喜的找到一段代码放到编译环境中...
  • 输入法半角全角模式的原因 半角模式下是输入点 打开输入法修改: 接着 最后
  • 将datatable输出到word,执行如下代码。 doc.MailMerge.ExecuteWithRegions...输出前处理datatable需要含前缀空格的字段,将半角空格替换成全角空格就行。 转载于:https://www.cnblogs.com/janehlp/p/5956039.html...
  • 半角全角互转函数[JS版] [转] /* **************************** * 半角全角 * * [NB联盟] * * Writer YuPing * **************************** *参数说明: * str:要转换的字符串 * flag:标记,为0时半转全...
  • word删除空格、修复“断行”

    千次阅读 2019-05-12 23:52:39
    他说这文章是从网页上复制下来的,粘贴进Word后,文字全在表格里,空格和空段非常多。他正手工一个个删除空格和空段,可这共25页的文章,不知要删到什么时候;还有这满页的表格,他也不知道怎么去掉。文章他急着要用...
  • JS实现全半角转换和去空格

    千次阅读 2013-12-07 15:03:18
    最近在写开题报告,发现PDF中的文字复制出来会各种凌乱:标点全半角不定、各种空格莫名其妙的多。太影响复制粘贴了。 用js写了个解决问题的办法,基本就是用正则表达式替换。为了能方便的加入新标点转换,做了一下...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,172
精华内容 868
关键字:

word空格半角全角